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

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

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

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

Q&A

解決済

1回答

460閲覧

A列の数値が入力されたら、隣り合うB列の数値を表示したい

xoxo_999

総合スコア2

VBA

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

0グッド

0クリップ

投稿2021/05/31 12:03

表1
このような表があります(数字は適当です)。

ユーザーフォームを表示させ、A列の数字を(INPUT)入力したら隣り合うB列の数字を(OUTPUTに)表示させたいです。

例) 3 と入力したら  0.3 と表示させたい。

下図:ユーザーフォームイメージ
イメージ説明

この場合、どのようなソースコードになるでしょうか。

もしくは、似たような内容で、わかりやすく解説しているサイトがあれば知りたいです。

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

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

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

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

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

guest

回答1

0

ベストアンサー

こんな感じで。

VBA

1Private Sub TextBox1_Change() 2 Dim ws As Worksheet 3 Set ws = Worksheets("Sheet1") 4 5 Dim rng As Range 6 Set rng = ws.UsedRange 7 8 Dim c As Long, r As Long, v As String 9 10 c = WorksheetFunction.CountIf(rng.Columns(1), TextBox1.Text) 11 If c = 0 Then 12 v = "該当なし" 13 Else 14 r = WorksheetFunction.Match(TextBox1.Text, rng.Columns(1), False) 15 v = rng.Cells(r, 2).Value 16 End If 17 18 TextBox2.Text = v 19 20End Sub

投稿2021/05/31 12:29

編集2021/05/31 12:32
jinoji

総合スコア4585

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

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問