VBA检查Dymanic范围缺失数据

Question

我一直在搞清楚如何为项目检查阶段数据在保存工作簿之前是否缺少动态范围。数据库页面将继续增长并且不确定如何使这个范围动态化。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
Dim rsave As Range 
Dim cell As Range 

Sheets("Database").Select 

Set rsave = Range("a7:a125") 

For Each cell In rsave 
If cell = "" Then 
    Dim missdata 
    missdata = MsgBox("Missing Phase Data", vbOKOnly, "Missing Phase Data") 
    Cancel = True 
    cell.Select 
    Exit For 
End If 
Next cell 
End Sub 

Answer 1

这会给你完整的故事上遗失物品：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Dim msg As String, N As Long, cl As Range 
    N = Cells(Rows.Count, 1).End(xlUp).Row +1 
    Dim r As Range 
    Set r = Range("A7:A" & N) 
    For Each cl In r 
     If cl.Value = "" Then 
      msg = msg & vbCrLf & cl.Address(0, 0) 
     End If 
    Next cl 
    If msg = "" Then Exit Sub 
     MsgBox msg 
     Cancel = True 
End Sub