当单元格为空时显示消息

目前我设法做一个单元格，当指定的单元格是空的，然后在单元格上显示消息/语句。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("AA17").Value = ISBLANK Then Range("AA17").Value = "Please Specify" End If End Sub 

我想要做的是，对于几个单元格，它将显示相同的东西。 我可以继续为所有的celsl做同样的事情，但是我有几百个单元格格式化它。

有没有办法做到这一点？

Answer 1

如果这些单元格是连续的，则可以通过它们循环。

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim checkRng As Range Dim cel As Range Set checkRng = Range("A7:A70") For Each cel In checkRng If cel.Value = ISBLANK Then cel.Value = "Please Specify" End If Next cel End Sub 

Answer 2

如果指定范围内有任何更改，则下面的代码将运行

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rng As Range Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.ActiveSheet Set Rng = ws.Range("A1:A100") If Not Intersect(Target, Rng) Is Nothing Then For Each Cell In Rng If IsEmpty(Cell.Value) = True Then Cell.Value = "Please Specify" End If Next End If Set Rng = Nothing Set ws = Nothing Set wb = Nothing End Sub