| |
▼iland さん：
おはようございます。
>ユーザーフォームのボタンに下記のコードを書いたところ、
>
>Private Sub CommandButton1_Click()
>Dim A As Variant
>A = Application.Caller
>MsgBox A
>End Sub
>
>エラーが起きてしまいます。
>クイックウォッチ（でしたっけ？）を利用し、Application.Callerの値を見てみると、エラー2033と表記されます。
上記の条件で、
Application.Callerの値をエラー値にしないようにするのは簡単ですが・・・
（適当なシート上にコマンドバー「フォーム」にあるボタンを配置し、
sub main()
userform1.show
end sub
等と標準モジュールに記述したプロシジャーmainを前述のシート上に配置したボタンに
登録する）。
でも、これではエラーにはなりませんが、iland さんが望まれている結果でも
ないのではないかと思います。
つまり、Application.Callerでは望んでいる値は取得できない
と、推測します。
スレッドの近いところでは、
www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=49892;id=excel
↑これと同じような内容でしょうか？
あくまでも推測ですが・・・。
|
|
ichinose
- 07/6/28(木) 7:27 -
