Excel VBA質問箱 IV

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

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


35878 / 76738 ←次へ | 前へ→

【46051】Re:ユーザーフォームのリストを検索→転記
発言  yasu  - 07/1/21(日) 22:51 -

引用なし
パスワード
     ▼かみちゃん さん:
ありがとうございます。
テキストBOXに検索値→コマンドボタン→リストボックスに表示
OKです。下に書いてあるように両方のリストボックスから転記できますか
どちらからでも可能でしたらその方が便利です。
それとリストの中にかなりカタカナ名があるのですが
検索時カタカナ 全角/半角関係なく検索できますか。


>こんにちは。かみちゃん です。
>
>> お忙しいのはわかっておりますが
>> コマンドボタンとリストボックス2にはどのような
>> コードを書けばいいですかね?
>
>全然忙しくはないのですが(^^;
>[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がユーザーフォーム上に表示されますね
その後→テキストボックスに検索値→コマンドボタン→リストボックス2に
検索値が表示→この中に目的とするデータがあれば→データをクリック転記
完了です。
まずカタカナ検索は?
リストボックス1と2どちらからでも転記このあたり
教授下さい。
不出来で申し訳ないのですが
よろしくお願いします。
ちょっと検索してみたのですが違う結果が出た場合コマンドボタン2で
一度リストボックスをクリアしたいのですが
どう書いたらいいですか。
重ね重ねよろしくお願いします。

>複数選択可能なListBoxなのでしょうか?
>以下が参考になりますでしょうか?
>http://www.geocities.jp/happy_ngi/YNxv9g042.html
>(先頭から二文字は(全角になっているので)半角にしてください)
0 hits

【46028】ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 17:02 質問
【46030】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 17:15 発言
【46031】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 17:33 発言
【46037】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 18:43 発言
【46039】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 20:29 発言
【46043】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 20:46 発言
【46051】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 22:51 発言
【46052】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/21(日) 23:12 発言
【46057】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/21(日) 23:32 発言
【46058】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 0:09 発言
【46060】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 0:21 発言
【46061】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 7:15 発言
【46063】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 10:21 発言
【46064】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 11:35 発言
【46067】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 12:18 発言
【46070】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 13:01 発言
【46071】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 13:09 発言
【46066】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 12:04 発言
【46084】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 17:25 発言
【46085】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:06 発言
【46087】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 18:12 発言
【46088】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:23 発言
【46086】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 18:07 発言
【46090】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 18:45 発言
【46092】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 20:48 発言
【46098】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 21:48 発言
【46099】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 22:07 発言
【46100】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/22(月) 22:44 発言
【46101】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/22(月) 22:55 発言
【46106】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 2:51 発言
【46107】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 3:03 発言
【46109】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 7:33 発言
【46114】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 9:28 発言
【46117】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 11:09 回答
【46120】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 14:09 発言
【46121】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 14:42 発言
【46122】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 15:09 発言
【46124】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 16:51 回答
【46129】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 17:33 発言
【46133】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/23(火) 20:22 発言
【46134】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/23(火) 20:40 発言
【46139】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/24(水) 3:58 発言
【46140】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/24(水) 7:28 発言
【46157】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/24(水) 20:44 発言
【46159】Re:ユーザーフォームのリストを検索→転記 かみちゃん 07/1/24(水) 20:51 発言
【46168】Re:ユーザーフォームのリストを検索→転記 yasu 07/1/25(木) 0:22 お礼

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