VBA用For循环判断验证单元格必填，并给出提示内容包含左侧的名称。

1.                     For Each MyRange In ActiveWorkbook.Names
   
2.                         If Left(MyRange.ToString, 2) <> "F_" And Left(MyRange.ToString, 2) <> "T_" And MyRange.ToString <> "SendDate" And MyRange.ToString <> "TemplateName" Then
   
3.                             If Range(MyRange.ToString).Cells(0, 0).Value Is Nothing Then
   
4.                                 If Range(MyRange.ToString).Cells(0, 0).Offset(0, -1).MergeCells Then
   
5.                                     If Range(MyRange.ToString).Cells(0, 0).Offset(0, -2).Text <> "" Then
   
6.                                         MessageBox.Show(Range(MyRange.ToString).Cells(0, 0).Offset(0, -2).Text + "不能为空！", "提示！", MessageBoxButton.OK)
   
7.                                         Range(MyRange.ToString).Select()
   
8.                                         Return
   
9.                                     Else
   
10.                                         MessageBox.Show(MyRange.ToString + "不能为空！", "提示！", MessageBoxButton.OK)
    
11.                                         Range(MyRange.ToString).Select()
    
12.                                         Return
    
13.                                     End If
    
14.                                 Else
    
15.                                     If Range(MyRange.ToString).Cells(0, 0).Offset(0, -1).Text <> "" Then
    
16.                                         MessageBox.Show(Range(MyRange.ToString).Cells(0, 0).Offset(0, -1).Text + "不能为空！", "提示！", MessageBoxButton.OK)
    
17.                                         Range(MyRange.ToString).Select()
    
18.                                         Return
    
19.                                     Else
    
20.                                         MessageBox.Show(MyRange.ToString + "不能为空！", "提示！", MessageBoxButton.OK)
    
21.                                         Range(MyRange.ToString).Select()
    
22.                                         Return
    
23.                                     End If
    
24.                                 End If
    
25.                             End If
    
26.                         End If
    
27.                     Next

复制代码

VBA用For循环判断验证单元格必填，并给出提示内容包含左侧的名称。

1.                     For Each MyRange In ActiveWorkbook.Names
   
2.                         If Left(MyRange.ToString, 2) <> "F_" And Left(MyRange.ToString, 2) <> "T_" And MyRange.ToString <> "SendDate" And MyRange.ToString <> "TemplateName" Then
   
3.                             If Range(MyRange.ToString).Cells(0, 0).Value Is Nothing Then
   
4.                                 If Range(MyRange.ToString).Cells(0, 0).Offset(0, -1).MergeCells Then
   
5.                                     If Range(MyRange.ToString).Cells(0, 0).Offset(0, -2).Text <> "" Then
   
6.                                         MessageBox.Show(Range(MyRange.ToString).Cells(0, 0).Offset(0, -2).Text + "不能为空！", "提示！", MessageBoxButton.OK)
   
7.                                         Range(MyRange.ToString).Select()
   
8.                                         Return
   
9.                                     Else
   
10.                                         MessageBox.Show(MyRange.ToString + "不能为空！", "提示！", MessageBoxButton.OK)
    
11.                                         Range(MyRange.ToString).Select()
    
12.                                         Return
    
13.                                     End If
    
14.                                 Else
    
15.                                     If Range(MyRange.ToString).Cells(0, 0).Offset(0, -1).Text <> "" Then
    
16.                                         MessageBox.Show(Range(MyRange.ToString).Cells(0, 0).Offset(0, -1).Text + "不能为空！", "提示！", MessageBoxButton.OK)
    
17.                                         Range(MyRange.ToString).Select()
    
18.                                         Return
    
19.                                     Else
    
20.                                         MessageBox.Show(MyRange.ToString + "不能为空！", "提示！", MessageBoxButton.OK)
    
21.                                         Range(MyRange.ToString).Select()
    
22.                                         Return
    
23.                                     End If
    
24.                                 End If
    
25.                             End If
    
26.                         End If
    
27.                     Next

复制代码