Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

2023/01/28(土) 12:12:12.41

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること

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

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

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

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

2023/02/19(日) 16:40:27.54

念のため、chatGTPはあてにならなかったです。

2023/02/19(日) 17:24:19.98

>>117
Integerだからだろ

2023/02/19(日) 17:30:57.52

ありがとうございます。Longにしてもダメでした。
根本的に配列の扱いが間違っているような感じですが、
それがよくわかりません。

2023/02/19(日) 17:39:18.41

>>120
init_id = Worksheets("Play").Range(Worksheets("Play").Cells(2, 1), Worksheets("Play").Cells(totalQuestions + 1, 1)).Value
と
del_id = Worksheets("arrData").Range(Worksheets("arrData").Cells(2, 2), Worksheets("arrData").Cells(pastQuestions + 1, 2)).Value
でinit_idとdel_idにセルの値を配列として代入しているけど、これは２次元配列として代入している
だからinit_id(i)という一次元配列は存在しない
init_id(1,1)とかinit_id(2,1)の二次元配列として存在している
よってinit_id(i)は存在しませんってエラーが出てる
ローカルウインドで確認するといい

2023/02/19(日) 17:44:28.85

ありがとうございました。よくわかりました。
なんとか1次元の配列を作りたいと思います。
セルデータから簡単に配列つくれるということでこの作り方になったのですが。
列番号を1つにすれば1次になるかと浅はかでした。。

2023/02/19(日) 18:07:25.25

配列よりDictionaryの存在チェックで判定する方が簡単そうだけどなぁ

2023/02/19(日) 18:17:57.66

>>112
VBAならこんな感じか。
後、C列に6がないのは記入漏れ？

Sub C列に書く()

Dim i As Long, cnt As Long, dRange As Range
Set dRange = Range("B1:B3")
cnt = 1

For i = 1 To 9
If WorksheetFunction.CountIf(dRange, Cells(i, 1)) = 0 Then
Cells(cnt, 3) = Cells(i, 1)
cnt = cnt + 1
End If
Next i

End Sub

2023/02/19(日) 18:24:49.89

>>124
ありがとうございます。やろうとしていたコードよりシンプルです。

2023/02/19(日) 18:28:42.83

>>124でおしえていただいた方法で進めたいのですが。
これで、エラーがでたのはなぜでしょう？
Sub 次の問題()
Dim totalQuestions As Long, pastQuestions As Long, Nextnum As Long, n As Long
Dim init_id() As Variant, del_id() As Variant

totalQuestions = Worksheets("Play").Cells(Rows.Count, 1).End(xlUp).Row - 1
Randomize
Nextnum = Int(totalQuestions * Rnd + 1)
n = Worksheets("arrData").Cells(Rows.Count, "B").End(xlUp).Row + 1
Worksheets("arrData").Cells(n, "B") = Nextnum
pastQuestions = Worksheets("arrData").Cells(Rows.Count, 2).End(xlUp).Row - 1

Dim i As Integer
For i = 1 To totalQuestions
init_id(i) = Worksheets("Play").Cells(i+1, 1)
Next i
For i = 1 To pastQuestions
del_id(i) = Worksheets("Play").Cells(i+1, 1)
Next i

End Sub

2023/02/19(日) 20:06:54.10

春休みか？

2023/02/19(日) 20:22:10.83

これ流石に釣りだろ
いつものキチガイ臭がすごいわ

2023/02/20(月) 01:12:29.14

また荒らしか。

2023/02/25(土) 22:54:00.85

VBA初心者です
退職済みの前任者が作ったマクロで多発してるエラー対応をしています

Dim 範囲 As Range
Set 範囲 = Worksheets(″Sheet1″).Range(″A1″).CurrentRegion

・変数に日本語を使うメリットとデメリット
・Range型の変数を使うメリットとデメリット
教えてもらえないでしょうか？

2023/02/25(土) 23:47:26.72

>>130
お前のレベルで手を出すな

2023/02/25(土) 23:51:02.20

