| |
▼かみちゃん さん：
ありがとうございます。
テキストBOXに検索値→コマンドボタン→リストボックスに表示
ＯＫです。下に書いてあるように両方のリストボックスから転記できますか
どちらからでも可能でしたらその方が便利です。
それとリストの中にかなりカタカナ名があるのですが
検索時カタカナ 全角/半角関係なく検索できますか。
>こんにちは。かみちゃん です。
>
>> お忙しいのはわかっておりますが
>> コマンドボタンとリストボックス２にはどのような
>> コードを書けばいいですかね？
>
>全然忙しくはないのですが(^^;
>[46037]でのコメント、かなりとんちんかんなことを書いてしまいました。
>
>Private Sub UserForm_Initialize()
>' Dim FName As String
>' FName = ThisWorkbook.Path + "C:\テキスト.txt"
>' Const cnsFILENAME = "C:\テキスト.txt"
>' Dim intFF As Integer
>' Dim strREC As String
>' Dim GYO As Long
>'
>' intFF = FreeFile
>' Open cnsFILENAME For Input As #intFF
>' GYO = 1
>' Do Until EOF(intFF)
>' Line Input #intFF, strREC
>' UserForm2.ListBox1.AddItem strREC
>' Loop
>
> Me.Left = 150
> Me.Top = 100
>End Sub
>
>Private Sub CommandButton1_Click()
> Dim FName As String
> FName = ThisWorkbook.Path + "C:\テキスト.txt"
> Const cnsFILENAME = "C:\テキスト.txt"
> Dim intFF As Integer
> Dim strREC As String
> Dim GYO As Long
>
> intFF = FreeFile
> Open cnsFILENAME For Input As #intFF
> GYO = 1
> Do Until EOF(intFF)
> Line Input #intFF, strREC
> If strREC Like "*" & Me.TextBox1.Value & "*" Then
> UserForm2.ListBox2.AddItem strREC
> End If
> Loop
>End Sub
>
>としてみてください。
>
>> リストボックス2からセルへ転記
>
>これは、どのタイミングでするのでしょうか？
セルをダブルクリックしテキスト.txtがユーザーフォーム上に表示されますね
その後→テキストボックスに検索値→コマンドボタン→リストボックス２に
検索値が表示→この中に目的とするデータがあれば→データをクリック転記
完了です。
まずカタカナ検索は？
リストボックス１と２どちらからでも転記このあたり
教授下さい。
不出来で申し訳ないのですが
よろしくお願いします。
ちょっと検索してみたのですが違う結果が出た場合コマンドボタン２で
一度リストボックスをクリアしたいのですが
どう書いたらいいですか。
重ね重ねよろしくお願いします。
>複数選択可能なListBoxなのでしょうか？
>以下が参考になりますでしょうか？
>ｈｔtp://www.geocities.jp/happy_ngi/YNxv9g042.html
>（先頭から二文字は（全角になっているので）半角にしてください）
|
|
yasu
- 07/1/21(日) 22:51 -
