在工作表中使用多个范围

我有一个名为起始页 ，我正在与工作表 。 我的代码的目标是通知用户单元格是否为空，需要通过消息框input值。 我已经能够使用If语句来做到这一点。 看到我的代码如下：

Dim rng As Range Set rng = Sheets("Start page").Range("A4") If rng = "" Then MsgBox "Please enter Date from A4", vbOKCancel Exit Sub End If 

不过，我试图避免使用多个If语句 。 我所指的单元格和消息框如下所示：

 Sheets(“Start page”).range(“A4”) msgbox “Please enter First valuation Date inA4” Sheets(“Start page”).range(“F5”) msgbox “ Please enter the BPS” Sheets(“Start page”).range(“F7”) msgbox “ Please enter Account number” Sheets(“Start page”).range(“F9”) msgbox “ Please enter Date” Sheets(“Start page”).range(“F11”)msgbox “ Please enter Number of Periods” Sheets(“Start page”).range(“F13”)msgbox “Please Enter number of Days in the Year" 

有没有这样做的有效方式？

Answer 1

这是我如何描绘你的工作表。

代码将遍历范围，第一个find空的将popup一条消息。

代码使用消息中的上面的单元格。

 Sub FndBlnk() Dim Rng As Range, c As Range Set Rng = Range("A4,F5,F7,F9,F11,F13") For Each c In Rng.Cells If c <> "" Then Else: MsgBox "Enter " & c.Offset(-1) c.Select Exit Sub End If Next c End Sub