聞いたこともない英単語だとかえってわからなくなるからいっそ日本語の方がいい時がある（語学力の問題）

2023/02/26(日) 00:31:12.73

>>130
前任者がつくったとかいうのは関係なく、エラーを直して正常に動くようにするのは今の担当者の仕事じゃね
日本語を問題にするなら好きな言葉に置き換えればいいだろう

2023/02/26(日) 05:08:45.75

昔は確かに日本語変数だと変な挙動起きたがな。

2023/02/26(日) 10:08:54.14

日本語のメリット
人によっては視覚的に分かりやすい
デメリット
その度に切り替えボタンを押すのが面倒

後任者が分かりやすいように日本語にしといてくれたんだろう

2023/02/26(日) 10:54:07.84

値1 と値１が混ざって変数宣言を省略してるとか
漢字の間違いや全角の空白が紛れてたこともあったな昔のことだが

2023/02/26(日) 12:24:12.13

ついこの間、ExcelのupdateでまたVBAが壊れたので
変数はもちろん、ワークシートから引っ張ってくるシート名や定義名も
日本語は止めた。

2023/02/26(日) 12:27:06.36

Excelって非アクティブからクリックでアクティブにするとき、クリックしたセルが一発でアクティブにならんのな
前回操作時のセルがアクティブなる
デュアルモニターでマウス行ったり来たりしてExcel入力してるから面倒くさいったりゃありゃしない
スプレッドシートは問題ないんだけどさ
スレチだったらすまん

2023/02/26(日) 13:44:06.75

非アクティブのウィンドウにマウスをもっていったら自動的にアクティブになる
無料のユーティリティソフトを入れたらいいんじゃね

2023/02/26(日) 14:26:11.23

>>139
Windowsにその機能あるんだが、普段の使用で使いにくいんだよな
意図しないウィンドウがアクティブになってりして
とりあえずスプレッドシートのほう使うよにしたわ

2023/02/26(日) 20:33:51.43

効率を語るならまずマウス操作を止めるべきだな

2023/02/26(日) 21:30:42.93

流石にエクセルのセルをクリックで操作は意味不明だろ
そこに文句言うヤツとか誰も想定してないと思うわ

2023/02/26(日) 21:41:09.74

いや、デュアルモニターの隣りの画面でFXのチャートの値幅をマウス操作で計測し、その値を隣の画面のExcelに打ち込んでデータ分析してるんだが……
一回入力するたびに隣の画面にポインタ移動するから、そのたびExcelが非アクティブになるんだよ
なんか俺めんどくさいことしてるのかな……？
まあ、これ以上はスレチになるからここで終わりにしておく
すまんかった

2023/02/26(日) 22:07:07.64

これじゃダメかい？
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
　Sh.Selection.Active
End Sub

2023/02/26(日) 23:34:16.33

>>144
うまくできんかった。
chatGPTでもマクロを教えてもらったが、そっちも機能せず
もしかしたらオマカンかもしれん
だからスプレッドシート使うことにした
わざわざすまんかった
ありがとう

2023/02/27(月) 01:12:31.98

ん？よくわからんけど、vba起動したら別のソフトがアクティブになるってこと？
別のソフトをアクティブにする前にに次に使いたいセルをSelectかActivateにしとけばいいんでない？
そもそもセルに手打ちってのもよくわからんけど

2023/02/27(月) 20:02:31.12

>>138
エクセルのアクティブ化とアクティブセルの変更を１クリックでやりたいって話だろ
デュアルモニターとか関係ない

Activate系のイベントでマウスカーソルの位置拾ってセル位置判定してアクティブ化するマクロを書けばできる気はする
マウスカーソルの位置ひらうのがＶＢＡだけで出来なかった気がするから面倒だな

2023/02/27(月) 23:06:45.60

そもそもFX側のプログラムから
記録用CSVなりに追記する形で出力にすればいいのでは
目的と手段を混同しているように見える

2023/02/28(火) 10:02:05.35

FX側はきっと既成のソフトウェアで手を入れられられず出力機能もないのだろう。
でなければマウスで幅を計測なんて、Excel抜きでも面倒な事をしてないと思う。

