|
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)
|
|