VBA判断case语句2

【3】VBA判断case语句Case      

1/ExcelVBA之Case语句

  https://blog.csdn.net/soga235/article/details/106581783

0/select case Qyh 'Qyh为数字

   case 5

    ...

   end select

  select case Qyh  'Qyh为字符串

   case "05"

   ...

   end select 

【2】VBA判断case语句Case

3/https://sa93g4./pages/question/question?qid=390427399913458285&hostname=baiduboxapp&_swebfr=1

2)czm/yb表产值产量宏

iStr21＝"工业总产值"

...

Select Case StrArray2(n1) '相当于if x=5 then语句中的x,变动的

     Case iStr21  '"工业总产值"，相当于if x=5 then语句中的5,确定的基准参照值

       GoTo fff1  '跳回到for-next n1中,进入下一个循环,"fff1:"位于next n1前一行

     Case iStr22  '"主要工业产品产量"

       GoTo fff2  '跳出for-next n1循环,"fff1:"位于next n1后

     Case iStr23  '"纤维"

       GoTo fff2  '跳出for-next n1循环

     Case iStr24  '"a"

       GoTo fff2  '跳出for-next n1循环

     End Select　'结束case循环

1)当你不得不测试很多条件，你可以用Select Case 语句来代替If Then..ElseIf 。

http://www.chinaacc.com/new/403_406_/2009_6_3_su38144254193690025772.shtml

  语法如下：

  Sub test()

　　Select Case Selection.Value

　　Case Is >= 85

　　Selection.Offset(0, 1) = "A"

　　Case Is >= 75

　　Selection.Offset(0, 1) = "B"

　　Case Is >= 65

　　Selection.Offset(0, 1) = "C"

　　Case Is >= 50

　　Selection.Offset(0, 1) = "D"

　　Case Else

　　Selection.Offset(0, 1) = "F"

　　End Select

　　End Sub

　这段语句意思：如所选单元格的值大于85时，则其右边那个单元格的值为“A”…… 所选单元格的值小于50时，其右边那个单元格的值为“F”。

.......

2）vba中case语句中，表达式如果需要用函数处理怎么办

https://zhidao.baidu.com/question/583079506454534485.html?fr=iks&word=VBA%D6%D0case%D3%EF%BE%E4&ie=gbk

.......

3）用VBA select case语法

https://zhidao.baidu.com/question/95429760.html?fr=iks&word=VBA%D6%D0case%D3%EF%BE%E4&ie=gbk

　2#/Private Sub CB1_Click()

Select Case Sheet1.Range("A1")  '

Case "A"

Sheet1.Range("A3") = "联想"

Case "B"

Sheet1.Range("A3") = "华硕"

Case "C"

Sheet1.Range("A3") = "惠普"

Case "D"

Sheet1.Range("A3") = "IBM"

Case "E"

Sheet1.Range("A3") = "三星"

Case Else

Sheet1.Range("A3") = "不知道"

End Select

End Sub

【】