下記コードでcomboboxをつくったのですが
作成されたCombobox1のComboBox1_Changeエベントに
標準モジュール内のSub cal をVBAで割り当てたいのですが可能でしょうか。
コンボボックス作成マクロ
x=0
y=0
With Worksheets("Sheet1").OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False)
.Left = X
.Top = Y
.Width = 53.25
.HEIGHT = 18
.ListFillRange = "AAA"
End With
これで作成したコンボボックスに標準モジュール内マクロをVBAで割りあてしたい。
標準モジュール
sub cal
・
・
end sub
No.3ベストアンサー
- 回答日時:
三度です
>ComboBoxを貼り付けるシートも毎回作成するのでこれもだめで
打開案ですがどうでしょうか?
作成するシートにComboBoxを貼り付けるのではなく、
ComboBoxが張り付いているシートをコピーする
(ComboBoxが張り付いているシートは非表示)
これだと、関数自体もコピーされますし、
関数名も固定でいけます
参考までに
この回答への補足
説明不足ですみません。
Sheet1でComboBoxを何個貼り付けるか決定(1~100)
そのあとSheet2に貼り付ける
その貼り付け位置も他の条件で12種類あるので
かなり複雑になりそうです。
が、ほかに方法もなさそうなのでやってみます。
No.2
- 回答日時:
勘違いすみません
OnActionプロパティでマクロを登録するのですが、ComboBoxだとできないみたいです。
ちなみに、CheckBoxだとできます。
With ActiveSheet.CheckBoxes.Add(10, 10, 20, 20)
.Name = "CheckBox " & .Index
.Caption = ""
.OnAction = "cal"
End With
手として
ComboBox_Change関数をあらかじめ複数個書いておく
というのはダメでしょうか?
この回答への補足
ありがとうございました。
ComboBoxはだめですか。
ComboBox_Change関数をあらかじめ複数個書いておくのも考えたのですがそもそもComboBoxを貼り付けるシートも毎回作成するのでこれもだめで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで指定シート以外の選択
-
特定の文字を含むシートだけマ...
-
【ExcelVBA】全シートのセルの...
-
実行時エラー'1004': WorkSheet...
-
別のシートから値を取得するとき
-
エクセルの絶対参照の一括操作...
-
ユーザーフォームに入力したデ...
-
シートが保護されている状態で...
-
エクセルのマクロでアクティブ...
-
ブック名、シート名を他のモジ...
-
excelのマクロで該当処理できな...
-
セルの値によって、シート見出...
-
VBAエクセルの非アクティブシー...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
VBAでオブジェクト変数にsetし...
-
エクセルのマクロで条件一致の...
-
エクセルVBA Ifでシート名が合...
-
VBA 存在しないシートを選...
-
【エクセル】オプションボタン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelのマクロで該当処理できな...
-
特定の文字を含むシートだけマ...
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
別のシートから値を取得するとき
-
実行時エラー'1004': WorkSheet...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
ブック名、シート名を他のモジ...
-
同じ作業を複数のシートに実行...
-
エクセルのシート名変更で重複...
-
VBAで指定シート以外の選択
-
VBAで同じシート名のコピー時は...
-
シートが保護されている状態で...
-
ExcelのVBAのマクロで他のシー...
-
実行時エラー1004「Select メソ...
-
IFステートの中にWithステート...
-
Worksheet_Changeの内容を標準...
-
【Excel VBA】Worksheets().Act...
-
VBA 存在しないシートを選...
おすすめ情報