FX側ソフトウェアに要望を出す、別のものに変更する、または特注するのは有りだと思う。

2023/02/28(火) 12:23:19.77

B行に日付　C行以降は各項目
2023/4/3 パン　150
2023/4/16　米 500
2023/5/20　サラダ 230
︙
2023/8/13 牛乳 150
などと表があるとこから、VBAでinputboxで何月を取り出したいですか？など質問をして、その月だけを別シートに抽出したいのですが…findを使う？
どうすればいいのか教えて頂きたいです。

2023/02/28(火) 12:42:03.99

>>149
そいつがやるべきはVBAじゃなくFXソフトのお勉強からだな
少なくともメタトレーダー系ならExcelに対するVBAのようなプログラム制作用機能が充実してるから値幅計測ぐらいわけない

2023/02/28(火) 15:14:30.22

>>150
どうればいいのかって…
VBAでinputboxで何月を取り出したいですか？など質問をして、その月だけを別シートに抽出してくださいってしか言えんだろ
具体的にコード出さないと何も言えない

?PLT(15000) · 2023/02/28(火) 15:55:23.62

VBAでやるよりピボットテーブルの方が･･･

**150** (ｵｯﾍﾟｹ Sr75-Dmqe) · 2023/02/28(火) 15:57:37.64

AutoFilterやCurrentRegion.copyで何とかなりました。
すみませんでした。

2023/02/28(火) 17:32:55.16

もしかして:For

まあ他人と共用するマクロなんだろうし
その他人の中にマクロのことを聞けるやつもいないんだろうから
手作業をマクロで書いただけみたいなので正解かもしれんな

2023/03/02(木) 03:38:03.48

他人と共用するマクロは、共用している他人がマクロを編集できるので
自分がどう作っても他人が勝手に修正するだろうし・・・

2023/03/02(木) 06:52:29.36

>>156
事前に許可なく編集禁止と伝えておくのはどうでしょうか？？
自分の職場はトラブル防止のため注意喚起を徹底してます。

2023/03/02(木) 14:19:36.36

マクロを作った人間の責任とサーバー上のファイルを管理している管理者
業務としてマクロを使う作業を指示している上司に変更内容を確認してもらう必要があるよね

2023/03/04(土) 13:39:41.40

>>132,134-137
遅くなったけど130です
ありがとう
自分には日本語の変数のほうがわかりづらいし、>>137の言うように万が一にも備えて英語に置き換えることにした

2023/03/05(日) 14:08:33.99

Public Sub aiueo()
Dim Ary(2) As Variant
Ary(0) = 10
Ary(1) = "文字列"
Ary(2) = CDate("2021/2/2")
Dim test As Variant
test = Ary
Call aiueo2(test)
Call aiueo3(Ary())
End Sub
Public Sub aiueo2(ByRef Ary As Variant)
MsgBox TypeName(Ary)
End Sub
Public Sub aiueo3(ByRef Ary() As Variant)
MsgBox TypeName(Ary())
End Sub

関数への配列をどう渡すかで悩んでいます。
配列として渡すのか、Variant型のスカラー変数にして渡すのか。

VBAのVariant変数は配列さえも入るスカラー変数だと認識しています。
なので、配列そのものを入れてるだけで、Variant型の配列変数とは少し違うと思っていました。
しかし上記の結果は同じでした。そうなってくると
どっちでもいいということなのでしょうか？

もう一つ気付いたのはaiueo3はByVal渡しが出来ないけど、aiueo2ではByVal渡しが出来るので、
大元の配列の中身をいじらないで済むという違いがわかりました。

他に違いはありますか？

2023/03/05(日) 15:00:07.80

>>160
Variantの配列は結局Variantだから下のように配列指定の括弧を取って関数宣言すれば値渡しもできるよ
Public Sub aiueo3(ByVal Ary As Variant)
関数引数の宣言で配列を受けるように書いてしまうと参照渡ししかできなくなるってだけ

2023/03/05(日) 19:01:06.89

