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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ユーザーフォーム内のテキストボックスからオートフィルター抽出を行う方法
Visual Basic(VBA)
-
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
Excel VBA でテキストボックスの値をセルA列から検索
その他(プログラミング・Web制作)
-
-
4
エクセルVBA テキストボックス検索
Excel(エクセル)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
7
VBA別シートの最終行の次行へ転記したい。
Visual Basic(VBA)
-
8
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
9
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
10
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
11
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
12
エクセルVBA ユーザーフォーム 複数のコンボボックス 同一リスト
Excel(エクセル)
-
13
【Excel VBA】コンボボックスで選択した値の取得
Excel(エクセル)
-
14
UserForm1.Showでエラーになります。
工学
-
15
VBA リストボックス(複数条件)で検索し、転記方法についてご教示ください。
Visual Basic(VBA)
-
16
Excel VBAのユーザーフォームでVLOOKUP
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル・VBAでテキストボック...
-
4変数の非線形方程式のときかた
-
複数条件のオートフィルタ(VBA)
-
VC++ (byte)(col & 0xFF) の意味
-
二点の座標から距離や角度を求...
-
Linuxのプログラミング
-
Googleシート「A1」でなくて「A...
-
エクセルVBAでテキストボッ...
-
定数を構造体で・・・
-
構造体のコピー
-
他のフォームから別のフォーム...
-
VB.NETでのイベントの途中終了
-
リストビューの列ヘッダーの幅...
-
アクセスできない保護レベルエ...
-
EXCEL2010 VBA SelectionChange...
-
VBA public変数はどのようなこ...
-
C言語のサフィックスについて
-
visual basic初心者です。 visu...
-
VBでの入力値制限について
-
プロシージャまたは関数の引数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
二点の座標から距離や角度を求...
-
複数条件のオートフィルタ(VBA)
-
エクセル・VBAでテキストボック...
-
VC++ (byte)(col & 0xFF) の意味
-
エクセルのVBAでの7×7の魔方陣...
-
VB.NET)コンボボックスの連動に...
-
検索結果の指定列をリストボッ...
-
for文の質問です。
-
テキストファイルの読み込みと...
-
VBAにおけるニュートン法
-
カラーの16進表記の足し算
-
一行飛ばしで合計
-
2次元配列を返す関数について
-
どいつもこいつもbot3かよ
-
こうもりの撃退法
-
小数点以下五桁一致の判定
-
4変数の非線形方程式のときかた
-
ドラゴン曲線を再帰で書く
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
おすすめ情報