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/03/29(火) 15:54:16.92

>>666
違いは重要じゃないけど
> Nothingにならないって言うほうが正しいな
と言う明らかな間違いを言い続けるのはどうかと思うぞ… ⇒ >>655

2022/03/29(火) 18:10:12.28

列ではなく、選択した箇所だけを固定したいのですが出来ませんか？

2022/03/29(火) 18:32:44.42

>>666
違う
代入すればNothingになる
その次にアクセスすると、またそのタイミングで自動的にNewされる

2022/03/29(火) 18:52:31.36

各自が想定してるコードが違うんだから言葉遊びにすぎないよ
自分のレスもいまいちだったかもしれんがNothingをセットして終了するならNothingかもしれないが
後続のコードにIs Nothingなり変数の参照があるならそれは結果的にNothingではなくなるのと一緒と自分は思ってるだけ
例に出して申し訳ないが
> Set a = Nothing
> のあとに
> MsgBox (a Is Nothing)
これとかね
自分なりの結論は宣言時にNewは使わないほうが無難

2022/03/29(火) 19:12:31.97

>代入すればNothingになる
>その次にアクセスすると、またそのタイミングで自動的にNewされる
厳密にはその通り
そんなことは分かったうえで、それをコード上で確認できないから
Nothingにならないと表現したわけで、その表現が間違いらしいですわ

(VBAコードから)オブジェクト変数をNothingとして評価できない
すべての個所をそう読み替えといてくれ

飽きたし俺はこの話はもうこれで終わり

2022/03/29(火) 19:15:45.64

まぁ>>670の言う通り言葉遊びだよね
みんな実際の挙動は理解しての会話になってるみたいだし

2022/03/29(火) 19:19:18.21

まあオレは今まで知らなかったけどな！

2022/03/29(火) 19:32:15.47

>>644
おれ以外にもthom先生見てる人いたか

2022/03/29(火) 20:35:52.45

どう見ても最初はわかってなかったやろ
最後にやっと理解できたみたいだけど

2022/03/29(火) 21:25:13.63

人に優しく行きましょう
それは分かる人に与えられた特権なのです

2022/03/30(水) 05:40:49.56

人生は優しくなるためにある

2022/03/30(水) 08:23:09.21

スマホ手打ちなので誤字等ありましたらすみませんがよろしくお願いします。

rangeを用いた範囲指定でcells(row,columns)の行、列の部分に端数切り上げで数式を入れたいと考えています。
vbaで roundupを用いる時はworksheetfunction.をつける必要があることをネットで知ったのですが、ページによって頭にapplication.をつけてるものとそうでないものが混在しました。有無によってどのような違いがあるのか教えてください。

2022/03/30(水) 08:47:30.52

数式を入れるのかワークシート関数を使って値をいれたいのかよくわからないけど
後半の質問であればVBA上では動作に違いはないよ
「https://docs.microsoft.com/ja-jp/office/vba/api/excel.application(object)」の
「アクティブセル (ActiveCell プロパティ) など、最も一般的なユーザーインターフェイスオブジェクトを返すプロパティとメソッドのほとんどは、Application オブジェクト修飾子を指定しないで使用できます。」
と書いてある通り
こういう質問する前にヘルプを見ると知りたい事や知っておいたいいことが書いてる場合もあるし怪しい回答の知識を覚えなくて済むから見る癖つけたほうがいいぞ

2022/03/30(水) 08:54:37.31

>679
ありがとう、参考にします。

2022/03/30(水) 09:15:22.27

いえいえ

2022/03/30(水) 10:25:12.15

実際に組んでみてうまく行かない場合に調べるとか質問とかしたらいいと思う

2022/03/30(水) 10:38:48.27

ちょっと教えてください
複数のシートを一緒にスクロールして
常に同じ位置に同じ行列が表示させられるような移動方法ってありますか？

