Excel VBA質問箱 IV

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

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


63842 / 76738 ←次へ | 前へ→

【17487】Re:イベントが実行されません
回答  Kein  - 04/8/31(火) 17:26 -

引用なし
パスワード
   コントロールツールボックスのコントロールでなく、フォームのコントロールを
使えば、登録するマクロを一つにまとめることが出来ます。一例として
アクティブシートの A2:A6 の各セルにぴったり収まるボタンを配置し、押された
ボタンによって違う処理をさせるなら

Sub ボタン配置()
  Dim Tp As Single, Wp As Single, Hp As Single
  Dim i As Integer

  With Range("A2")
   Wp = .Width: Hp = .Height
  End With
  For i = 2 To 6
   Tp = Cells(i, 1).Top
   ActiveSheet.Buttons.Add 0.1, Tp, Wp, Hp
  Next i
  ActiveSheet.Buttons.OnAction = "Test1"
End Sub

Sub Test1()
  Dim x As Variant

  x = Application.Caller
  If VarType(x) <> 8 Then Exit Sub
  Select Case x
   Case "ボタン 1"
     処理A
   Case "ボタン 2"
     処理B
   Case ・・・
  End Select
End Sub 
 

0 hits

【17441】イベントが実行されません SHIP 04/8/29(日) 20:28 質問
【17456】Re:イベントが実行されません Jaka 04/8/30(月) 12:22 回答
【17487】Re:イベントが実行されません Kein 04/8/31(火) 17:26 回答
【17489】Re:イベントが実行されません Jaka 04/8/31(火) 17:38 発言
【17491】Re:イベントが実行されません Asaki 04/8/31(火) 17:52 発言

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