アンケート一覧ページでアンケートを探す
y************47

2023/1/26 17:02

11回答

Excelのマクロを教えてください｡ ユーザーフォームのテキストボックスに矢印キーで値を表示させたい｡ テキストボックス1～4があります｡ それぞれがA～D列の値を返してきます｡

Excelのマクロを教えてください｡ ユーザーフォームのテキストボックスに矢印キーで値を表示させたい｡ テキストボックス1～4があります｡ それぞれがA～D列の値を返してきます｡ A列には数字が入っていて､その数字をテキストボックス1に入力すると その隣のB列､C列､D列の値がそれぞれのテキストボックスに表示されます｡ Dim r Set r = ActiveSheet.Range("A:A").Find(what:=TextBox1, lookat:=xlWhole) If r Is Nothing Then Exit Sub TextBox2 = r.Offset(, 1) TextBox3 = r.Offset(, 2) TextBox4 = r.Offset(, 3) このやり方だと､毎回数字を入力しなければいけません｡ 最初にテキストボックス1に数字を入力して､矢印キーで次の行を表示させたいです｡ 5と入力し､上矢印でひとつ上の行の数字を表示､下矢印キーでひとつ下の行の値を表示させたいです｡ コードを教えてください｡

Visual Basic・52閲覧・xmlns="http://www.w3.org/2000/svg">25

新機能 AI回答テストを実施中！ テスト対象カテゴリ：歴史・悩み相談 ※回答がつかない場合は、画面のリロードをお試しください

ベストアンサー

kky********

カテゴリマスター

2023/1/26 18:03

矢印キーではなく、SpinButtonを使うといいと思います。 Private Sub SpinButton1_SpinUp() If TextBox1.Value = "" Then MsgBox "入力されていません" Else TextBox1.Value = TextBox1.Value + 1 End If End Sub Private Sub SpinButton1_SpinDown() If TextBox1.Value = "" Then MsgBox "入力されていません" Else TextBox1.Value = TextBox1.Value - 1 End If End Sub Private Sub TextBox1_Change() Dim rng As Range Dim r As Variant Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) r = Application.Match(TextBox1.Value * 1, rng, 0) If IsError(r) Then MsgBox "ありません" Else TextBox2 = Range("B" & r).Value TextBox3 = Range("C" & r).Value TextBox4 = Range("D" & r).Value End If End Sub

画像

NEW! この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

ありがとうございました!

お礼日時：1/27 9:05