例）
シート１～シート10までをグループ化して
シート１をスクロールして1000行目を頭に表示すると
残りのシート２～シート１０も同じように1000行目を表示している

よろしくお願いします

2022/03/30(水) 14:07:54.57

裸の王様がやってきたやってきたやってきたぞ

2022/03/30(水) 19:23:16.04

>>683
いったんアクティブにしていいなら
Application.GotoとかWindow.ScrollIntoViewとかで表示位置は変えられるけど
まあ使い物にならない可能性が高いな

アクティブじゃないシートのスクロール位置を変える方法があるなら俺も知りたい

それかWindow10個作って同時にスクロールにするとか

2022/03/30(水) 19:31:25.53

複数のシートのデータを纏めたシートを作ったらどうかな

2022/03/30(水) 19:32:55.87

スクロールのイベントってないんか
クリックしたセルを同じにするマクロ
なんじゃこりゃ

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Name = "Sheet1" Then
Sheets("sheet2").Select
Sheets("sheet2").Cells(Target.Row, Target.Column).Select
Sheets("sheet3").Select
Sheets("sheet3").Cells(Target.Row, Target.Column).Select
Sheets("sheet1").Select
End If

End Sub

2022/03/30(水) 19:47:16.20

馬鹿が考えた操作なんて実装しても、所詮馬鹿の馬鹿な発想でしかない

2022/03/30(水) 22:06:13.73

>>687
フォーム内のスクロールバーはイベント取得できるぽい
そういうのでいいならフォーム内スクロールバーに従ってシートをスクロールさせることはできそう

もしくはシート１のスクロールを監視して自分でイベント発行するか

2022/03/30(水) 22:25:38.10

彼女の下のお口から出る糸を、シート(She糸)と呼びます

2022/03/30(水) 22:25:54.14

>>689
逆にスクロールを実装すればよかったのね
下スクロールを実装したら期待通りの動きになったわ

Sub Macro4()
' Keyboard Shortcut: Ctrl+Shift+P
Windows("Book1 - 1").Activate
ActiveWindow.SmallScroll Down:=30
Windows("Book1 - 2").Activate
ActiveWindow.SmallScroll Down:=30
Windows("Book1 - 3").Activate
ActiveWindow.SmallScroll Down:=30
End Sub

2022/03/31(木) 04:24:20.35

糸を出す女ってスパイダーガールか

2022/04/01(金) 07:19:21.13

宗教的な話題になりそうだけど、If文で判定入れてそれ以外の場合は何もしないって処理の時、elseを省く？それとも何も処理をしないって明示するためにelseの中に何も書かない？

2022/04/01(金) 08:08:06.08

俺は省く
逆に Select Case の Case Else は必ずつけて何もしなくていいことを明示するコメントを書いておく

2022/04/01(金) 08:13:36.66

こういう書き方ってどうにかしてうまくまとめる方法はありますか？

if　C=1 then
if　B=1 then
if　A=1 then
msgbox "メイン処理を実行します"
else
msgbox "A=1じゃなかったので実行しなかった"
else
msgbox "B=1じゃなかったので実行しなかった"
else
msgbox "C=1じゃなかったので実行しなかった"

2022/04/01(金) 08:33:32.40

>>695
If C <> 1 Then
msgbox "C=1じゃなかったので実行しなかった"
Goto Skip
End If
If B <> 1 Then
msgbox "B=1じゃなかったので実行しなかった"
Goto Skip
End If
If A <> 1 Then
msgbox "A=1じゃなかったので実行しなかった"
Goto Skip
End If
msgbox "メイン処理を実行します"
Skip:

Goto 嫌なら Sub に入れて Return とか

2022/04/01(金) 09:19:19.95

>>695
ネスト深くなるとわかりにくい
処理は簡単な単位でまとめたほうがいい
実行する／しないは一つの単位（success/errorのように）としてまとめたほうがいい

拒否理由="なし"
if c<>1 then 拒否理由="cじゃない"
else if b<>1 then 拒否理由="bじゃない"
else if a<>1 then 拒否理由="aじゃない"

