Excel VBA質問箱 IV

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

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


44814 / 76732 ←次へ | 前へ→

【36929】Re:フォームボタンなどでのマクロ呼出しでのSUBへの引数
発言  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

3 hits

【36505】フォームボタンなどでのマクロ呼出しでのSUBへの引数 momo 06/4/2(日) 11:40 質問
【36513】Re:フォームボタンなどでのマクロ呼出しで... Kein 06/4/2(日) 12:46 回答
【36923】Re:フォームボタンなどでのマクロ呼出しで... momo 06/4/18(火) 12:49 お礼
【36929】Re:フォームボタンなどでのマクロ呼出しで... Jaka 06/4/18(火) 14:08 発言
【36933】消し忘れた。 Jaka 06/4/18(火) 14:50 発言

44814 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free