Excel VBA質問箱 IV

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

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


5003 / 13646 ツリー ←次へ | 前へ→

【53135】リストボックスで表示される候補1個を選択させる ベナジザ 07/12/16(日) 23:03 質問[未読]
【53136】Re:リストボックスで表示される候補1個を... ponpon 07/12/16(日) 23:31 発言[未読]
【53137】Re:リストボックスで表示される候補1個を... ベナジザ 07/12/17(月) 0:02 質問[未読]
【53139】Re:リストボックスで表示される候補1個を... Jaka 07/12/17(月) 9:54 発言[未読]
【53163】Re:リストボックスで表示される候補1個を... ベナジザ 07/12/17(月) 23:34 お礼[未読]

【53135】リストボックスで表示される候補1個を選...
質問  ベナジザ  - 07/12/16(日) 23:03 -

引用なし
パスワード
   いつもお世話になっております。
リストボックスに数個のデータ(RowSource)を表示させた後、"DataX"を選択したいと考え

With ListBox
   .RowSource = "[" & FileA & "]ASY!D" & GyoStrt & ":" & "F" & GyoEnd
   .Text = DataX
End With

と言うコードにしたのですが、選択されません。選択するためのコードをアドバイスねがいます。
なお、Excel97でVBA作成しております。

【53136】Re:リストボックスで表示される候補1個...
発言  ponpon  - 07/12/16(日) 23:31 -

引用なし
パスワード
   ▼ベナジザ さん:

>なお、Excel97でVBA作成しております。
持っていないので、確認できませんが・・・

>With ListBox
>   .RowSource = "[" & FileA & "]ASY!D" & GyoStrt & ":" & "F" & GyoEnd
>   .Text = DataX
>End With

単に
 .Text = "DataX"
とするだけでよいのでは?

【53137】Re:リストボックスで表示される候補1個...
質問  ベナジザ  - 07/12/17(月) 0:02 -

引用なし
パスワード
   ▼ponpon さん:
>▼ベナジザ さん:

回答有難うございます。
説明が不足しているようで。。。
 .RowSource = "[" & FileA & "]ASY!D" & GyoStrt & ":" & "F" & GyoEnd
で設定したシートの範囲中の1つのデータ DataX に読み込み、選択した候補としたいのです。よろしく おねがいします。

>>なお、Excel97でVBA作成しております。
>持っていないので、確認できませんが・・・
>
>>With ListBox
>>   .RowSource = "[" & FileA & "]ASY!D" & GyoStrt & ":" & "F" & GyoEnd
>>   .Text = DataX
>>End With
>
>単に
> .Text = "DataX"
>とするだけでよいのでは?

【53139】Re:リストボックスで表示される候補1個...
発言  Jaka  - 07/12/17(月) 9:54 -

引用なし
パスワード
   Private Sub UserForm_Initialize()
Dim ADR As String, Lno As Variant
ADR = Me.ComboBox1.RowSource
Lno = Application.Match(DataX, Range(ADR), 0)

If Not IsError(Lno) Then
  Me.ComboBox1.ListIndex = Lno - 1
End If
End Sub

因みに、チェンジイベントが発生します。

【53163】Re:リストボックスで表示される候補1個...
お礼  ベナジザ  - 07/12/17(月) 23:34 -

引用なし
パスワード
   ▼Jaka さん:

アドバイス有難うございます。
早速 下記コード使用させて戴きました。

>Private Sub UserForm_Initialize()
>Dim ADR As String, Lno As Variant
>ADR = Me.ComboBox1.RowSource
>Lno = Application.Match(DataX, Range(ADR), 0)
>
>If Not IsError(Lno) Then
>  Me.ComboBox1.ListIndex = Lno - 1
>End If
>End Sub
>
>因みに、チェンジイベントが発生します。

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