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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excel VBA でテキストボックスの値をセルA列から検索
その他(プログラミング・Web制作)
-
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
-
4
ユーザーフォーム内のテキストボックスからオートフィルター抽出を行う方法
Visual Basic(VBA)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
エクセルVBA テキストボックス検索
Excel(エクセル)
-
8
エクセルVBA「リストボックスで選択した値をテキストボックスで変更してシート上セルに反映したい」
Excel(エクセル)
-
9
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
10
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
11
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
12
VBA フォームに入力された数値を検索条件としたい
Visual Basic(VBA)
-
13
【Excel VBA】コンボボックスで選択した値の取得
Excel(エクセル)
-
14
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
15
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
16
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
抽出したデータを修正して元のセルに上書きしたい
Access(アクセス)
-
19
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VC++ (byte)(col & 0xFF) の意味
-
codbo2を買うか迷ってますbo2が...
-
C#のループでtextboxに値を入れ...
-
VBA public変数はどのようなこ...
-
プロシージャまたは関数の引数...
-
レコードセットにnullの場合
-
マウスポインタの変更
-
【VBS】クリップボード操作につ...
-
【VB6.0】 あるフォームから他...
-
共有フォルダの「共有のアクセ...
-
VB.NETでのイベントの途中終了
-
C言語のサフィックスについて
-
プロシージャを呼び出したプロ...
-
String型の値にスラッシュをつ...
-
Excel ユーザーフォームで計算 ...
-
エクセルVBAでテキストボッ...
-
他のフォームから別のフォーム...
-
ACCESS 除算での小数点切上げ方法
-
Matlabでsin波を使って矩形波を...
-
GetNextWindowがDLLファイルUse...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドラゴン曲線を再帰で書く
-
二点の座標から距離や角度を求...
-
VB.NET)コンボボックスの連動に...
-
複数条件のオートフィルタ(VBA)
-
エクセル・VBAでテキストボック...
-
テキストファイルの読み込みと...
-
IsNumeric 配列条件
-
C#のaxWebBrowsrでエンコードを...
-
インストールのやり方を教えて...
-
こうもりの撃退法
-
小数点以下五桁一致の判定
-
VC++ (byte)(col & 0xFF) の意味
-
C言語で非線形方程式を解くプロ...
-
2次元配列を返す関数について
-
Linuxのプログラミング
-
一行飛ばしで合計
-
VBA public変数はどのようなこ...
-
VBAでcallで呼び出したsubを終...
-
他のフォームから別のフォーム...
-
アクセスできない保護レベルエ...
おすすめ情報