Excel VBA 質問スレ Part79

■ このスレッドは過去ログ倉庫に格納されています
2023/01/28(土) 11:46:47.21ID:mBQ16TA8
↑同じ内容を3行貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.5ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.5ch.net/test/read.cgi/tech/1667104996/

-
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2023/01/28(土) 12:22:44.98ID:+RlrKkV4
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/
2023/01/28(土) 12:30:28.20ID:6M0xy+73
前スレ続き

タクスマネージャーで実行ファイルを監視する
そしてその動作させたいEXEファイルをハイパーリンクでボタンに割り付けると
4デフォルトの名無しさん
垢版 |
2023/01/28(土) 15:35:09.38ID:YZOoYTJx
わかった気で勘違いしている馬鹿の間違いや馬鹿さ加減を指摘するとスレが荒れるので無視しましょう
最近では零細企業のあれです
2023/01/28(土) 15:58:40.26ID:N40/dafz
>>4
お前が一番荒らしてる事になぜ気が付かない？
2023/01/28(土) 16:43:36.23ID:/lutP43W
隔離スレとして使い倒すっきゃ無いだろ　本人が立てたんだし
張り切る無能がなんとか　って自覚無いようだもの、まだまだ質問したいこといっぱいあるんだろ
但し、翻訳必要な質問ばかりだけどさ　そんなので本スレに乱入されても向こうも迷惑だろうし
迂闊に向こうで質問書かれてもコッチで回答し続けてればコッチが主戦場だってそのうち理解できるだろ
2023/01/28(土) 16:45:22.84ID:N40/dafz
いや、私のためにわざわざそんな長文書いて戴いたと思うと恐縮ですw
2023/01/28(土) 17:21:40.22ID:hPzf76mo
いわゆる暇人。、いやなんでもないです
2023/01/29(日) 01:56:27.60ID:f1+hE2K/
無視しましょう

と書いてる奴に限って無視出来ないw

なぜなら質問くれくれ君だから
10デフォルトの名無しさん
垢版 |
2023/01/29(日) 09:49:32.43ID:yeD95fR/
>>9
そこまで言うなら質問のひとつでもして行くのが筋というものだろう
2023/01/29(日) 10:33:13.36ID:NwlNvAbZ
>>10
子供が今年大学受験なのですが
落ちた時はマクロでなんとかなりますか？
2023/01/29(日) 10:38:08.81ID:NwlNvAbZ
お先真っ黒か
2023/01/29(日) 13:54:39.48ID:hmkdEuWB
いいから俺の質問に答えろよ
役にたたねえクソどもが
2023/01/29(日) 13:56:29.56ID:f1+hE2K/
はい、糞でーす
2023/01/29(日) 14:26:17.28ID:f1+hE2K/
>>13
お前らに質問するよかAIに聞いた方が正確な回答が来るな

はい、Pythonを使用すれば、Excelとは別のアプリケーションを起動することができます。

Pythonには「subprocess」モジュールがあり、これを使用すれば、外部のアプリケーションを実行することができます。

例えば、みずほ銀行のEB画面に移動するためには、以下のように「subprocess.Popen」メソッドを使用して、
ブラウザを起動し、特定のURLに移動することができます。

python
Copy code
import subprocess

url = "https://www.mizuhobank.co.jp/retail/net/ib/ibg-top.html";
subprocess.Popen(['start', url], shell=True)
また、他のアプリケーションを起動するには、そのアプリケーションのexeファイルのパスを指定し、
「subprocess.Popen」メソッドを使用することで実行できます。

python
Copy code
import subprocess

path = "C:\\Program Files\\MyApp\\MyApp.exe"
subprocess.Popen([path], shell=True)
これらの方法は、
Excelに配置したボタンを押した時にPythonスクリプトを実行させることで実現することができます。

