(2)用len函数算出总的字符数,再用instr函数算出小数点的位置,将两个数相减,得出小数点后的位数。 (3)if判断,如果基础数据表中的基本计量单位不为“PC”,则正常填数量、母件数量字段 否则:用select case 判断, 如果小数点后有1位数,则数量、母件数量都乘以10 如果小数点后有2位数,则数量、母件数量都乘以1...
Select Case结构是对同一个变量进行多次判断的另一种方式。相对于If ElseIf Else结构，它把条件表达式中的变量提取出来，使得代码结构更简洁，也更易于阅读。Select Case结构的基本语法如下：Select Case 变量Case 判断条件 1 '条件 1 真时，执行的代码Case 判断条件 2 '条件 2 真时，执行的代码Case...
然后它前进到下面的第一个Case子句,如果这个表达式的值和测试表达式的值匹配的话,VB就会执行语句直到遇到另外一个Case子句并且跳到End Select语句。然而,如果第一个Case子句后面的表达式测试结果和测试表达式不匹配时,VB就会检查每一个Case子句,直到它找到一个匹配的为止。如果没有一个Case子句后面的表达式匹配测试表达式...
例如,如果你需要基于一个表达式的值从多个选项中选择一个执行,Select Case通常比嵌套的If...Then...Else语句更容易理解和维护。然而,对于更复杂的条件逻辑,If...Then...Else语句可能更加灵活和强大。 综上所述,Select Case语句是VBA中处理多条件分支的一种强大工具,它使得代码更加清晰、易于理解和维护。
今天我们聊聊Select Case语句,在这些方面可以弥补IF…Then..Else不足。 先看看Select case的语法: Select Case 测试表达式 Case 表达式列表1 语句1 Case 表达式列表2 语句2 Case 表达式列表n 语句n Case Else 语句 End Select 测试表达式:必要参...
使用Select Case语句作为在 If... 中使用ElseIf的替代方法。然后。。。将一个表达式与多个不同值进行比较时的 Else 语句。If...Then...Else语句可计算每个ElseIf语句的不同表达式,Select Case语句则只在控制结构顶部计算一次表达式。 在以下示例中,Select Case语句计算传递给过程的参数。 请注意,每个Case语句可以...
Select Case…Case…End Select语句 当一个表达式与几个不同的值相比较时，可以使用Select Case分支判断语句替换使用在If…Then…Else…End If语句中的ElseIf。If…Then…Else…End If语句会计算每个ElseIf语句的不同的表达式。在控制结构的顶部，而Select Case 语句只计算表达式一次。在下面的示例中，Select Case...
要求中条件比较多,使IF…Then…需要多层嵌套,而Select Case语句会更简单。代码如下: ___ Sub时间() Dim Tim As Byte, msg As String Tim = Hour(Now) Select Case Tim Case 1 To 11 msg = "上午" Case 12 msg = "中午" Case 13 To 16 ...
end if 然而，当面对多个选择时，if语句的使用会变得复杂，特别是在需要根据多个条件进行判断的情况下。此时，case语句可以提供更清晰的代码结构。例如，假设变量i的值可能为0到9之间的任意整数，我们需要根据i的值执行不同的语句。这时，可以使用case语句，而不需要组合多个if语句：select case i case 0...
--- ### VBA中的`Select Case`语句 ### 概述 在VBA编程中,`Select Case`语句用于根据一个表达式的值执行不同的代码块。它类似于其他编程语言中的`switch`或`case`语句。通过使用`Select Case`,你可以简化多个`If...ElseIf...Else`条件判断的代码结构,使代码更加清晰和易于维护。 ### 语法 ```vba Sele...