Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5014 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【53135】リストボックスで表示される候補１個を選択させる ベナジザ 07/12/16(日) 23:03 質問[未読]
【53136】Re:リストボックスで表示される候補１個を... ponpon 07/12/16(日) 23:31 発言[未読]
【53137】Re:リストボックスで表示される候補１個を... ベナジザ 07/12/17(月) 0:02 質問[未読]
【53139】Re:リストボックスで表示される候補１個を... Jaka 07/12/17(月) 9:54 発言[未読]
【53163】Re:リストボックスで表示される候補１個を... ベナジザ 07/12/17(月) 23:34 お礼[未読]
【53135】リストボックスで表示される候補１個を選...
質問  ベナジザ  - 07/12/16(日) 23:03 -
引用なし
パスワード
   いつもお世話になっております。
リストボックスに数個のデータ(RowSource)を表示させた後、"DataX"を選択したいと考え

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

と言うコードにしたのですが、選択されません。選択するためのコードをアドバイスねがいます。
なお、Excel97でVBA作成しております。
【53136】Re:リストボックスで表示される候補１個...
発言  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:リストボックスで表示される候補１個...
質問  ベナジザ  - 07/12/17(月) 0:02 -
引用なし
パスワード
   ▼ponpon さん：
>▼ベナジザ さん：

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

>>なお、Excel97でVBA作成しております。
>持っていないので、確認できませんが・・・
>
>>With ListBox
>>　　 .RowSource = "[" & FileA & "]ASY!D" & GyoStrt & ":" & "F" & GyoEnd
>>　　 .Text = DataX
>>End With
>
>単に
>　.Text = "DataX"
>とするだけでよいのでは？
【53139】Re:リストボックスで表示される候補１個...
発言  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:リストボックスで表示される候補１個...
お礼  ベナジザ  - 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
>
>因みに、チェンジイベントが発生します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5014 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free