Excel VBA質問箱 IV

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

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


40835 / 76732 ←次へ | 前へ→

【40987】ユーザーフォームで追加したボタンにマクロを割り当て...
質問  sin  - 06/7/27(木) 12:58 -

引用なし
パスワード
   いつもお世話になっています。
ユーザーフォームの中にフレームを置き、
検索結果を表示させたく、下記のようにテストしていたのですが、
追加したボタンにマクロを割り当てる方法が分かりません。
「OnAction」は使えないのでしょうか?
(下記テストでは20個ですが、実際には不定です)
よろしくお願いします。


Private Sub CommandButton1_Click()
  Dim i As Long
  Dim txtb As Object
  Dim cmdb As Object
  
  For i = 0 To 19
    
    Set txtb = Frame1.Controls.Add("Forms.TextBox.1", "testt" & i, True)
    With txtb
      .Top = 5 + i * 20
      .Left = 5
      .Height = 18
      .Width = 100
    End With
    
    Set cmdb = Frame1.Controls.Add("Forms.CommandButton.1", "testc" & i, True)
    With cmdb
      .Top = 5 + i * 20
      .Left = 110
      .Height = 18
      .Width = 40
      .Caption = "test" & i + 1
'      .OnAction = "testprc"     '←これは使えない??
    End With
  
  Next i
  
  Frame1.ScrollHeight = 5 + i * 20

End Sub

Sub testprc()

  MsgBox "ok"

End Sub
2 hits

【40987】ユーザーフォームで追加したボタンにマクロを割り当て... sin 06/7/27(木) 12:58 質問
【40990】Re:ユーザーフォームで追加したボタンにマクロを割り当... ichinose 06/7/27(木) 13:34 発言
【41001】Re:ユーザーフォームで追加したボタンにマクロを割り... sin 06/7/27(木) 15:49 お礼
【41017】Re:ユーザーフォームで追加したボタンにマクロを割り... sin 06/7/27(木) 18:35 お礼
【40991】Re:ユーザーフォームで追加したボタンにマクロを割り当... 角田 06/7/27(木) 13:48 発言
【41003】Re:ユーザーフォームで追加したボタンにマクロを割り... sin 06/7/27(木) 15:53 お礼

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