Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7408 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38877】コンボボックスを作成:　動かすには 初心 06/6/13(火) 14:54 発言[未読]
【38879】Re:コンボボックスを作成:　動かすには Jaka 06/6/13(火) 16:06 回答[未読]
【38926】Re:コンボボックスを作成:　動かすには 初心 06/6/14(水) 16:18 お礼[未読]
【38930】Re:コンボボックスを作成:　動かすには sin 06/6/14(水) 17:31 発言[未読]
【39239】Re:コンボボックスを作成:　動かすには 初心 06/6/20(火) 12:54 発言[未読]
【39241】Re:コンボボックスを作成:　動かすには わいわい 06/6/20(火) 13:17 発言[未読]
【39253】Re:コンボボックスを作成:　動かすには sin 06/6/20(火) 16:47 発言[未読]
【39260】Re:コンボボックスを作成:　動かすには Jaka 06/6/20(火) 17:19 発言[未読]
【39332】Re:コンボボックスを作成:　動かすには sin 06/6/22(木) 12:33 発言[未読]
【39364】Re:コンボボックスを作成:　動かすには Jaka 06/6/22(木) 16:35 発言[未読]
【38877】コンボボックスを作成:　動かすには
発言  初心  - 06/6/13(火) 14:54 -
引用なし
パスワード
   Useform　にコンボボックスを作成
ボックス内リストを選ぶと
各マクロが動くようにしたい

1・リストをどの様にUserformにて
　　コンボボックスに見せたら良いのか？
2・上記リスト　に各マクロを登録するには？

申し訳ありませんが　教えてください。
【38879】Re:コンボボックスを作成:　動かすには
回答  Jaka  - 06/6/13(火) 16:06 -
引用なし
パスワード
   ▼初心 さん：
>1・リストをどの様にUserformにて
>　　コンボボックスに見せたら良いのか？
どうしたいのかよくわかりません。

>2・上記リスト　に各マクロを登録するには？
意味がよくわからないけど、クロ登録はできません。

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=61;id=FAQ
【38926】Re:コンボボックスを作成:　動かすには
お礼  初心  - 06/6/14(水) 16:18 -
引用なし
パスワード
   ▼Jaka さん：
>▼初心 さん：
>>1・リストをどの様にUserformにて
>>　　コンボボックスに見せたら良いのか？
>どうしたいのかよくわかりません。
>
>>2・上記リスト　に各マクロを登録するには？
>意味がよくわからないけど、クロ登録はできません。

　そうでしたか。
jakaさん
有難う御座います
【38930】Re:コンボボックスを作成:　動かすには
発言  sin  - 06/6/14(水) 17:31 -
引用なし
パスワード
   ▼初心 さん：
>Useform　にコンボボックスを作成
>ボックス内リストを選ぶと
>各マクロが動くようにしたい
>
>1・リストをどの様にUserformにて
>　　コンボボックスに見せたら良いのか？
>2・上記リスト　に各マクロを登録するには？
>
>申し訳ありませんが　教えてください。

リストにマクロを登録することはできませんが
「ボックス内リストを選ぶと各マクロが動くように」はできます

Jaka さんがご紹介されたページの
Private Sub CommandButton1_Click()
を
Private Sub ComboBox1_Change()
としてみてください。
【39239】Re:コンボボックスを作成:　動かすには
発言  初心  - 06/6/20(火) 12:54 -
引用なし
パスワード
   ▼sin さん：
>▼初心 さん：
>>Useform　にコンボボックスを作成
>>ボックス内リストを選ぶと
>>各マクロが動くようにしたい
>>
>>1・リストをどの様にUserformにて
>>　　コンボボックスに見せたら良いのか？
>>2・上記リスト　に各マクロを登録するには？
>>
>>申し訳ありませんが　教えてください。
>
>リストにマクロを登録することはできませんが
>「ボックス内リストを選ぶと各マクロが動くように」はできます
>
>Jaka さんがご紹介されたページの
>Private Sub CommandButton1_Click()
>を
>Private Sub ComboBox1_Change()
>としてみてください。

有難う御座います
ただ
1・リストをどの様にUserformにて
　コンボボックスに見せたら良いのか？
が　不明で作れないのですが・・
【39241】Re:コンボボックスを作成:　動かすには
発言  わいわい  - 06/6/20(火) 13:17 -
引用なし
パスワード
   ▼初心 さん：
>ただ
>1・リストをどの様にUserformにて
>　コンボボックスに見せたら良いのか？
>が　不明で作れないのですが・・

こんにちは、上記の意味と合っているか分かりませんが、
Private Sub UserForm_Initialize() 内に、以下（コンボボックスの名前はそちらに合わせて下さい）を追加して確認してみて下さい。

　　Dim i As Integer
　　ComboBox1.Clear
　　For i = 1 to 9
　　　　ComboBox1.AddItem i
　　Next i
【39253】Re:コンボボックスを作成:　動かすには
発言  sin  - 06/6/20(火) 16:47 -
引用なし
パスワード
   ▼初心 さん：
>▼sin さん：
>>▼初心 さん：
>>>Useform　にコンボボックスを作成
>>>ボックス内リストを選ぶと
>>>各マクロが動くようにしたい
>>>
>>>1・リストをどの様にUserformにて
>>>　　コンボボックスに見せたら良いのか？
>>>2・上記リスト　に各マクロを登録するには？
>>>
>>>申し訳ありませんが　教えてください。
>>
>>リストにマクロを登録することはできませんが
>>「ボックス内リストを選ぶと各マクロが動くように」はできます
>>
>>Jaka さんがご紹介されたページの
>>Private Sub CommandButton1_Click()
>>を
>>Private Sub ComboBox1_Change()
>>としてみてください。
>
>有難う御座います
>ただ
>1・リストをどの様にUserformにて
>　コンボボックスに見せたら良いのか？
>が　不明で作れないのですが・・

リストはどこか別の場所に格納されているということですか？
たとえばシート１のＡ列にリストがあるとすると、

Private Sub UserForm_Initialize()
　　Dim i As Long
　　
　　For i = 1 To Sheets("Sheet1").Range("A65536").End(xlUp).Row
　　　　ComboBox1.AddItem Sheets("Sheet1").Cells(i, 1).Value
　　Next i
End Sub
【39260】Re:コンボボックスを作成:　動かすには
発言  Jaka  - 06/6/20(火) 17:19 -
引用なし
パスワード
   VB6で、こう書けないのを知らなかったけど....。
エクセルVBAならこれでも良いです。

with Sheets("Sheet1")
　ComboBox1.List = .range("A1",.Range("A65536").end(xlup)).value
end with
【39332】Re:コンボボックスを作成:　動かすには
発言  sin  - 06/6/22(木) 12:33 -
引用なし
パスワード
   ▼Jaka さん：
>VB6で、こう書けないのを知らなかったけど....。
>エクセルVBAならこれでも良いです。
>
>with Sheets("Sheet1")
>　ComboBox1.List = .range("A1",.Range("A65536").end(xlup)).value
>end with


なるほど、と思ったのですが、
これは、列見出しなどには使えないですね？

　　ComboBox1.List = Range("A1:E1").Value
【39364】Re:コンボボックスを作成:　動かすには
発言  Jaka  - 06/6/22(木) 16:35 -
引用なし
パスワード
   >これは、列見出しなどには使えないですね？
ColumnHeadsのことでしょうか？
これなら、Rowsourceでセル参照しないとつかえないと思いますけど...。
セル参照すると日付などは、テキスト部にシリアル値を引っ張ってくるから、ほとんど使ったことないです。なので、詳しい事はわかりません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7408 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free