配列とWorksheet_Change
●Sheet2にコードと担当者
Sheet1に品番を入れます。担当者コードを入れると担当者が表示されます。
これは、LOOKUP関数と同じですね。
Sheet2にないコードを入れると「見つかりません」とメッセージが表示されます。
では、下記のプログラムを実行すると担当者が表示されます。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Au() As Variant
If Target.Column <> 2 Then Exit Sub
nRow = Target.Row
nCol = Target.Column
wsEnd = Sheet2.Range("A1").CurrentRegion.Rows.Count
ReDim Au(2, wsEnd)
If Cells(nRow, nCol) <> "" Then
'配列Au()にコードと担当者を入れる
For i = 1 To wsEnd
Au(0, i) = Sheet2.Cells(i, 1)
Au(1, i) = Sheet2.Cells(i, 2)
Next i
For j = 1 To wsEnd
If Cells(nRow, nCol) = Au(0, j) Then
Application.EnableEvents = False
Cells(nRow, nCol + 1) = Au(1, j)
Application.EnableEvents = True
Exit Sub
End If
Next j
MsgBox ("見つかりません")
End If
End Sub
■ここで問題です。
■担当者の隣のD列に男女の性別を表示できるようにしましょう。
■がんばってね( ^)o(^ )
0コメント