条件判断的代码

lrlxxqxa

1. Sub aa()
   
2. If [h1] > 0 Then
   
3. [h1] = 600
   
4. Else
   
5. [h1] = 0
   
6. End If
   
7. End Sub

复制代码

1. Sub bb()
   
2. Select Case [h1]
   
3. Case Is > 0
   
4. [h1] = 600
   
5. Case Else
   
6. [h1] = 0
   
7. End Select
   
8. End Sub

复制代码

1. Sub cc()
   
2. [h1] = IIf([h1] > 0, 600, 0)
   
3. End Sub

复制代码

如果H1数值大于0，则H1填充为600，如果H1小于等于0，则H1填充为0。

zxc1152468

学习学习了

zxc1152468

顶一下