Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44814 / 76732

←次へ　｜　前へ→


	【36929】Re:フォームボタンなどでのマクロ呼出しでのＳＵＢへの引数

Jaka - 06/4/18(火) 14:08 -


	引用なし

	パスワード

違う方法だけど..。

クラスモジュール（名前は、Class1）

Public WithEvents ButtonClickEvent As MSForms.CommandButton
Private Sub ButtonClickEvent_Click()
　　With ButtonClickEvent
　　　　引数 = UserForm1.ActiveControl.Caption
　　　　 Application.Run "ボタン135", 引数
　　End With
End Sub

フォームモジュール

Dim FMCls() As New Class1
Private Sub UserForm_Initialize()
　　Dim FMCNT As Long
　　FMCNT = 0
　　For Each Form_C In Me.Controls
　　　　If TypeName(Form_C) = "CommandButton" Then
　　　　　 FMCNT = FMCNT + 1
　　　　　 ReDim Preserve FMCls(1 To FMCNT)
　　　　　 Set FMCls(FMCNT).ButtonClickEvent = Me.Controls(Form_C.Name)
　　　　End If
　　Next
End Sub

標準モジュール

Sub ボタン135(hikisuu)
　MsgBox hikisuu
End Sub

5 hits

▼

【36505】フォームボタンなどでのマクロ呼出しでのＳＵＢへの引数 momo 06/4/2(日) 11:40