Excel VBA 質問スレ Part75

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-wadS) · 2022/02/09(水) 14:24:32.62

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けるナリ

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

※前スレ
Excel VBA 質問スレ Part74
https://mevius.5ch.net/test/read.cgi/tech/1639932059/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2022/04/03(日) 10:49:41.47

好きにすればいい

2022/04/03(日) 12:48:35.67

>>714
実行しなかったって表示するのに実行しそうだな

2022/04/03(日) 13:26:31.81

しねーよハゲ

2022/04/03(日) 15:21:18.52

お前ら頑張ってるけど
メッセージなんかただの処理サンプルだろうから
>>701が採用されそうだけどね

2022/04/03(日) 15:52:40.85

実際の仕様でもなんでもない話に採用もクソもないのでは
好きにすればいいはなし

2022/04/03(日) 17:28:53.57

話題に食いつくのははずいのに批判だけはするんだな
てか、批判しかできないのかなw

2022/04/03(日) 17:42:03.95

草

2022/04/05(火) 23:43:32.11

>>714
最高のコード

2022/04/07(木) 20:06:13.11

>>722
End Sub の下に　msgbox(msg)　があるのに？

2022/04/07(木) 20:57:01.15

やっと書き込めた。
BB2Cが死んでJane Stileとかいうアプリで書き込んでるけど、VBAスレもその煽りかめっきり書き込み減ってるね。

2022/04/07(木) 22:52:18.94

>>723
最（もお茶が）高（く噴き出た）のコード

2022/04/08(金) 09:32:33.40

ハイパーリンクで、他のファイルを開こうとすると、警告ダイアログが出ますが、
（「ファイルには、ウイルスやコンピューターに問題を…」）
非表示にできますか？

レジストリでDisableHyperlinkWarningをやっても、ダメでした…。

2022/04/08(金) 09:48:16.01

ユーザーフォームに設置したボタンをクリックすると
Private Sub ～～～_Clickのイベントプロシージャが追加されますが、
このコードの追加位置はどういう基準で決まっていますか？

すぐ隣のボタンのClickの近くに挿入されることもあれば、
結構離れた位置に挿入されることもあります。

2022/04/08(金) 18:32:41.81

質問は一人一つまで。

2022/04/08(金) 19:07:30.71

>>726
ウイルスでも作っているの？

2022/04/08(金) 19:44:29.30

エクセルVBAでウイルスを作ることはできますか？
エクセルVBAでAIを作ることはできますか？

2022/04/08(金) 19:49:56.82

>>726
試してないから出来るか分からんけどディスプレイアラートは？

2022/04/08(金) 19:59:37.27

>>730
直クライアントだからな
余裕で出来る

2022/04/08(金) 20:10:13.83

>>730
はい
はい

2022/04/08(金) 20:43:11.43

>>732
でもおまえウイルスの作り方わからないじゃん

2022/04/08(金) 20:59:12.69

ウィルスの定義は「操作する人が意図しない動作を起こすプログラム」
だから空白のボタン押すと背景の色が変わるとかそんなんでもウィルスです

2022/04/08(金) 21:53:49.35

やっとBB2Cが使えるようになった
>>734
煽ってもダメ
ウイルスなんて作らないし
作り方だって載せるつもりはないよ

2022/04/08(金) 22:14:19.86

>>736
いやもう作り方載せたって>>735

2022/04/08(金) 22:18:44.47

ヤンキー・ドゥードルが懐かしい

2022/04/09(土) 00:48:37.33

AIの定義が明確に定まってないので自己学習して勝手に洗練されていくものもAIだしただのマクロもAI

2022/04/09(土) 00:55:30.60

AIは作るものじゃない
育むものなんだよ

2022/04/09(土) 02:28:28.01

>>736
もうすでにウイルスのソースコード載ってますが？
>>714

2022/04/09(土) 06:04:10.90

