如何实现在单元格中录入数据?
给你一段VBA
-----------
Private Sub Worksheet_Change(ByVal Target As Range)
'E|F|I|J|M|N|Q|R
Application。 EnableEvents = False
If (Target。Cells(1, 1)。Column > 26) or (Target。Cells(1, 1)。row lT Then Range(c & ir)。 Value = "0"
Next
100:
Application。EnableEvents = True
End Sub。全部
给你一段VBA
-----------
Private Sub Worksheet_Change(ByVal Target As Range)
'E|F|I|J|M|N|Q|R
Application。
EnableEvents = False
If (Target。Cells(1, 1)。Column > 26) or (Target。Cells(1, 1)。row lT Then Range(c & ir)。
Value = "0"
Next
100:
Application。EnableEvents = True
End Sub。收起