Excel VBA質問箱 IV

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

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


35890 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼かみちゃん さん:
またまたすみませんありがとうございます。
では解決の方から説明いたします。
まずユーザーフォームの方ですが
下記コードです。
テキスト.txtはCドライブ直下に置いてあります。

Private Sub ListBox1_MouseUp(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  ActiveCell.Value = Left(ListBox1.Value, 6)
  Unload Me
End Sub
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

次にsheet5("発注")モジュールは下記です。
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
 
 If 1 < Target.Count Then Exit Sub 'If Target.Cells.Count > 1 Then[結合セルはこちら]
    On Error Resume Next
 If Not Intersect(Target, Range("S8:S107")) Is Nothing Then
    Cancel = True
  UserForm1.Show vbModeless
 Else
  UserForm1.Hide
 End If
 
  If 1 < Target.Count Then Exit Sub
    On Error Resume Next
 If Not Intersect(Target, Range("R8:R107")) Is Nothing Then
    Cancel = True
  UserForm2.Show vbModeless
 Else
  UserForm2.Hide
 End If
End Sub
これで一応テキスト.txt左側6桁の数字をR8からR107のセルに転記
出来るようになりました。
しかし
これから下は今回できなかなというものです。
1.テキスト.txtの行数が1000行前後ありユーザーフォームを表示させても
 探すのが大変一応アイウエオ順に並んでいる。
 依って
2.今のリストBOXに表示された脇にテキストボックス1を配し、ここに
 検索値を記入(あいまい検索一部一致しても表示させたい)
3.その脇にリストBOX2を配しておき上記検索結果を表示
4.リストBOX2からセルR8からR107のいずれかのセルに転記。
5.終了
こんな感じなんですがかみちゃん解りますか?
よろしくお願いします。

>
>> リストが約1000行ぐらいあり、探すのが大変なのでテキストBOX1に検索値入力コ
>> マンドボタンON別のリストボックス2に表示検索は一部でも一致すれば表示したい。
>> リストボックス2からセルへ転記
>
>何がしたいのかが今ひとつわかりません。
>・どういうリストなのですか?
> テキストファイルになっているのですか?
>・TextBox1に検索した意値を入力
>  ↓
> CommandButton1をクリック
>  ↓
> リスト(テキストファイル)から検索
>  ↓
> 検索条件(部分一致)に一致したらListBox2にAdd ← Like 演算子でできる?
>  ↓
> ListBox2から転記? ←どのタイミングで?
>・今どのようなコードになっているのですか?
> [46029]で、「解決ですよ」と言われても、結局どのように解決なさったのかが
> わかりません。
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 お礼

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