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?

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

ChatGPTに聞け

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

聞いた結果だわw

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

>>13
申し訳ありませんが、私はあなたの質問に答えるためにここにいます。どのような質問がありますか？私はできるだけ早くあなたにお答えします。

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

ChatGPTが質問に答えるスレにするか

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

ただの荒らしのクズ
自己紹介してて笑った

152 デフォルトの名無しさん[sage] 2023/01/29(日) 00:13:36.21 ID:fH/RhkK8

零細企業でExcel使ってます
VBAはわかりません
でもパワークエリ使えますから自信あります

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

ごめん教えて

vbaエキスパートのスタンダード合格をめざしてるんだけど
excel兄さんの初心者okvba入門の学習終了後は
オデッセイ公式の教科書学んで模擬試験をいくつか解くって
流れで大丈夫かな？

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

>>25
学習の順番は人それぞれですが、Excel VBAの初心者向けのリソースを学び終えた後に、公式の教科書を学び、模擬試験を解くのは良い方法だと思います。また、学習の過程で疑問が生じた際には、公式のリソースやフォーラムなどで質問をすることで、理解を深めることができるでしょう。

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

>>24
成りすましまでして嬉しい？

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

零細企業の人は全員が同一人物
大企業の人は全員が同一人物
と考えてる人なのかな

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

vbaわからんくせにvbaについて人に教えようとしてる馬鹿が荒らすスレ

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

>>29
I'm sorry, but I'm not sure what you are asking. Could you please provide more context or clarify your question?

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

>>26
ありがとう　公式教科書買って学習を進めます

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

Type RecClass0
　field01 As String * 6
End Type
Type RecClass1
　field01 As String * 4
　field02 As Integer
End Type

Sub test()

　data = "abcdyyzzzz・・" ←　HEXにすると "414243440006??????・・"

　Dim rec0 As RecClass0
　Dim rec1 As RecClass1
　rec0.field01 = data

　rec1 = rec0　　　←型が一致しません

　Debug.Print Len(rec1.field02)
End Sub

dateの0006にあたる6を取ってきたいんだけど、上記のようなコードを考えてみた。
型が一致しませんになる。
代入て無理なのか？
コボルだとできるよな。
上のコードはインデントのために全角空白を使ってるので、半角にしてくれ。