Excel VBA 質問スレ Part79

**デフォルトの名無しさん** · 2023/01/28(土) 11:46:47.21

↑同じ内容を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.98

Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/

**デフォルトの名無しさん** · 2023/01/28(土) 12:30:28.20

前スレ続き

タクスマネージャーで実行ファイルを監視する
そしてその動作させたいEXEファイルをハイパーリンクでボタンに割り付けると

**デフォルトの名無しさん** · 2023/01/28(土) 15:35:09.38

わかった気で勘違いしている馬鹿の間違いや馬鹿さ加減を指摘するとスレが荒れるので無視しましょう
最近では零細企業のあれです

**デフォルトの名無しさん** · 2023/01/28(土) 15:58:40.26

>>4
お前が一番荒らしてる事になぜ気が付かない？

**デフォルトの名無しさん** · 2023/01/28(土) 16:43:36.23

隔離スレとして使い倒すっきゃ無いだろ　本人が立てたんだし
張り切る無能がなんとか　って自覚無いようだもの、まだまだ質問したいこといっぱいあるんだろ
但し、翻訳必要な質問ばかりだけどさ　そんなので本スレに乱入されても向こうも迷惑だろうし
迂闊に向こうで質問書かれてもコッチで回答し続けてればコッチが主戦場だってそのうち理解できるだろ

**デフォルトの名無しさん** · 2023/01/28(土) 16:45:22.84

いや、私のためにわざわざそんな長文書いて戴いたと思うと恐縮ですw

**デフォルトの名無しさん** · 2023/01/28(土) 17:21:40.22

いわゆる暇人。、いやなんでもないです

**デフォルトの名無しさん** · 2023/01/29(日) 01:56:27.60

無視しましょう

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

なぜなら質問くれくれ君だから

**デフォルトの名無しさん** · 2023/01/29(日) 09:49:32.43

>>9
そこまで言うなら質問のひとつでもして行くのが筋というものだろう

**デフォルトの名無しさん** · 2023/01/29(日) 10:33:13.36

>>10
子供が今年大学受験なのですが
落ちた時はマクロでなんとかなりますか？

**デフォルトの名無しさん** · 2023/01/29(日) 10:38:08.81

お先真っ黒か

**デフォルトの名無しさん** · 2023/01/29(日) 13:54:39.48

いいから俺の質問に答えろよ
役にたたねえクソどもが

**デフォルトの名無しさん** · 2023/01/29(日) 13:56:29.56

はい、糞でーす

**デフォルトの名無しさん** · 2023/01/29(日) 14:26:17.28

>>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.45

>>11
この質問に対してこれは流石にウザいなw

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

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

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

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

ただし、これらのことをするためにも、子供と話し合って、どのようなアイデアが良いのかを一緒に考えることが大切です。

**デフォルトの名無しさん** · 2023/01/29(日) 14:38:03.98

Excel VBAでは、他のソフトを直接起動することはできません。しかし、VBAを使用して、外部アプリケーションのコマンドを実行することはできます。例えば、VBAを使用して、Windowsのコマンドプロンプトを起動し、特定のコマンドを実行することができます。そして、VBAを使用して、Excel上で作成したデータを外部アプリケーションに渡すことができます。

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

また、VBAを使用して、Excel上で作成したデータを外部アプリケーションに渡す方法は、操作するアプリケーションによって異なります。

**デフォルトの名無しさん** · 2023/01/29(日) 15:01:45.99

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.97

>>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?