Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim y As Integer Dim x As Integer x = Range("a65536").End(xlUp).Row For y = 1 To x If Range("a" & y).Value = "" Then MsgBox "您有空的单元格存在,请补上数据!" End If y = y + 1 Next y End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandler Columns(1).SpecialCells (4) MsgBox "您有空的单元格存在,请补上数据!" ErrorHandler: End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandler Columns(1).SpecialCells (4) MsgBox "您有空的单元格存在,请补上数据!" ErrorHandler: End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandler Columns(1).SpecialCells (4) MsgBox "您有空的单元格存在,请补上数据!" ErrorHandler: End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandler Columns(1).SpecialCells (4) MsgBox "您有空的单元格存在,请补上数据!" ErrorHandler: End Sub