if 拒否理由="なし"
　メイン処理
else
msgbox 拒否理由&"ので実行しません"

2022/04/01(金) 19:02:13.39

わかりにくいってだけで正常に動作しているならコメントでも書いとけばいいんじゃね

2022/04/01(金) 19:04:18.25

>>696
do loop 0でブレイク

2022/04/02(土) 10:46:13.39

>>697
おれもこんな感じだな
Elseifは好きじゃないからSelectCaseかなあ

2022/04/02(土) 12:32:39.80

VBA の Select Case は Case 節に式が書けるから素直に

Select Case True
Case C <> 1
msgbox "C=1じゃなかったので実行しなかった"
Case B <> 1
msgbox "B=1じゃなかったので実行しなかった"
Case A <> 1
msgbox "A=1じゃなかったので実行しなかった"
Case Else
msgbox "メイン処理を実行します"
End Select

がわかりやすいかな

2022/04/02(土) 13:02:04.64

>>701
俺もこんな感じにするかな
C#とかと違って;で止められないけど
まぁそれはそれとして。

2022/04/02(土) 19:50:51.52

複数の条件が成り立つ場合の優先度とか気にせんと・・・

2022/04/02(土) 20:08:08.57

>>703
なんでドキュメント読まないの？

複数の Case 句の expressionlist 式に一致する場合は、最初に一致した句に続くステートメントのみが実行されます。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/select-case-statement

2022/04/03(日) 00:02:19.90

A=1かつB=1かつC=1だったらXが実行されるって言う事ではないのね
なんかややこしいね(´・ω・｀)

2022/04/03(日) 03:01:36.86

俺は中身が1行の時はCaseを1行にまとめる派
Sub Macro()
　　Select Case True
　　　　Case C <> 1: errmsg ("C")
　　　　Case B <> 1: errmsg ("B")
　　　　Case A <> 1: errmsg ("A")
　　　　Case Else: MsgBox "メイン処理を実行します"
　　End Select
End Sub

Sub errmsg(s$)
　　MsgBox s & "=1じゃなかったので実行しなかった"
End Sub

2022/04/03(日) 06:50:49.06

>>706
errmsg の呼出時の括弧は要らないのでは？

2022/04/03(日) 07:52:44.68

>>706
こういうふうにはしないほうが良い？

Sub Macro()
　　Select Case True
　　　　Case C <> 1: msg ="C"
　　　　Case B <> 1: msg ="B"
　　　　Case A <> 1: msg ="A"
　　　　Case Else: msg= "メイン処理を実行します"
　　End Select
End Sub

msgbox(msg)

2022/04/03(日) 08:39:48.32

そうやって本筋じゃない方へ話題は逸れていく

2022/04/03(日) 09:01:58.41

Subの場合は
括弧を付けるならCallも付ける
Callを付けないなら括弧も付けない
それだけ

2022/04/03(日) 09:05:23.70

>>708
> こういうふうにはしないほうが良い？
うん、それだと C = 2 でテストしたら単に C って表示されるだけだし

2022/04/03(日) 09:06:11.26

>>709
今回はどんどん話を膨らませていいよ

2022/04/03(日) 10:18:01.32

僕が考えた最高のコード
ってやつだろこんな話題にくいつくのもはずいわ

2022/04/03(日) 10:39:12.57

>>708は間違いね
こういう風に、メッセージの中だけ変数に入れて最後で表示させるってのはやめたほうがいいでしょうか

Sub Macro()
　　Select Case True
　　　　Case C <> 1: msg ="C=1じゃなかったので実行しなかった"
　　　　Case B <> 1: msg ="B=1じゃなかったので実行しなかった"
　　　　Case A <> 1: msg ="A=1じゃなかったので実行しなかった"
　　　　Case Else: msg= "メイン処理を実行します"
　　End Select
End Sub

msgbox(msg)

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

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