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/04(土) 22:07:02.46

>>63
すみません、安価こっちでした
>>62さんも>>64さんもありがとうございました！

2023/02/05(日) 06:12:14.98

>>65

解決の糸口が見つかってよかったです。
シートに貼り付けるのは一見かっこ悪く見えるかもしれませんが、エクセルの場合シート自体が目視できる2次元配列みたいなものなのでデータ用のシートを用意しておくのはデバッグの意味でも有効と思います。
最終的に非表示にしておけばデータを変えて不具合が出たときに参照できますしね。

2023/02/05(日) 17:55:21.75

シートに読み込ませてUsedRange.Valueで二次元配列を取得する場合はインデックスが1オリジンになるとこだけ注意

2023/02/08(水) 13:33:38.06

名前の定義で範囲に名前をつけると数式で使用できますが、
VBAで自作関数を作り、その引数として定義した名前を使用するとエラーとなってしまいます。
一応定義した名前の後に&“”を付けて文字列化すればエラーを回避できるのですが、毎回これを入力するのは煩わしく見栄えも悪いのでできることならなんとかしたいのですが
解決策ありましたらご教示の程お願いいたします。

2023/02/08(水) 14:59:06.65

その関数のシグネチャとエラーメッセージぐらいかけよ

2023/02/08(水) 15:37:35.62

毎回やるならインターフェース関数作ればいいだけ

2023/02/08(水) 20:18:25.84

>>69
実現したいことがどんなことなのかわからないけど名前定義した範囲をRange型の変数にsetしてRange型のまま引数として渡しちゃいかんの?

2023/02/08(水) 23:15:53.95

言葉でうまく説明できないので画像で説明させていただきます。
例えば引数の文字列に別の文字列をくっつけて返すだけのシンプルな関数を作ります。
当然引数にセルを指定すれば問題なく使用できます。
https://i.imgur.com/SnSyEby.png

次に、範囲に名前をつけてそれを引数として使用します。
https://i.imgur.com/6mcu5nn.png

するとこのように「#VALUE!」エラーが出ます。
https://i.imgur.com/9NNr0sB.png

ちなみに範囲の名前に&“”をつければ期待通りの結果になります。
https://i.imgur.com/haXX7gC.png

と、SS撮ってて気づきましたが範囲の中から同じ行のセルを選んで渡す必要があるのですね。
VLOOKUPの第一引数なんかで同じことをすると自動的に同じ行だけを渡せるので勘違いしていました。

2023/02/09(木) 07:05:59.22

>>73
検証してないので的外れかもしれないけどたぶんRangeのデフォルト値の問題かと。
うろ覚えだけどvariant型で渡されているからセル単体を引数で渡すとセル内容の値の型（今回はstring型）を渡すけど
複数セルを渡すとrange型のオブジェクトとして渡されてるんじゃないかな。
なので自身で書かれているようにセルを特定してあげないといけないのだと思う。

2023/02/09(木) 23:30:18.42

>>73
>範囲の名前に&“”をつければ期待通りの結果になります
のがおかしい気がするんだが。実際こっちで検証してもエラーになってる
ちょっと環境書いてみて

2023/02/13(月) 03:20:36.33

Sub test()
a = 0.2
b = 0.4
If a + b = 0.6 Then
Debug.Print "A"
Else
Debug.Print "B"
End If
End Sub

これってAじゃね？

2023/02/13(月) 07:05:23.93

>>76
Excelでは少数を厳密には表現できないから
0.1と書いても実際の値には0.12...みたいなのが入る
そのズレた値同士の足し算をズレた値と比べるからガタガタで合わなくなる

2023/02/13(月) 07:53:01.46

>>76
きちんと型宣言すればちゃんと計算できる
詳しくは下を見た方が早い
https://excel-ubara.com/excelvba4/EXCEL_VBA_427.html#:~:text=Single%EF%BC%88%E5%8D%98%E7%B2%BE%E5%BA%A6%E6%B5%AE%E5%8B%95%E5%B0%8F%E6%95%B0%E7%82%B9%E6%95%B0%E5%9E%8B%EF%BC%89%E3%81%AF4%E3%83%90%E3%82%A4%E3%83%88,%E7%99%BA%E7%94%9F%E3%81%97%E3%81%A6%E3%81%97%E3%81%BE%E3%81%84%E3%81%BE%E3%81%99%E3%80%82

2023/02/13(月) 10:13:40.33

>>76
ほんとだよく気付いたねって言ってほしいのか？

2023/02/13(月) 10:18:31.40