>>160
そんなサンプルばっかり作ってないでちゃんと役に立つもの作ればいいのに

**160** (ﾜｯﾁｮｲ 7b66-QeO8) · 2023/03/05(日) 19:19:12.03

>>161
ありがとうごございました。
スカラーで受けるか配列で受けるかにこだわっていました。
あれからもう一つ気付けたのは
Public Sub Sample(Byref Ary() as Class1)
Public Sub Sample(Byref Ary as Class1)
この時に大きな違いが出ました。前者はAry(i).と書くだけでClass1のプロパティメソッド一覧がサジェストしてくれますが、
後者だとVBE的には配列と認識してないのでサジェストしてくれません。
これを決定打として前者の書き方に統一しようと思います。

>>162
8割出来てたソフトをクラスを導入して書き直したら拡張しやすいコードに生まれ変わると信じてトライ中です。
月に数日しか触る時間が取れなくてちっとも進んでないです。
久しぶりに触ると自分が書いたコードさえ複雑すぎて読めないです。

2023/03/05(日) 22:22:28.42

長くなれば長くなるほど自分のコードってイミフに見えるよね。特に３ヶ月経てば。

2023/03/06(月) 00:54:11.13

なにをしてるかしらんけど、クラスを配列にして関数に渡してる段階で
ちょっと設計見直したほうが良いと思うぞ

2023/03/06(月) 00:59:15.55

なぜそういったコードが産まれるか？
前任者がそういったやり方をしていたから。

**160** (ﾜｯﾁｮｲ 7b66-QeO8) · 2023/03/06(月) 01:52:26.46

>>165
そうなのですか？
クラスを配列にしているというよりは、配列の中にクラスのインスタンスが入ってるという事なのですが。
例えばA組には生徒が100人います
生徒の遺伝子情報を持つ精子がそれぞれ1億匹います
しかもそれが毎日吐き出されます。
もちろん日別にそのインスタンスは微妙に違います。

まさにそれが配列の中にクラスのインスタンスがある状態かと思ってました。
とても理にかなった行為に思えます。
配列の中にクラスのインスタンスを入れる事は。

クラスはあくまでも階層図なのではないでしょうか。
配列を横の広がりとするなら、クラスは入れ子をする事で深さを表すと思い込んでいます。
5次元配列とかイメージも出来なくてわからないのですが、クラスの入れ子で5層を作るのは案外わかりやすいです。

2023/03/06(月) 03:53:47.03

クラスの配列なら横への広がりのイメージだな
クラスの深さなら継承の概念が必要
本格的なオブジェクト指向言語なら普通に使われるけどなんちゃってオブジェクト指向のVBAでは記述できない

2023/03/06(月) 07:22:39.83

クラス使うと一挙に視野が広がるよ
ついでを言うと配列の代わりに
コレクションやディクショナリを
使うことも視野に入れるといいと思うよ

2023/03/06(月) 12:27:06.93

VBAもオブジェクト指向できるんか

2023/03/06(月) 12:41:06.98

プロパティ、メソッドなどの概念はオブジェクト指向からの由来
ただし本格的なクラスベースでもプロトタイプベースでもない独自体系の(中途半端な)オブジェクト指向

2023/03/06(月) 13:36:46.14

あえて言えば
フォーム指向だな

2023/03/06(月) 14:45:16.86

敢えて言うならフォーム指向というよりコンポーネント指向
excel(Application)、book、worksheetなどすべてのオブジェクトはCOMコンポーネント
フォームもCOMコンポーネントの中のひとつ

2023/03/06(月) 14:57:08.93

>>170
C言語だってできるわ
データ(構造体)とそれを操作する関数を作っていくだけだ

2023/03/06(月) 15:12:57.72

>>167
たとえばエクセルブックは複数のワークシートをもってるが、それを配列で管理したりしてないだろ
まあ、VBAはコレクション系が弱いので配列で実装することもままあるがな

>>174
ここで言うオブジェクト指向できるかどうかってのは、
言語側にそのサポート機能がどのくらいあるかって話なんだと思わないかね？

