Excel VBA質問箱 IV

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

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


35840 / 76738 ←次へ | 前へ→

【46089】Re:シートに貼り付けたComboBox
発言  ichinose  - 07/1/22(月) 18:32 -

引用なし
パスワード
   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

これをこのブックがアクティブな状態で実行してみてください
1 hits

【46068】シートに貼り付けたComboBox k.akira 07/1/22(月) 12:26 質問
【46069】Re:シートに貼り付けたComboBox ichinose 07/1/22(月) 12:37 発言
【46072】Re:シートに貼り付けたComboBox k.akira 07/1/22(月) 13:33 質問
【46073】Re:シートに貼り付けたComboBox ichinose 07/1/22(月) 13:52 発言
【46076】Re:シートに貼り付けたComboBox k.akira 07/1/22(月) 14:47 質問
【46082】Re:シートに貼り付けたComboBox りん@とおりすがり 07/1/22(月) 16:08 回答
【46089】Re:シートに貼り付けたComboBox ichinose 07/1/22(月) 18:32 発言
【46309】Re:シートに貼り付けたComboBox k.akira 07/1/30(火) 10:43 質問
【46312】Re:シートに貼り付けたComboBox りん@とおりすがり 07/1/30(火) 13:13 発言
【46316】Re:シートに貼り付けたComboBox k.akira 07/1/30(火) 14:16 お礼

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