任意の列が左端に来るように水平スクロールする方法ってある？
Application.Gotoで左端に寄せてSmallScrollで上下位置を調整してるけど完全な水平スクロールにはならないんだよね

2022/04/09(土) 07:34:48.36

With ActiveWindow
.ScrollRow = x
.ScrollColumn = y
End With

2022/04/09(土) 08:12:43.36

>>743
それも試したけど、アクティブセルが変わると数値が変わらない？

2022/04/09(土) 08:52:12.11

任意の列とアクティブセルの列の差を求めればScrollRowで行けるかな？
今度試してみよう

2022/04/09(土) 11:14:24.15

Sub World()
Dim Abe As Virus
Set Abe = New prime minister
Abe.coin.End(xldown)
Abe.tax.End(xlup)
Abe.wing.End(xlright)
End World

2022/04/09(土) 12:54:27.64

で、誰かがズームしたりページレイアウト変えたりして、
トラブルの元になると。
ウィンドウ系はいじらない方がいいと
職場のおじいちゃんが言ってた。

2022/04/09(土) 13:45:19.95

アース、ファイア、ウォータ系の属性のほうがいいかもね

2022/04/09(土) 14:39:59.55

Excel VBA の Window 関連のオブジェクトって、船に刻して剣を求むって感じ
走っている電車の中から、指で窓ガラスに風景を描くみたいな

2022/04/09(土) 15:26:28.03

さっぱり例えが分からんw

2022/04/09(土) 16:04:42.29

詩的すぎるだろｗ

2022/04/09(土) 18:41:50.44

>>749
なるほど納得。
納豆食う。

2022/04/09(土) 20:23:31.13

日本人だけど意味がさっぱりわからんｗ

2022/04/09(土) 22:16:01.68

ごめん失敗したテヘ

2022/04/10(日) 01:02:21.87

ヘッドレスChromeをseleniumやWebdriverなしでどうにかなりませんか?

2022/04/10(日) 19:56:53.98

>>755
UiPathおすすめ

2022/04/11(月) 21:59:21.11

オブジェクトの代入を同一プロジェクトで使いまわすことはできるでしょうか？

Public ws1 as worksheet
Module1
Sub test1()
Set ws1 = Worksheets("Sheet1")
ws1.Range("A1") = "Test1"
End Sub

Module2
Sub test2()
Set ws1 = Worksheets("Sheet1")
ws1.Range("A2") = "Test2"
End Sub

これを下記のようにできないかな、ということです。

Public ws1 as worksheet
Set ws1 = Worksheets("Sheet1")

Module1
Sub test1()
ws1.Range("A1") = "Test1"
End Sub

Module2
Sub test2()
ws1.Range("A2") = "Test2"
End Sub

2022/04/11(月) 22:26:56.33

なにがしたいのか

2022/04/11(月) 22:56:21.06

オブジェクトは無理でしょ
Funtionで対応すれば良い

最もそうしない方が良いからデフォで出来ないようになってることは考慮すべきだと思う

2022/04/11(月) 23:25:19.91

ん？そもそもワークシートってオブジェクト化されてるんだからわざわざ変数にセットする必要なくない？
対象のシートがコードを書いているファイルにあるなら
Sheet1.Range("A1").Value = "Test1"
で良いでしょ？

2022/04/11(月) 23:56:27.01

簡略化するためにThisworkbookを省略して書きましたが、実際には
マクロ動作中にほかのブックを触っても大丈夫且つコードがすっきり
するようにSet ws1 = Thisworkbook.Worksheets("Sheet1")のように
しています

少し時間ができたので増築増築でややこしくなったコードを整理している
最中で、複数のプロシージャで使う固定のシートはまとめて変数にセットして
おこうかと思ったのですがFunctionで調べてみます、ありがとうございます

2022/04/11(月) 23:58:43.07

変数を使いまわす（というか広域で使う）のは普通にできる
モジュールレベルでPublic変数定義するだけ
なんならモジュール名で修飾してもいい