太古のBASICはもとより、VisualBasicも出始めはオブジェクト指向を意識したものではなかったからな
互換性を残しつつオブジェクト指向を取り入れたのでかなり中途半端な出来なのはまあしょうがない

2023/03/06(月) 15:22:06.82

リストやマップだって内部では配列使ってるでしょ

2023/03/06(月) 16:30:36.14

VBAは糞だから廃止しても良いけど
代替がC#じゃなくてPythonになりかけたのは笑う

2023/03/06(月) 18:31:47.09

そういえば結局MSはVBAを完全に廃止はしないんだっけ？？

2023/03/06(月) 18:36:58.90

廃止はされないだろうけど棲み分けされる方向性にある

Office スクリプトと VBA マクロの違い
https://learn.microsoft.com/ja-jp/office/dev/scripts/resources/vba-differences

2023/03/06(月) 18:42:11.32

VBAのクラスは中途半端と言えばまぁそうだけど
VB.Net、おいてはC#とかをやる際の
練習には・・・いや、ちょっと厳しいか

でもObject指向言語いきなり入ると
継承ばっかに目が行って
移譲が疎かになったりするから
まぁいいんじゃないかな

2023/03/06(月) 21:16:37.56

やっぱ昔ながらのVBAがいちばんしっくりくるわ。

2023/03/07(火) 21:48:06.79

やっぱ昔ながらのBBAがいちばんしっくりくるよね

2023/03/07(火) 23:24:56.52

いや、BBAは55までが限界だわ。

2023/03/09(木) 18:56:56.85

ところでBBAの手前の年齢なら何て呼ぶ？

2023/03/10(金) 03:06:29.10

>>184
おばさま

2023/03/10(金) 12:22:39.19

ちなみにお前らはおじさんやおっさんって呼ばれてもおかしくない年齢だよな？

2023/03/10(金) 13:34:04.07

ExcelとVBAを使って商品の在庫管理をしようと考えています。
1つの商品の販売数は概ね1～10程度に収まっていますが、たまにそれを超える数が出る事があります。
入力を簡単にするため10個以下のときはドロップダウンリストから選択し、それ以上の時は直接入力で
対応しようと思ったのですが、コンボボックスでは直接入力した値を取得できません。

直接入力とドロップダウンの両方で値を取得出来る方法はありませんか?

2023/03/10(金) 16:23:53.92

フォームコントロールのコンボボックスだとプロパティに無いから出来ない
もし、セルの[データの入力規則]でもいいなら、エラーメッセージタブの □ 無効なデータが入力・・・
のチェックを外せば、リスト外の文字列(数値含む)も入れられる

2023/03/10(金) 16:24:00.66

そんなもん使い難いだけだわ
UIを良く考えよう

2023/03/10(金) 16:26:19.41

正直１桁ならコンボボックスより直接入力のほうが効率いいと思うが

2023/03/10(金) 16:56:09.67

日付も商品もマウスで選択するようなUIなら理解できる
マウスから手を放したくない　みたいな

2023/03/10(金) 17:10:02.40

>>187
自分なら基本テキストボックスで直接入力
ただマウスで操作したい要望に対してはボックス横にスピンボタンを追加することで対処する
初期値を1、増減分も1にしておけば1桁程度の値ならコンボボックスと大して変わらないと思う

2023/03/10(金) 19:08:43.64

回答：無理、諦めろ。で満場一致

2023/03/10(金) 20:38:33.64

回答2:何でそんな事やりたいのだろう…

**187** (ﾜｯﾁｮｲ 8b10-vuQE) · 2023/03/10(金) 23:47:02.61

今時PCが殆ど使えない、新しい事覚えようとしないオバさんに使わせるのでなるべくキーボード入力をしないよう、パッと見で簡単に見えるように作りたいのです。
本来ならこのオバさんクビにして新しい子雇うのが早いと思うのですが…
ありがとうございました。もう一度UI考え直してみます。

2023/03/11(土) 00:19:36.43

数字くらい入力できるだろう

2023/03/11(土) 00:27:12.35

