| |
こんばんわ。すずです。
とても初歩的な質問で申し訳ないです。
質問です。(以下に例を記載しました。)
「sub」をまたいだデータのやり取りの方法を教えてください。
ボタンを使用する一連の動きの中で、
同じ動作をするものをcallで呼び出し動作させたいのですが、
データの持ち出しができません。
例は２種類あります。
ボタンに以下の作業(例1 or 例2)を組みました。
実行したボタンの名前を取得できるようにしたいのですが、
取得したデータをメッセージボックスに貼り付けるとき、
以下の(例1)と(例2)の場合どちらもエラーになるのです。
(エラーというより、表示文字のないダイアログが出力される。)
------
(例1)
------
Private Sub CommandButton1_Click()
Call test1
MsgBox (onShtName)
End Sub
Sub test1()
Dim onSht As Worksheet
Dim onShtName As String
Set onSht = ActiveSheet()
onShtName = onSht.Name
End Sub
------
(例2)
------
Private Sub CommandButton1_Click()
Call test1
Call test2
End Sub
Sub test1()
Dim onSht As Worksheet
Dim onShtName As String
Set onSht = ActiveSheet()
onShtName = onSht.Name
End Sub
Sub test2()
MsgBox (onShtName)
End Sub
test1の中に「MsgBox (onShtName)」を組み込んだものは
正常に取得できたので(たとえば"sheet1")、
誤字脱字に間違いはないと思ってます。
また、今の自分の知識で考えた最大限の使いまわしだと思ってますが
もし、もっと効率のいい方法があるのでしたら、重ねて教えてください。
よろしくお願い致します。
|
|
すず
- 07/5/30(水) 1:15 -
