質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

Q&A

解決済

3回答

1178閲覧

ExcelVBAで、IDをペーストしたら、氏名だけが検索結果として出るマクロの作り方があればご教示いただけないでしょうか。

study.vba-22_o

総合スコア2

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

マクロ

定義された処理手続きに応じて、どのような一連の処理を行うのかを特定させるルールをマクロと呼びます。

0グッド

0クリップ

投稿2021/12/11 13:17

前提・実現したいこと

左の列から、「ID、氏名(漢字)、氏名(カタカナ)」と並んでいる
名簿一覧表に対して、Excelマクロで、ユーザーフォームを作成し、

IDをtextbox1にペーストしたら、氏名(カタカナ)がtextbox2に検索結果としてでてくる。

もしくは、

IDをtextbox1にペーストしたら、MsgBoxで、「氏名(カタカナ)です」。

のように、検索できるマクロを組みたい。

該当のソースコード

現状、自力で作成できているのは、以下のようなコードです。

Private Sub CommandButton1_Click()
Dim i As Long
For i = 2 To Cells(Rows.Count,3).End(xlUp).Row
If TextBox1.Value = Cells(i,3) Then
Cells(i,3).Select
MsgBox Cells(i,3).Row & "行目にあります"
End If
Next
End Sub

試したこと

表のレイアウトとして、
ID・・B列
氏名(漢字)・・C列
氏名(カタカナ)・・D列

A列は空白の状態です。

上述のコードだと、「〇行目にあります」と出てくれるので、
これでもわかりやすいといえばわかりやすいのですが、
業務をより効率化するために、textBox1にIDをペーストしたら、
「氏名(カタカナ)です」検索結果としてでるようにしたい。

ただ、この課題については、いろいろググったりして、
自分でもコードを書いてみましたが、正直、行き詰ってしまい、
どうコードを書けばよいか、わからなくなってしまいました。

補足情報(FW/ツールのバージョンなど)

使用しているのは、Excel2016になります。

ExcelVBA初心者なので、多々わかっていないこともあると思います。
ですので、質問の仕方も、わかりにくいところがあるかもしれません。

できる限り、自分なりに、わかりやすく書かせていただいたつもりです。
もし、不明な点があれば、ご教示をおねがいします。

以上、どうか、みなさんの知恵を拝借させていただきたく、
よろしくお願い申し上げます。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答3

0

Match関数で検索するコード例

vba

1Private Sub TextBox1_Change() 2 With Range("B2", Cells(Rows.Count, 2).End(xlUp)) 3 Dim i 4 i = Application.Match(Me.TextBox1.Value, .Cells, 0) 5 If Not IsError(i) Then 6 MsgBox .Cells(i, 2).Value & "(" & .Cells(i, 3) & ")" 7 End If 8 End With 9End Sub

ID が数値だった場合は、Me.TextBox1.ValueVal(Me.TextBox1.Value) としてください。

投稿2021/12/12 03:54

hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

study.vba-22_o

2021/12/13 01:24

ご返事が遅くなり、まことに申し訳ありません。 この度は、ありがとうございました。 やはりプロに聞くのが一番です。実際コードを書いてみたら、しっかり動きました。ありがとうございました。
guest

0

ベストアンサー

やりたいのはたぶんこんな感じでしょうか。

VBA

1Private Sub TextBox1_Change() 2 Dim ws As Worksheet 3 Set ws = ThisWorkbook.Worksheets(1) 4 5 Dim i As Long 6 For i = 2 To ws.Cells(ws.Rows.Count, 3).End(xlUp).Row 7 If CStr(TextBox1.Value) = CStr(ws.Cells(i, 2).Value) Then 8 TextBox2.Value = ws.Cells(i, 3).Value & "(" & ws.Cells(i, 4).Value & ")" 9 Exit Sub 10 End If 11 Next 12 TextBox2.Value = "" 13End Sub

投稿2021/12/12 02:31

jinoji

総合スコア4585

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

study.vba-22_o

2021/12/13 01:28

まずは、ご返事が遅くなり、申し訳ありませんでした。 いろいろご意見をいただき、コードの書き方も様々で、大変参考になりました。 ですが、今回は、あなたさまをベストアンサーに選択させていただきました。 理由としては、「私が欲しい内容そのものだった」からです。 このコードを参考にし、日々の業務やVBAの学習にいそしんでいきたいとおもいます。 また何かありました際は、よろしくお願い申し上げます。
guest

0

VLOOKUP関数というのを調べてみよう

投稿2021/12/12 01:37

y_waiwai

総合スコア87719

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問