質問者も頭が悪い
わからない人になぜ標準と異なるインターフェースを使わせようとするのか
こういう人が現場に混乱をもたらす

2023/03/11(土) 02:08:47.98

わざわざ個数をドロップダウンリストから選ぶとか面倒くさすぎるだろ
規則入力で制限して直接入力させろよ

2023/03/11(土) 04:45:31.59

回答3:何でそんな事やらしてるのだろうか、

2023/03/11(土) 12:35:58.60

いや、昨今のWebアプリ(というかWeb入力)画面は、そういうの多く成ってるぞ
和暦、年、月、日、数量なんかもそのたんびドロップダウンしてスクロールしてクリック
一月一日生まれならスクロール不要だけど、十二月三十一日生まれだと毎回面倒臭い　とか
おぢさんおばさんのUIと「新しい人」向けのUIも変わって来るんだろう、たぶん
社会に出た時にそういうUIが当たり前　なんてぇ連中にとっては「何で？」の疑問符も湧かないんだろ
タッチパネルUIがメインに成ってくと、やむを得ないとかなのか知らんけど(工夫が足りないだけ？)

2023/03/11(土) 13:08:52.71

左にラジオボタン用意して
●10以下 [ ドロップダウンで数を選択 ]
○直接入力 [ テキストボックス直接入力 ]
みたいにしたらどうかな。
直接入力したければできるようにどれが最適かわからなければ手段を複数開放しとけば許されるかも

2023/03/11(土) 13:20:16.65

そういう小手先のお節介機能が、後々鬱陶しくなって属人化と揶揄されて忌避されてく元
シンプルイズベストに徹してみるのも、使い続けるためには必要　なのかも

2023/03/11(土) 14:59:28.59

UIだけじゃなくて入力デバイスのことも考える必要があるって話だな

ところで入力させるのはどこなんだよ？
シートなら>>188で解決だから、シートに入力させればいいんじゃねえか

2023/03/11(土) 15:12:26.79

>>187-188
ちょっと気になって試したが

Private Sub UserForm_Initialize()
Dim i
For i = 0 To 10
ComboBox1.AddItem (i)
Next
End Sub
Private Sub CommandButton1_Click()
MsgBox ComboBox1.Value
End Sub

普通にできるじゃねえかよ

2023/03/11(土) 20:57:24.16

あらまw
なんだったんだここ2～3日のやりとりはw

2023/03/12(日) 11:03:12.50

初心者がよく確認しないで先走っただけのこと

2023/03/14(火) 22:17:45.06

ttps://my.au.com/cmn/WCV009001/WCE009001.hc
のようなサイトにおいて、ボタンのid属性などが不明の場合、
どのようにすれば
objIE.document.getElementById(“nav-search-submit-text”).Click
のようにクリック処理が記述できるのでしょうか？

2023/03/15(水) 00:41:25.72

他のgetElementなんちゃらを使えばいいんでねーの？

2023/03/15(水) 01:44:42.30

>>207
まずhtmlソース全部見る
タグとかクラス名とかinnerHTMLとか、そこを一意に識別する方法を考える

2023/03/15(水) 19:59:06.05

>>208,209
ありがとうございます。

2023/03/22(水) 19:26:33.26

VBAをやらざるを得なくなってしまい、半月ほど初心者向けサイトをざっと見したんだけど、復習しながら練習するのにいいサイトとかないですかね？？YouTubeとかでもいいです。

2023/03/22(水) 20:16:54.25

教えてもらうくせに上から目線でサイト探しているの？

2023/03/22(水) 20:27:03.12

え？どこが上から目線？
全然普通の態度だと思うが。

2023/03/22(水) 20:35:07.68

できないと言う勇気

2023/03/22(水) 21:02:59.43

VBA やりたい事でググれば大抵出てくるOffice田中のサイトでいいんじゃないの

2023/03/22(水) 21:57:37.59

俺も別段上から目線だとは思わんな
vba100本ノックでググればいいよ

2023/03/22(水) 23:19:15.71

>>215
>>216
ありがとうございます。