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

このような表があります（数字は適当です）。

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

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

下図：ユーザーフォームイメージ

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

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

行動規範の内容に同意します

回答1件

ベストアンサー

こんな感じで。

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