Excel VBA質問箱 IV

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

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


21441 / 76738 ←次へ | 前へ→

【60696】Re:リストボックスで選択した名前をセルに入れたいんですが
質問  みどり  - 09/3/9(月) 16:41 -

引用なし
パスワード
   Jaka さん、お返事有難う御座います。

前回の質問で教えていただいたVBAがいちばん理想的な作業が出来
ありがたく使わせていただきたいと考えています。
しかし、下記の内容ですと、選択してないリストボックスが有るから
繰り返せないということじゃないんでしょうか?
私がお伺いしたかった内容の説明不足で何度も申し訳御座いませんが
前回教えていただいたVBAを使って仮にC10に営業担当者をAAAさんと
入力して次にC11(C10以外のセル)を選択してもリストが表示されない
ので営業担当者を入力できません。
一度エクセルを閉じてもう一度立ち上げるとまたもう一人は選択して
入力が出来るのですが、1000回近くもエクセルを閉じたり開いたりは
ちょっと苦しいとおもいますので
この作業をC2〜C1000にほとんどのセルで(たまに空白もありますが)
エクセルを開いたまま繰り返し作業をしたいのですが分かって
いただけたでしょうか?
是非、お力をお貸しください。
宜しくお願いします。


>こういうので良いんじゃないですか?
>
>Dim Flg As Boolean
>
>If ListBox1.ListIndex < 0 Then
>  Flg = True
>End If
>If ListBox2.ListIndex < 0 Then
>  Flg = True
>End If
>If ListBox3.ListIndex < 0 Then
>  Flg = True
>End If
>If ListBox4.ListIndex < 0 Then
>  Flg = True
>End If
>
>If Flg = True Then
>  MsgBox "選択されていないリストボックスがあります", vbExclamation
>  Exit Sub
>End If
>
>Range("A1").Value = ListBox1.List(ListBox1.ListIndex)
>Range("A2").Value = ListBox2.List(ListBox2.ListIndex)
>Range("A3").Value = ListBox3.List(ListBox1.ListIndex)
>Range("A4").Value = ListBox4.List(ListBox1.ListIndex)
9 hits

【60620】リストボックスで選択した名前をセルに入れたいんですが みどり 09/3/5(木) 12:51 質問
【60621】Re:リストボックスで選択した名前をセルに... kanabun 09/3/5(木) 13:18 発言
【60622】Re:リストボックスで選択した名前をセルに... みどり 09/3/5(木) 15:33 質問
【60623】Re:リストボックスで選択した名前をセルに... kanabun 09/3/5(木) 15:50 発言
【60625】Re:リストボックスで選択した名前をセルに... Jaka 09/3/5(木) 16:28 発言
【60626】Re:リストボックスで選択した名前をセルに... Jaka 09/3/5(木) 16:33 発言
【60636】Re:リストボックスで選択した名前をセルに... Jaka 09/3/6(金) 9:19 発言
【60653】Re:リストボックスで選択した名前をセルに... みどり 09/3/6(金) 15:47 質問
【60654】Re:リストボックスで選択した名前をセルに... Jaka 09/3/6(金) 16:22 発言
【60656】Re:リストボックスで選択した名前をセルに... みどり 09/3/6(金) 16:58 質問
【60690】Re:リストボックスで選択した名前をセルに... Jaka 09/3/9(月) 9:43 発言
【60696】Re:リストボックスで選択した名前をセルに... みどり 09/3/9(月) 16:41 質問
【60697】Re:リストボックスで選択した名前をセルに... Jaka 09/3/9(月) 17:30 発言
【60700】Re:リストボックスで選択した名前をセルに... みどり 09/3/9(月) 20:03 質問
【60706】Re:リストボックスで選択した名前をセルに... Jaka 09/3/10(火) 9:15 発言
【60709】Re:リストボックスで選択した名前をセルに... みどり 09/3/10(火) 11:34 お礼
【60713】Re:リストボックスで選択した名前をセルに... Jaka 09/3/10(火) 11:47 発言
【60714】Re:リストボックスで選択した名前をセルに... みどり 09/3/10(火) 14:41 お礼

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