Excel 値渡し

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
'If Target.Value = "開始" Then
Call 問題選択
Exit Sub
End If
If …以下省略

上記の場合、「問題選択」が保持している変数（→分類(9,9)、番号(10)、問(20)）の値をイベントプロシージャに渡す方法を教えてください。

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2012/09/29 22:49

引数を書いて変数を記述する。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　Dim 分類(9,9) as integer
　Dim 番号(10) as integer
　Dim 問(20) as string


'
'If Target.Value = "開始" Then
　Call 問題選択(分類(), 番号(), 問())
　
　msgbox 分類(0, 0) & "/" & 分類(1, 3) & "/" & 番号(2) & "/" & 問(3)

　Exit Sub
　End If
If …以下省略


sub 問題選択(分類() as integer, 番号() as integer, 問() as string)

　分類(0, 0) = 1
　分類(9, 9) = 99
　番号(2)=12345
　問(3)="ABC"

end sub

この回答へのお礼

回答いただきましてありがとうございます。

お礼日時：2012/09/30 08:21