Excel VBA質問箱 IV

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

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


11203 / 13644 ツリー ←次へ | 前へ→

【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 発言[未読]

【17441】イベントが実行されません
質問  SHIP  - 04/8/29(日) 20:28 -

引用なし
パスワード
   バージョン)EXCEL2000

今シート上に動的にコントロールを作成したり削除したりする(コントロールの数の上限は決まっている)処理を作っています。
そこで、コンボボックス、コマンドボタンにそれぞれイベントがあるので、あらかじめ上限分のイベント(CommandButton_Click、ComboBox_Change)を作成しておいて、OLEObjects.AddとOLEObjects("コントロール名").Deleteを使用して処理を作成しました。
その際

Dim Ole As OLEObject

OLEObjects("コントロール名").Delete
Set Ole = OLEObjects.Add Left:=〜
Ole.Name = "コントロール名"

として作成したにもかかわらず、コントロール名_Click()イベントが実行されません。しかもイベントが発生する場合もあり、現象がランダムです。
原因はどうやらイベントが発生しなかったコントロールはデザインモードのプロパティウインドウには定義した"コントロール名"ではなくCommnadButton12などになっていて認識されていない様子です。

どなたか回避方法をご存知の方教えてください。お願いします。

【17456】Re:イベントが実行されません
回答  Jaka  - 04/8/30(月) 12:22 -

引用なし
パスワード
   こんにちは。
初めからコード書いてあるんだったら、作ったり消したりせずに表示非表示にした方が、いいと思いますけどね。
気づかないようなバグも結構ある見たいだし...。

CommandButton1.Visible = False
CommandButton1.Visible = True

【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 
 

【17489】Re:イベントが実行されません
発言  Jaka  - 04/8/31(火) 17:38 -

引用なし
パスワード
   こんにちは。

ここにもいっぱい解答がついているみたいですよ。
どっちも無反応ですけど...。
http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200408/04080274.txt

【17491】Re:イベントが実行されません
発言  Asaki  - 04/8/31(火) 17:52 -

引用なし
パスワード
   みなさま、こんにちは。

1つ目の Jaka さんのレスがつく前に、既にMougで解決済みなんです。

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