ただ、変数の寿命が管理しにくいから、
中身がセットされてないとか、いつの間にか中身が消えてるとかいうことになるかもなｗ

2022/04/12(火) 00:23:20.44

シートをオブジェクト名で指定すればどのブックを触っていようがそのコードが書いてあるブックから参照すると思うのだけど
>>761 がやろうとしてる事って他のブックのシートを変数に収納したい場合しか使わなくないか？

2022/04/12(火) 02:00:50.12

>>763
一部のメソッドでオブジェクト名を省略できないのがあるじゃん
自分がちゃんと理解してないのが原因なのはわかってるけど、構文とかデフォルトのオブジェクトとかいちいち覚えるのが面倒くさいんだわ

2022/04/12(火) 06:30:21.52

やるならこうか？
init()に色々初期化みたいなものをまとめて、毎回呼び出す

Public ws1

Sub init()
Set ws1 = Worksheets("sheet1")
End Sub

Sub foo()
Call init
Cells(1, 1) = 1
End Sub

Sub foo2()
Call init
Cells(2, 2) = 2
End Sub

2022/04/12(火) 06:46:39.08

汎用性と独立性を確保するなら引数でシートを渡せ

2022/04/12(火) 07:15:19.69

>>757
初心者がかち当たるあるある疑問だよね。
最初は>>762の言う方法でやってみればいいと思うよ。
もう少しやり込んでくればデバッグし易くするためにモジュールスコープレベルのPrivateな変数をPublicな関数やプロパティでやり取りするようになるんだけどね。

2022/04/12(火) 07:20:31.49

こういうイメージ？
よく考えたらpublicにする必要性が全くない

Sub init()
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
Set ws3 = Worksheets("sheet3")
Set ws4 = Worksheets("sheet4")

End Sub

Sub foo()
Call init
ws1.Cells(1, 1) = 1
End Sub

Sub foo2()
Call init
ws2.Cells(2, 2) = 2
End Sub

2022/04/12(火) 07:21:37.35

と思ったらpublicいるわスコープ他の言語と間違えたわ

2022/04/12(火) 17:42:54.51

Recordset.openでselect文を実行するとエラーになるけどツールでログに出した物を実行してもエラーにならない時って何が原因？
ダブルクォートは含まれてない
あとはイミディエイトウィンドウに出てくるsqlが変なとこで改行されてるけど関係ないよね？

2022/04/12(火) 17:45:16.76

シラネーヨ

2022/04/12(火) 19:22:20.07

742で書いた完全な水平スクロールできたわ

2022/04/12(火) 19:25:18.42

>>757
Sheet1モジュールに書くだけでは？

2022/04/12(火) 19:48:28.48

>>770
それだけで答えられるほどエスパーじゃない

2022/04/12(火) 19:58:04.86

>>770
まず出力されているエラーは何なの？

2022/04/12(火) 20:52:44.19

ora 00933
sqlコマンドが正しく終了されていません
が出るんだよね

2022/04/12(火) 21:13:36.65

そのままのエラー文でググれば一発で回答出てくるぢゃねーか

2022/04/12(火) 21:30:37.91

>>776
SQLのケツに;付けろってよ

2022/04/13(水) 01:24:31.19

757です、いろいろご意見ありがとうございます
その後考えた結果、シートのオブジェクト名を変数として代入しようとした名前に変えればいいんじゃないかと思いついたんですが問題ないでしょうか

2022/04/13(水) 03:33:56.70

>>779
シチュエーションにもよるかな。
シート名を変えられてもそのシートを使う前提であればそれでいいんじゃないかな。

その場合、
自ブックのシートであれば
Dim targetSheet As Worksheet
Set targetSeet = 変更後のシートオブジェクト名
みたいに使えるし、

他ブックのシートを扱う場合は
Dim targetSheet As Worksheet
Set targetSheet = ブックオブジェクト.(シートオブジェクト.Name)
みたいに書けば設定出来る。

