A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
サンプルマクロです。
Private Sub CommandButton1_Click()
Dim res
If TextBox1.Text <> "" Then
res = Application.Match(TextBox1.Text, Sheets("データ").Columns(4), 0)
If IsNumeric(res) Then
TextBox2.Text = Sheets("データ").Cells(res, "A").Value
Else
TextBox2.Text = "Not Found"
End If
Else
TextBox2.Text = ""
End If
End Sub
でもこれで実用に耐えるか疑問です。本当はもっと色々考えなくてはなりません。
1)検索するD列の値が数値の場合
TextBoxで取得する値は「文字列」です。シートのD列が「数値」なら見かけが同じでも絶対にMatchしません。TextBoxの文字列をVAL関数で数値に変換してから検索しなければなりません
2)入力された文字が「全角」「半角」違いの場合
入力者は意識せず「全角」「半角」を混在して入力することがあります。D列には「abc(半角)」と入力してあるのにTextBox1に「abc(全角)」で入力しても、これまたMatchしません。D列が半角/全角のどちらかに統一されているなら、Strconv関数で変換して検索するのがよいでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセル。ブック内検索で重複...
-
Excelのデータが重いのはなぜで...
-
エクセルで時刻を自動入力する方法
-
エクセルの入力 エンターキーで...
-
エクセルのセルの表示形式(2...
-
excel関数orマクロ:データ入...
-
excel フレームのように一部...
-
合計が0の行を削除
-
スプレッドシートで、指定した...
-
EXCEL VBA 区切り位置のプログ...
-
エクセルで、「袋詰め問題」を...
-
Excel VBA 答えが0になってし...
-
ローマ字入力で「トゥ」を入力...
-
「未使用」と「不使用」ってど...
-
Excelでエラー(#N/Aなど)値を...
-
1点の辻の字に変換したいがエク...
-
エクセル 絶対値の合計
-
ExcelでVBAを使用した際に、『...
-
SUM関数の範囲に#N/Aが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセルで時刻を自動入力する方法
-
Excelのデータが重いのはなぜで...
-
Excel VBA 答えが0になってし...
-
EXCEL VBA 区切り位置のプログ...
-
エクセルマクロについて データ...
-
エクセル。ブック内検索で重複...
-
エクセルで30日以内に同内容の...
-
スプレッドシートで、指定した...
-
合計が0の行を削除
-
エクセルで隣のセルと同じ数字...
-
エクセルの中の漢字を一度にカ...
-
excel フレームのように一部...
-
エクセルで漢字がうまく並び替...
-
エクセルの入力 エンターキーで...
-
A列を検索し一致した行を表示。...
-
Excel2003での並べ替えについて
-
Excelユーザーフォームでのデー...
-
エクセルの既存のシートでは入...
-
エクセルで自動入力をマクロで...
おすすめ情報