テキストボックスの値から検索するには？
解決いつも参考にさせて頂いております。
フォーム上にテキストボックス・コマンドボタン・リストボックスを設置しました。
テキストボックスに文字（注文番号‥）を入力しコマンドボタンをクリックすると、リストボックス内の該当するデータを反転したいと思っているのですが…。
上手く出来ずに居ます。
良い方法がありましたらアドバイスを宜しくお願い致します。
どこまで出来ているのですか？
リストボックス内から該当するデータを検索できないのですか？
それとも反転できないだけですか？
返答ありがとうございます！
説明不足で申し訳ありません。
リストボックス内から該当するデータの検索が出来ずにいます。
リストボックスのデータはＳＱＬにてグループ化して表示しています。
宜しくお願い致します。
リストボックスの全データは一応以下のように
取得できますが・・・
Dim i As Integer
For i = 0 To List1.ListCount - 1
Debug.Print List1.List(i)
Next
>リストボックスのデータはＳＱＬにてグループ化して表示しています。
という一文をみると、こんな単純なことではないのでしょうか？
>ＳＱＬにてグループ化して表示
というのが実際どのような表示になるのかが
分からないのでなんとも言えませんが。
データベースからＳＱＬで取得してきて
単純に表示しているだけではないのですか？
返答ありがとうございます。
やりたかった事は・・・。
テキストボックス内に「A0001」と入力し、コマンドボタンをクリックすると・・
既にデータが表示されているリストボックスにて該当するデータを反転したかった
のです。
テキストボックス
［Ａ０００１］■
リストボックス
Ａ０００１ ←反転
Ａ０００２
Ｂ０００１
以下のようではダメでしょうか。
#『Command1』『List1』『Text1』を御自身の
#コントロール名に変更してください。
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
List1.Selected(i) = True
End If
Next
End Sub
おそらく処理順序としては
１．ＤＢよりデータを取得（これがＳＱＬって言ってるもの？）
２．取得したデータをリストボックスに格納
３．テキストボックスに値を入力し、ボタンクリック！
４．一致するデータをリストボックスより探し出し、一致したら反転
としか読み取れないのですが・・・
そうするとrakiさんの回答でうまくいかないのでしょうか？
エクセルＶＢＡですが、さっくりとフォーム作って
同じことができている気がするのですが・・・
返答ありがとうございます！
rakiさんの回答にて無事に作成する事が出来ました。
まだまだ勉強不足ですね・・・。
大変参考になる回答を早急に対応して頂き助かりました。
本当にありがとうございました！
返答ありがとうございます！
rakiさんの回答にて無事に作成する事が出来ました。
まだまだ勉強不足ですね・・・。
大変参考になる回答を早急に対応して頂き助かりました。
本当にありがとうございました！
| ツイート |  |