もっとも、後者の書き方で前者を賄えるから後者だけ関数化してそれを使い回してもいいけどね。

2022/04/13(水) 07:03:06.30

>>779
オブジェクト名はやめたほうが良い。あんまり意味が無い
やるなら、シートの内容を変数名にする

ローマ字
set shain_master = sheet("社員マスター")

日本語許容するなら
set 社員マスタ = sheet("社員マスター")

なおベストは英語

2022/04/13(水) 07:35:12.98

会社員を英語でなんと言うかがわからんわ

worker(労働者)やemployee(被雇用者)じゃニュアンスが違うしー
辞書なしですぐ出てくるレベルのやつはVBAなんかやってないやろ、という偏見

2022/04/13(水) 07:37:38.41

staffでええやろ

2022/04/13(水) 07:50:17.55

>>782
会社員だから
companyEmployeeでいいんじゃね？

2022/04/13(水) 07:56:48.50

Google翻訳だとmember
んー、なんかしっくり来ない

2022/04/13(水) 07:59:18.64

staffは関係者ってイメージ

**デフォルトの名無しさん** (ｽﾌｯ Sd02-jTyu) · 2022/04/13(水) 08:15:50.97

staffという単語はcompanyと同義で集団に対して使うって日本人は意外とわかってない

2022/04/13(水) 08:30:55.20

employee以外ないだろう

2022/04/13(水) 08:56:08.44

会社員という表現は英語では難しい
大人しく syachiku か Karoushi_Man にしとけ

2022/04/13(水) 09:04:23.41

業務用語の変数は日本語で業務用語そのものを使ってる
中途半端な英語だと誤解しやすいし、ローマ字は読みづらい

2022/04/13(水) 10:04:01.74

Accessならお馴染みの「Northwind」のテーブルでは Employee List とか Employee Details
概念としての会社員ではなく、自社の社員リストなので「従業員・使用人」の意で
ま、そのファイルを誰が見る？誰が使う？どこに出す？で適宜に　恥かかない程度で　何だっていいんだろうけれども

2022/04/13(水) 10:09:02.25

リーマンが和製英語からすでに世界に浸透してる

2022/04/13(水) 10:28:39.30

ワークマン

2022/04/13(水) 11:06:56.09

ワークマンは流行りよ

2022/04/13(水) 12:58:38.46

緊急です！

マクロの入ったボタンが図だかイラストになってしまい困ってます。
直し方のアドバイスお願いします。

2022/04/13(水) 13:07:23.24

>>795
https://mevius.5ch.net/test/read.cgi/bsoft/1647570025/342

2022/04/13(水) 13:09:58.08

こういうの30分一万円無保証とかで稼げないかな

2022/04/13(水) 13:57:45.74

>>795
もうその図からマクロ実行させちゃえばいいじゃん

2022/04/13(水) 14:00:17.02

■質問
サウンド再生は何通りかあるけど、
一番遅延が小さい方法は何ですか？

winmmのPlaySound　？

2022/04/13(水) 14:08:46.36

>>798
多分それ自体わからんのちゃう？
Excel作った本人とかじゃなく事務員とかだろうし

2022/04/13(水) 15:42:21.02

3時間くらいかけてVBA作って、合間に別のエクセルファイル開いて、閉じようとしたら
「変更を保存しますか？」って出たので、保存せずに閉じたら。
VBAを作った方のファイルまで変更保存せずに閉じられてしまったーーー！！
どうにかならない？

2022/04/13(水) 15:45:55.22

とりあえず顧客に頭を下げてFAXでリスト送って頂いたのでしばらくはなんとかなりそうですがエクセルファイル自体のトラブルについては全員サッパリ意味不明なためどうしようも無さそうです…
（エクセルファイル作った方自身が既に会社にいないのでどうしようもない）

とりあえずエクセルファイルがどうする事もできないため私と社長ら数名は土日も休日出勤して1月から4月までの記録も全部紙ベースの資料に手書きで書き写す事になりそうです