ただし、これらの方法は、対象となるアプリケーションがPCにインストールされていることが前提となります。
また、実行するアプリケーションによっては、実行権限がない場合は実行できないことがあります。
2023/01/29(日) 14:29:45.45ID:f1+hE2K/
>>11
この質問に対してこれは流石にウザいなw

マクロを使用して、大学受験の落ちた場合の対応策を自動化することはできますが、それが良いアイデアであるかどうかは分かりません。

大学受験の落ちた場合、子供にとってはストレスや悔しさを感じることがあります。そのような状況下で、自動化されたアクションが子供にとって心理的なサポートになることは少ないでしょう。

もちろん、大学受験が落ちた場合、対応策を詰めることが重要です。ただし、それは子供と一緒に考え、サポートすることが大切です。例えば、再受験するための計画を立てるためにカウンセリングを受けることや、自己啓発のためのセミナーに参加することなど。

それでも、マクロを使用して何かをするためには、例えば、大学受験結果が落ちた場合に自動的に通知を送る、結果を記録する、再受験のスケジュールを管理するなどのことができます。

ただし、これらのことをするためにも、子供と話し合って、どのようなアイデアが良いのかを一緒に考えることが大切です。
2023/01/29(日) 14:38:03.98ID:f1+hE2K/
Excel VBAでは、他のソフトを直接起動することはできません。しかし、VBAを使用して、外部アプリケーションのコマンドを実行することはできます。例えば、VBAを使用して、Windowsのコマンドプロンプトを起動し、特定のコマンドを実行することができます。そして、VBAを使用して、Excel上で作成したデータを外部アプリケーションに渡すことができます。

ただし、これらの方法は、外部アプリケーションがコマンドラインインターフェイスを提供している場合に限られます。そうでない場合は、操作するアプリケーションのAPIを使用しなければならないでしょう。

また、VBAを使用して、Excel上で作成したデータを外部アプリケーションに渡す方法は、操作するアプリケーションによって異なります。
2023/01/29(日) 15:01:45.99ID:f1+hE2K/
Excelには、最終行を自動的に検出する機能があります。それを使用すれば、印刷範囲を最終行に合わせることができます。
具体的には、以下の手順で実現できます。

1.マクロ記録を開始し、印刷範囲を選択します。
2.「Alt + F11」を押して、VBAエディタを開きます。
3.「Ctrl + R」を押して、プロジェクトエクスプローラを開きます。
4.「Microsoft Excel Object」にあるワークブック名の下に、「ThisWorkbook」をクリックします。
5.「ThisWorkbook」の下にある「Microsoft Excel Object」を右クリックし、「挿入」→「モジュール」をクリックします。
6.挿入されたモジュールに、以下のコードを入力します。

Sub AutoPrint()
Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A1:G" & lastRow
ActiveSheet.PrintOut
End Sub

7.マクロを実行し、印刷範囲を最終行に合わせて印刷をすることができます。

また、印刷範囲の最終行に透明な「※」を打ち込んでそこまでを印刷することもできます。それには、上記のコードの「lastRow」を「※」が打ち込まれている行番号に変更し、「ActiveSheet.PageSetup.PrintArea = "A1:G" & lastRow」を「ActiveSheet.PageSetup.PrintArea = "A1:G" & "行番号"」に変更します。
2023/01/29(日) 15:02:58.97ID:f1+hE2K/
>>4
I understand that it can be frustrating to see others make mistakes or act foolishly, but it's important to remember that everyone makes mistakes and that it's not productive to call others names or belittle them. Instead, it's better to ignore these kinds of situations and move on. It's not specified which "recent" small enterprise you are referring to. Can you please provide more information?
2023/01/29(日) 15:10:05.38ID:drGgnO5E
ChatGPTに聞け
2023/01/29(日) 15:12:59.82ID:cIjm/G+O
聞いた結果だわw
2023/01/29(日) 15:25:57.60ID:f1+hE2K/
>>13
申し訳ありませんが、私はあなたの質問に答えるためにここにいます。 どのような質問がありますか？ 私はできるだけ早くあなたにお答えします。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況