すみません、マクロスレに誘導されてきました。教えてください
【1 OSの種類　　　　 .】 Windows**
【2 Excelのバージョン　】 Excel16.0
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
◆やりたいこと
データモデルに値を格納し接続先を作成している
その接続先にあるリストを、検索フォーム、コンボボックスなどのデータソースにしたい
◆補足情報とし調べがついてること
・ピボットテーブルにはビボットテーブル→データモデルからで設定できた
・選択リストもINDIRECT関数で設定できた
・コンボボックスや検索フォームは、RowSourceTypeにテーブルクエリーを設定
・RowSourceプロパティにテーブル名を設定
ここまではわかっていますが、うまく設定ができません

具体的には、下記コードでエラーが出ます
実行時エラー‘13’
型が一致しません

エラーの出たコード
Privets Sub UserForm1 Initialize() {
Me.ComboBox1.RowSourceType = “Table/Query”
Me.ComboBox1.RowSource = “syamei1”
}

上記のコードの書き方、サンプルコードがあれば教えて下さい。よろしくお願いします

2023/02/13(月) 10:21:58.10

連投すみません
コンボボックスじゃなくても構いません
やりたいことは大量のデータをもとに入力用のポップアップウインドウを作りたいです
レコードが合計で100万以上あり、重たくなるのを避けるために、データモデルの概念を知り、それで入力フォームを作ろうとしています
その方法でコンボボックスを見つけましたが、元となるデータソースがデータモデルの接続先から選べるなら、コンボボックスの形式じゃなくても構いません

入力規則で選択リストの値を持ってくることはできましたが、レコード件数が多いので、フォームで出したいと思っています

よろしくお願いします

2023/02/13(月) 11:40:19.98

Privets ？

2023/02/13(月) 14:18:20.91

スマホ手打ちなので誤字は勘弁を

2023/02/13(月) 17:29:24.70

スマホで5ちゃん見てる人も多くなったのか

2023/02/14(火) 11:37:45.99

拙者も携帯なので試せないでござるよ

2023/02/14(火) 13:19:18.08

現場で使えるテクニック満載のVBAの本を教えて下さい。

2023/02/14(火) 22:18:21.54

見てどうする？
現場に活かせるとは限らんぞ

2023/02/15(水) 09:38:23.37

syamei1ってテーブルを指定してるようだけど
ちゃんとテーブルが存在してるの？
RowSourceでクエリやsql指定してみたら？

2023/02/15(水) 19:02:02.67

>>87
活かせる現場に転職するんじゃね

2023/02/15(水) 19:27:38.40

ネットが見れない環境なんかね？
銀行系ではよくある話だけど

2023/02/15(水) 19:39:09.60

絆創膏テクニック的な本はたくさん出ているでしょ

2023/02/15(水) 20:32:13.82

銀行でお金の計算を初心者が本見ながらEXCELのVBAで作ってるとか
そんな銀行やばくね

2023/02/16(木) 02:33:56.63

ヤバいよそれは。
思い出したけど、どこかの銀行がATMの不具合出した事故を思い出したわ。
それと同じようなトラブルになるのでは？

2023/02/16(木) 14:14:15.80

Excel 365なんだが
ActiveXのコンボボックスをシートに配置すると
ブックを閉じるときにコンボボックスのChangeイベントが発生して
Changeイベントのコードが実行されるんだが、なんで閉じるときに発生するん？
バグじゃねーの？

2023/02/16(木) 17:40:38.79

アクティブXコントロールでボタン作ると、ボタン押した時にボタン内の文字が左に寄るのですが、これは治せるのでしょうか？

2023/02/16(木) 17:44:23.49

ActiveXオブジェクトは、自分(Application)のオブジェクトに見えても、実は外部のオブジェクトです
Application イベントの扱いで記述不足や漏れが無いか、プロパティの見直しなどしてみるかコードを貼ってみるなり

2023/02/16(木) 20:35:33.62

ActiveXってExcelで使わない方が良いみたいな記事(日経PC)で見た記憶ある

2023/02/17(金) 07:12:43.98

ActiveXはExcelシートで使うもんじゃないってのは今でも定石！

2023/02/17(金) 10:04:33.80

https://answers.microsoft.com/ja-jp/msoffice/forum/all/office-2016-の-activex/81aa0b17-2f60-49c3-83f7-02c164969f7c

Excel2016のバグなんですね

2023/02/17(金) 10:05:10.85

https://answers.microsoft.com/ja-jp/msoffice/forum/all/office-2016-の-activex/81aa0b17-2f60-49c3-83f7-02c164969f7c

2023/02/17(金) 10:15:37.69

そんな古いVer使い続けるなよ　スタンドアロンで一台こっきりならまだしも

2023/02/17(金) 15:42:35.67

