Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count=1 Then
if target.row>=6 and target.row<=12 then
if target.column>=6 and target.column<=9 then
target="Test"
end if
end if
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Set Rng = Application.Intersect(Target, Range("$F$6:$I$12"))
If Not Rng Is Nothing Then
Application.EnableEvents = False
Rng.Value = "Test"
Application.EnableEvents = True
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024