|
k.akira さん、りんさん、こんばんは。
>が動きません?
>他のオブジェクトにもコードの入力が必要なのでしょうか?
意図した動作をしない場合は、もう少し具体的に記述してください。
例えば、
コード上のxxxxxという箇所で「xxxx」というエラーが発生したとか。
プログラムは正常に終了しているようですが、何も起こりません。
xxxxxxxという動作を期待していたのですが・・・。とか・・・。
k.akira さんの記述では、何が問題なのかわかりません。
りんさんのコードで希望通りならそれでよいのですが・・。
何も配置しない(コンボボックスも)新規ブック
(Sheet1、Sheet2というシート名は 存在する)
の標準モジュールに
'================================================================
Sub Main()
Dim rng As Range
With Worksheets("sheet1")
Set rng = Range("b6:d7")
With .OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Left:=rng.Left, _
Top:=rng.Top, _
Width:=rng.Width, _
Height:=rng.Height)
Worksheets("sheet2").Range("a1:a5").Value = _
[transpose({"a","b","c","d","e","f"})]
MsgBox "Sheet1にコンボボックスを配置しました。 実際は、手動で配置してください" _
& vbCrLf & "Sheet2のセルA1:A5にa,b,c,d,eを入力いしました"
.ListFillRange = "=sheet2!a1:a5"
MsgBox "コンボボックスにリストデータを設定しました"
.Parent.Activate
.Object.DropDown
End With
End With
End Sub
これをこのブックがアクティブな状態で実行してみてください
|
|