|
因みに上のコードに
If Target.Count = 1 Then
なくても良いです。
一応目を通してみました。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address(0, 0) <> "B1" Then Exit Sub
If .Value = "" Then
.Interior.ColorIndex = 3
MsgBox ("社員番号を入力してください")
Exit Sub
Else
.Interior.ColorIndex = xlNone
社員番号出力
End If
'↓このI9セルとの比較は値?何の為に比較?
If .Value = Range("I9").Value Then
Select Case .Value
Case 5:
Call FormTest
'Range("I9").Activate
'ActiveCell.Clear
'↑2つ合わせて、これで良いです。
Range("I9").Clear
Case 6:
M消去
'Range("B1:B5").Value = ""
' ↑でも良いけど..。
'Target.Count = 1 ・・・と、していたから(省いたけど)
'イベントの抑制は必須じゃないのかも知れないけど...。
Application.EnableEvents = False
Range("B1:B5").ClearContents
Application.EnableEvents = true
Range("B1").Activate
Case Else
Range("I9").Clear
End Select
End If
End With
End Sub
|
|