しばらくは紙とペンでのアナログなやり方で回すしかないですがアドバイスくださった方ありがとうございました

2022/04/13(水) 17:20:07.59

>>801
3時間くらいなら今からやれよ

2022/04/13(水) 17:28:47.62

>>802
あちこちマルチで書いて馬鹿かよ
どこかに金を出して頼めよ
ゆとりの馬鹿はこれだから

2022/04/13(水) 17:42:34.06

>>801
該当のファイルを開いた状態でファイルタブのどこかにある自動保存云々が書いてある場所を探せ
運が良ければ一時ファイルが残ってる
残ってなけりゃ諦めろ
次からは動作確認をする前に保存する癖をつけるようにするんだな

2022/04/13(水) 19:21:42.96

>>801
これがあるからコーティング中はOneDriveに置いとる

2022/04/13(水) 21:38:12.45

>>805
何で誰でも言える極々普通のアドバイスをこんなに上から目線で言えるんだろう

2022/04/13(水) 21:47:36.66

便所の落書きにいちいち目くじら立てて突っ掛かるなよ
より一層老けて見えるぞ

2022/04/13(水) 22:55:33.89

全国10エリアのそれぞれに、2016年度から6か年度分の「各年度集計用book」があり、
中身は1時間値と月合計を集計する等のクエリーが17あって、
これをsheet上のクエリーリストを基に
For Nextで順次更新・上書き保存するVBAを仕込んであります。

これとは別に、各エリアごとにやはりbookのフルパスリストを基に
For Nextで「各年度集計用book」を順次開いて、
中のVBAを実行するよう仕込んだ「各エリア一括更新book」を作りました。
(今さら2016年度を再集計するのは、たまにシレーッと修正が訴求修正が入るため)

これまで10ヶ月間ほどの月次更新では問題もなく動いてきたのですが、今月の更新で
・sheet名とクエリー名によるクエリー更新のステップでデバックエラーで止まった
・2つ目2017年度あたりのbookをVBAで開いたと思ったら、Excelごと落ちた
となり、不安定になりました。

モジュールごと再構成たり、「各年度用集計book」クエリー計算を簡略化して17ステップに削減したりして、
・タスクマネージャーでは動作中のメモリーは最大10GB/32GBくらい、CPU使用率は最大60%弱
・1つの「各年度集計用book」の所要時間に30秒程度
まで軽量化したのですが、今後もbook数が増えることを考えると
何か工夫のしどころはないものかと。

自分で気になっているのは、6か年度分のbook更新がどうにか上手くいっても、
「各エリア一括更新book」のプロジェクトに、
済んだはずの「各年度集計用book」の情報が残っていること。
https://i.imgur.com/BvkH6sr.png
よく分からないけれど、VBAが扱えるインスタンス数を超過しているのか？
これが残っていて良いのか、よくわかりません。

・Set wb = Workbooks.Open で開いて
・wb.Close SaveChanges:=True で上書き保存して閉じているのですが、
・For Next内で済んだ変数はできる限りNothingで開放
していますが、改善の余地はありますか？

**809** (ﾜｯﾁｮｲ 9bda-EhK1) · 2022/04/13(水) 23:53:53.55

>>809 タイポ訂正
誤) 訴求修正
正) 遡及修正

2022/04/14(木) 08:48:02.28

>>809

2022/04/14(木) 09:46:20.53

>>809
マクロを１つの専用ブックにまとめてみたら

2022/04/14(木) 13:25:49.47

VBAで他ブックのプロシージャを実行したいんだけど、実行まちをなくすことてできる？
Application.Run "Book2!Test2"
を実行したあと、"Book2!Test2"の処理終了を待たずに次の行に移りたいんだが。

2022/04/14(木) 13:53:36.44

非同期は無理
試してないけど、別のApplicationインスタンスを作成して
そちらでファイルを読み込んで実行とか