VBA - ComboBoxと関連コードの追加

このコードは比較的単純で、これ以上の説明は必要ありません。

これら2つのsubを一般的なモジュール（例：Module1）に貼り付けます。

 Option Explicit SubCréerCombo（範囲としてLier、ワークシートとして任意Sh、範囲として任意Emplacement）文字列としてDimコード、整数としてDimコード、Shが何もない場合はNumストリングに設定Sh = ActiveSheet Shの場合は終了Ixを選択= ActiveSheet.OLEObjects.Count + 1 Num = "0"＆1x：Num = Right（Num、2） '配置がない場合は99個のボタンを入力してください'その後、配置の詳細デフォルト設定Emplacement = ActiveCell Endがある場合は配置Set Obj = ActiveSheet.OLEObjects.Add（ClassType：= "Forms.Combobox.1"、_ Link：= False、DisplayAsIcon：= False、Left：=。Left、Top：=。Top、Width：=。ColumnWidth * 5.65 、Height：=。RowHeight）Obj.Name = "ComboB_"＆Num End With 'ActiveSheet.OLEObjects（Ix）.Placement = xlMoveAndSize.PrintObject = True .ListFillRange = Lier.Addressで終了マクロコード= vbCrLf＆ "Private Sub ComboB_"＆Num＆ "_Change（）"＆vbCrLfコード= code＆ "MsgBox" "Vous avezセレクタの選択" "＆ComboB_"＆Num＆ ".Text、、" "ComboB_" ＆Num＆ "" ""＆vbCrLf code = code＆ "End Sub" 'ActiveWorkbook.VBProject.VBComponents（ActiveSheet.Name）を使用してマクロの最終モジュールを作成する.CodeModule.insertlines .CountOfLines + 1、End Endサブ

Excel 2007の例をダウンロードします。

プロジェクトをダウンロードしてください。