No.4ベストアンサー
- 回答日時:
部分的に一致していても、リストに追加するように出来ますか?
If Range("B" & i).Value = TextBox1.Value Then
を
If Range("B" & i).Value Like "*" & TextBox1.Value & "*" Then
にするとか
また、表示された1・2列目をクリックすると、そのセル
をアクティブに出来ると良いのですが・・・
No1の方のコードをお借りします。
Private Sub ListBox1_Click()
Range("C:C").Find(what:=ListBox1.Value, LookIn:=xlValues, lookat:=xlPart, MatchCase:=False).Activate
End Sub
とかでは?
No.3
- 回答日時:
ん? なるほど,そういう事がしたかった訳ですか。
private sub CommandButton1_Click()
dim c as range
dim f as string
set c = worksheets("Sheet1").range("B:B).find(what:=textbox1, lookin:=xlvalues, lookat:=xlpart, matchcase:=false)
if c is nothing then exit sub
f = c.address
do
listbox1.additem c.value
set c = worksheets("Sheet1").range("B:B).findnext(c)
loop until c.address = f
end sub
とか。
この回答への補足
何度も回答いただきありがとう御座います
うまく表示出来るようになりました
表示された検索結果をクリックすると、そのセルを
アクティブにする事は出来ないのでしょうか?
No.2
- 回答日時:
Private Sub CommandButton1_Click()
ListBox1.Clear
For i = 2 To Range("B65536").End(xlUp).Row
If Range("B" & i).Value = TextBox1.Value Then
ListBox1.AddItem Range("C" & i).Value
End If
Next
End Sub
これではダメだったのでしょうか?
B列の2行目から検索して textbox1と同じだったらC列をリストに追加
見たいな感じですか。
この回答への補足
部分的に一致していても、リストに追加するように出来ますか?
例えば、下記データが入力されていて、
A B C
1212 5568 4848
3535 8568 1234
4567 5577 4567
テキスト入力が「568」の時に、1・2列目が表示される
様に出来ないでしょうか?
また、表示された1・2列目をクリックすると、そのセル
をアクティブに出来ると良いのですが・・・
No.1
- 回答日時:
private sub commandbutton1_click()
if application.countif(worksheets("Sheet1").range("B:B"), "*" & textbox1 & "*") > 0 then
listbox1.additem application.vlookup("*" & textbox1 & "*", worksheets("Sheet1").range("B:B"), 1, false)
end if
end sub
とか。
dim res as range
set res = worksheets("Sheet1").range("B:B").find(what:=textbox1, lookin:=xlvalues, lookat:=xlpart, matchcase:=false)
if not res is nothing then
listbox1.additme res.value
end if
とか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) WordのVBAについて 5 2023/01/11 14:38
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) Vba テキストボックスの文字列をボタンで入力するとテキストボックスの端の文字列が更新されない 2 2022/05/21 23:32
- Visual Basic(VBA) エクセルVBAのコードについて 2 2022/08/10 21:49
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- Visual Basic(VBA) vba 15 2023/04/07 12:33
- Visual Basic(VBA) Vba テキストボックスでボックスのサイズ超えると文字列入力できない 2 2022/05/20 08:09
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ユーザーフォーム内のテキストボックスからオートフィルター抽出を行う方法
Visual Basic(VBA)
-
UserForm1.Showでエラーになります。
工学
-
エクセルVBA テキストボックス検索
Excel(エクセル)
-
-
4
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
5
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
8
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
9
Excel VBA でテキストボックスの値をセルA列から検索
その他(プログラミング・Web制作)
-
10
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
11
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
12
Excel VBAのユーザーフォームでVLOOKUP
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
二点の座標から距離や角度を求...
-
VBAにおけるニュートン法
-
一行飛ばしで合計
-
Functionの戻り値を配列にした...
-
チェックボックスを操作できな...
-
C言語のサフィックスについて
-
VBA public変数はどのようなこ...
-
C#のループでtextboxに値を入れ...
-
他のフォームから別のフォーム...
-
マクロ 条件式
-
【VB6.0】 あるフォームから他...
-
リストビューの列ヘッダーの幅...
-
【VBScript】変数のスコープ
-
VB.NETでのイベントの途中終了
-
verilogのcase文
-
アクセスできない保護レベルエ...
-
VBAでcallで呼び出したsubを終...
-
SavePictureで保存できない
-
ボールが壁に当たって跳ね返る...
-
VB
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル・VBAでテキストボック...
-
二点の座標から距離や角度を求...
-
VB.NET)コンボボックスの連動に...
-
VC++ (byte)(col & 0xFF) の意味
-
複数条件のオートフィルタ(VBA)
-
検索結果の指定列をリストボッ...
-
線の太さ
-
テキストファイルの読み込みと...
-
VBAにおけるニュートン法
-
2次元配列を返す関数について
-
for文の質問です。
-
4変数の非線形方程式のときかた
-
エクセル ユーザーフォーム ...
-
ドラゴン曲線を再帰で書く
-
VC++2010 大きい桁数をBYTE型配...
-
sublimit textっていうエディタ...
-
エクセルVBAでテキストボッ...
-
VBA public変数はどのようなこ...
-
VBAでcallで呼び出したsubを終...
-
他のフォームから別のフォーム...
おすすめ情報