検索で例えば「あ」という文字をすべて探し出して
その一文字前を選択したいんですがどうすればいいですか？
Selection.Find
　.Text = "あ"
　Selection.Words.First.Previous.Select
としてみましたがうまく行きませんでした
カーソルのある前の文字が選択されます

2023/02/17(金) 16:30:19.83

>>102
複数の選択ができると思ってんのか？

2023/02/17(金) 17:31:12.72

>>103
できないんですね…VBA触ったの今日が初めてなもので
最終的には"あ"の一文字前だけをフォント変更したいんですがどういう実装ならできそうか分かりませんか？

2023/02/17(金) 20:35:48.06

>>104

自分なら検索して見つかったセル毎に
「あ」が何文字目にあるかを取得し、
その１文字前のフォントを変更するというふうに組む。

2023/02/17(金) 20:59:53.94

>>105
ありがとうございます
けど"あ"が複数あるセルも多いので…複数回走査したらループ終わらなくなりますし
"あ"は目印として入れてあるだけで最後にまとめて消すつもりだったんですが
一回フォント変更の処理したらそこの"あ"を消してもう一度検索がいいんでしょうか…

2023/02/17(金) 22:23:30.64

>>106
Mid( Range.value, x)で
セル内のx文字目から後ろを切り出せる
Instr( Mid( Range.value, x), z)で
セル内のx文字目から切り出した中で文字列zが何文字目にくるのか知ることができる
Range.characters(x, y).Fontで
セル内のx文字目からy文字分みたいな一部指定でのフォント変更が出来る

これらのxやyをForで変更しながら処理すればいけると思う

2023/02/17(金) 22:57:47.99

>>107
あああなるほどなるほど
仰ってる意味はギリわかるんですけどコードいじるのほぼ10年ぶりとかなんでハードル高い～～～
どうにかがんばってみます……
ありがとうございました

2023/02/18(土) 11:21:39.71

>>108
コードを書いてみた。
所定のフォントを変えた後、最後にまとめて「あ」を空白に置換させている。

Sub findあ()
　Dim foundcell As Range, firstcell As Range, target As Range, Num As Long, flag As Boolean
　Set foundcell = Cells.find(What:="あ")
　If foundcell Is Nothing Then Exit Sub
　　Set firstcell = foundcell:Set target = foundcell
　　Do
　　　Num = InStr(foundcell, "あ")
　　　If Num > 1 Then
　　　　flag = False
Do
If flag = False Then Num = 0
Num = InStr(Num + 1, foundcell, "あ")
If Num = 0 Then Exit Do
foundcell.Characters(Start:=Num - 1, Length:=1).Font.Name = "BIZ UDゴシック"：flag = True
Loop
End If
Set target = Union(target, foundcell)
Set foundcell = Cells.FindNext(foundcell)
Loop Until foundcell.Address = firstcell.Address
target.Replace What:="あ", Replacement:=""
End Sub

**109** (ﾜｯﾁｮｲ fd49-H4qV) · 2023/02/18(土) 11:39:38.68

途中で書き込んでしまったので
もし使うならインデント調整して下さい

2023/02/18(土) 18:22:51.48

>>109-110
ご親切にありがとうございます！！
有り難く使わせていただきます

2023/02/19(日) 13:44:33.87

次のようにA列にid番号、B列に削除されるid番号あります。
A,B
1,3
2,5
3,7
4,
5,
6,
7,
8,
9,

C列にAからBの番号を除外したものが残ります。
C,
1
2
4
8
9

これを実現するのに、みなさんならセル関数を使いますか？VBAを使いますか？

2023/02/19(日) 14:09:46.37

バージョンは

2023/02/19(日) 14:50:51.24

ver2019です。

2023/02/19(日) 15:46:46.73

手動も含めて一番都合がいいのを使う

2023/02/19(日) 16:33:34.29

ありがとうございます。慣れないですがVBAで行うことにしました。

2023/02/19(日) 16:36:15.42

以下の実行が通りません。
If init_id(i) = del_id(j) Then
の個所でインデックスの範囲外というエラーがでました。
配列に対して添字を()しているのが問題でしょうか？

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

init_id = Worksheets("Play").Range(Worksheets("Play").Cells(2, 1), Worksheets("Play").Cells(totalQuestions + 1, 1)).Value

pastQuestions = Worksheets("arrData").Cells(Rows.Count, 2).End(xlUp).Row - 1
del_id = Worksheets("arrData").Range(Worksheets("arrData").Cells(2, 2), Worksheets("arrData").Cells(pastQuestions + 1, 2)).Value

Dim i As Integer, j As Integer
For i = 1 To totalQuestions
For j = 1 To pastQuestions
If init_id(i) = del_id(j) Then
Debug.Print init_id(i).Value
End If
Next j
Next i

End Sub

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

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