ユーザーフォームにTextbox、検索ボタン、Listboxを配置しました。
Textboxに「E列」の大分類(例:「35」)を入力して、検索ボタンを押すと、「35」のレコードのA列とB列だけListboxに反映させるようにしたいです。
皆さん、教えて下さい!宜しくお願いします。
A列 B列 C列 D列 E列
商品コード/商品名/仕入先コード/仕入先名/大分類
123456 りんご 011 AAA 35
456789 ばなな 012 BBB 35
234567 テーブル 013 CCC 23
No.2ベストアンサー
- 回答日時:
元データはSheet1にあるとして
private sub CommandButton1_Click()
dim r as long
if me.textbox1 = "" then exit sub
me.listbox1.clear
me.listbox1.columncount = 2
with worksheets("Sheet1")
for r = 2 To .range("E65536").end(xlUp).row
if cstr(.cells(r, "E").value) = me.textbox1.value then
me.listbox1.additem .cells(r, "A").value
me.listbox1.list(me.listbox1.listcount - 1, 1) = .cells(r, "B").value
end if
next r
end with
end sub
ぐらいで,逐一追加していくのが一番簡単かと思います。
keithinさん
教えて頂いたコードでやってみましたら、思う通り出来ました!
大変助かりました!
どうもありがとうございました!
No.1
- 回答日時:
オートフィルターをフォーム(VBA)で表現
そのデータにオートフィルターをかけます。
そして、TextBoxに入れたデータで絞り込み
1行しか表示されなかったら、「検索データはありません。」
2行以上表示された場合は、表示されているデータを
抽出し、リストボックス?に反映。
という方法が良いかと思います!
やり方は少し忘れてしまったので、検索かけてみますね。
質問者さんも少しずつ考えてみてください。
データ絞り込みまでは出来るかと思いますよ^^
satoron666さん、どうもありがとうございます!
いろんなとこから検索をかけて、下記コードでやってみたところ、A列の商品コードとE列の大分類しかリストボックスに反映できなくて、どこがダメか分からなくて、困ってます。
Sub cmdIDSearch_Click()
Dim daibunnrui As Range
Dim c As String
With Worksheets("商品CD").Columns(5)
Set daibunnrui = .Find( _
what:=txtIDSearch.Value, _
LookIn:=xlValues, _
lookat:=xlPart, _
MatchByte:=False)
If daibunnrui Is Nothing Then
MsgBox "対象存在しません。", _
vbOKOnly + vbInformation, "検索"
Else
IDListBox.Clear
c = daibunnrui.Address
Do
'検索にヒットしたセルの値を取得
With IDListBox
.AddItem daibunnrui.Offset(, -4).Value
.Column(1, .ListCount - 1) = daibunnrui.Value
End With
Set daibunnrui = .FindNext(daibunnrui)
Loop Until daibunnrui.Address = c
End If
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Excel(エクセル) ある文字を含む際に、値を返す数式についてです 5 2022/08/28 16:58
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) Excelの列から検索して該当する行を別シートに転記するVBA 2 2022/12/20 09:35
- Visual Basic(VBA) チームごとにどの商品を何個希望しているか数量を算出したいです。 A列(A2~A265)に各チーム名が 3 2023/07/18 18:46
- Visual Basic(VBA) 重複データをまとめて合計を合算する 4 2022/10/25 20:25
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VB.NET)コンボボックスの連動に...
-
エクセルのVBAでの7×7の魔方陣...
-
ドラゴン曲線を再帰で書く
-
codbo2を買うか迷ってますbo2が...
-
アクセスできない保護レベルエ...
-
C#のループでtextboxに値を入れ...
-
VB.NETでのイベントの途中終了
-
ユーザーフォームへのデータ入...
-
レコードセットにnullの場合
-
他のフォームから別のフォーム...
-
C言語のサフィックスについて
-
VBA public変数はどのようなこ...
-
コンボボックスからテキストボ...
-
VBAでcallで呼び出したsubを終...
-
VBAのユーザーフォームで、テキ...
-
GetNextWindowがDLLファイルUse...
-
VB2010 TextBoxの数字の表示...
-
構造体のコピー
-
チェックボックスを操作できな...
-
画像をランダムに表示させたい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ドラゴン曲線を再帰で書く
-
VB.NET)コンボボックスの連動に...
-
エクセル・VBAでテキストボック...
-
二点の座標から距離や角度を求...
-
複数条件のオートフィルタ(VBA)
-
テキストファイルの読み込みと...
-
エクセル ユーザーフォーム ...
-
C#を勉強していて、指定したフ...
-
エクセルのVBAでの7×7の魔方陣...
-
C言語で非線形方程式を解くプロ...
-
Lispにおける最大値関数
-
Linuxのプログラミング
-
4変数の非線形方程式のときかた
-
こうもりの撃退法
-
二分法のC++プログラム
-
VBA for next
-
小数点以下五桁一致の判定
-
VC++ (byte)(col & 0xFF) の意味
-
2次元配列を返す関数について
-
C言語の行列演算に関する質問
おすすめ情報