Excel VBA質問箱 IV

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

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


53604 / 76737 ←次へ | 前へ→

【27945】Re:コンボボックスの設定
お礼  助けてください!  - 05/8/25(木) 4:19 -

引用なし
パスワード
   解決しました!!!

ありがとうございました。


▼ponpon さん:
>こんばんは。。。
>
>ユーザーフォームにコマンドボタンやコンボボックスを貼り付けるときに、
>左側上の方に「プロジェクト」下の方に「プロパティー」が、ありますでしょ。
>貼り付けたコンボボックスをクリックすると、コンボボックスにフォーカスがあたります。
> その時、「プロパティー」を上から見ていくと、RowSourceというのがあって、右側が、
>空欄になってますよね? その空欄に「sheet3!A3:A15」と書くと、シート3のA3:A15が、
>コンボボックスのリストになります。
>
>マクロで書くと、以下のようになります。フォームモジュールにコピペしてください。
>
>これは、あまり使わないと思います。
>Private Sub UserForm_Initialize()
> Me.ComboBox1.RowSource = Sheets("Sheet3").Range("A3:A15").Address
>End Sub
>
>Jaka さんが、書いていたのは、下の事だと思います。
>
>Listメソッドを使って
>Private Sub UserForm_Initialize()
> Me.ComboBox1.List = Sheets("Sheet3").Range("A3:A15").Value
>End Sub
>
>AddItemメソッドを使うと、
>
>Private Sub UserForm_Initialize()
> For i = 3 To 15
>   Me.ComboBox1.AddItem Worksheets("sheet3").Range("A" & i).Value
> Next i
>End Sub
>
>Cellsを使えば、
> 上記の
> Me.ComboBox1.AddItem Worksheets("sheet3").Range("A" & i).Value
> が、
> Me.ComboBox1.AddItem Worksheets("sheet3").Cells(i, 1).Value
> や
> Me.ComboBox1.AddItem Worksheets("sheet3").Cells(i, "A").Value
> になります。
>
> ヘルプで調べて、いろいろ試してください。
0 hits

【27924】コンボボックスの設定 けん 05/8/24(水) 15:12 質問
【27927】Re:コンボボックスの設定 Jaka 05/8/24(水) 16:05 発言
【27931】Re:コンボボックスの設定 けん 05/8/24(水) 17:02 質問
【27944】Re:コンボボックスの設定 ponpon 05/8/25(木) 1:50 発言
【27945】Re:コンボボックスの設定 助けてください! 05/8/25(木) 4:19 お礼

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