| |
列Ａに氏名、列Ｃにその人の所属が表記されるようなシートをつくりたいのです。
列Ｃは普段は空白ですが、列Ａに氏名を入力されると、その行の列Ｃに、その人の所属が自動的に現れるようにしたいのです。（所属は、userformから入力されます）
シートモジュールに、以下のように記述してあります。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim U1 As Range, aCell As Range
Set U1 = Intersect(Target, Columns("a"))
If Not U1 Is Nothing Then 'U1が一つでも重なっていれば…
For Each aCell In U1
aCell.Offset(, 2).Value = userform.textbox1.value
Next
End If
これで、確かに列Ａに名前を打ち込むと、列Ｃにuserformで入力した値が出るのですが、列Ａの名前を削除しても、列Ｃに現れた値が消えません。列Ａが空欄になったら、それに合わせて列Ｃの値も空欄になるようにしたいのですが、どうしたらよいでしょう？
|
|
- 03/11/26(水) 23:40 -
