[已解决]大家帮我精简一下代码

fangniuji

If Sheets("参数").Range("e1") = "" Then
    MsgBox "请在E1到E4选择资料。"
    Exit Sub
  End If
If Sheets("参数").Range("e2") = "" Then
    MsgBox ""请在E1到E4选择资料。"
    Exit Sub
  End If
If Sheets("参数").Range("e3") = "" Then
    MsgBox ""请在E1到E4选择资料。"
    Exit Sub
  End If
  If Sheets("参数").Range("e4") = "" Then
    MsgBox ""请在E1到E4选择资料。"
    Exit Sub
  End If

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-26 17:08

1. Sub xx()
   
2.     With Sheets("参数")
   
3.         For i = 1 To 4
   
4.             If .Cells(i, 5) = "" Then
   
5.                 MsgBox "请在E1到E4选择资料。"
   
6.                 Exit Sub
   
7.             End If
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub xx()
   
2.     With Sheets("参数")
   
3.         For i = 1 To 4
   
4.             If .Cells(i, 5) = "" Then
   
5.                 MsgBox "请在E1到E4选择资料。"
   
6.                 Exit Sub
   
7.             End If
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码