|
どなたか教えてください。
cells(1,1)とcells(1,4)に入力規則のリストを設定します。
そのデータ範囲はcells(3,1)からcells(3,3)に設定します。
リストから選択するとそれぞれの右隣のセル(cells(1,2)とcells(1,4))に
相当する値を自動的に入力するようなマクロを作りたいのです。
模式図を下に示します。
1 2 3 4
_____________________
1 |3 z 2 y
2 |1 2 3 ←リストのデータ範囲
3 |x y z ←値
自分で作ってみたマクロは・・・・
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Cells(1, 1) Then
For k = 1 To 3
If Cells(2, k) = Cells(1, 1) Then
Cells(1, 2) = Cells(3, k)
Exit For
Else
Cells(1, 2) = ""
End If
Next k
End If
If Target = Cells(1, 3) Then
For k = 1 To 3
If Cells(2, k) = Cells(1, 3) Then
Cells(1, 4) = Cells(3, k)
Exit For
Else
Cells(1, 4) = ""
End If
Next k
End If
Exit Sub
End Sub
実際やってみると、リストから選択しても自動的に入力されません。
ただ、リストを設定しているセルに無理やり手入力すると、ちゃんと自動的に
入力されるのです。
どういうことでしょうか??ご教授ください。
よろしくお願いいたします。
|
|