可以試試Split函數，參考看看https://www.twblogs.net/a/5b7f4a8b2b717767c6aed759

謝謝hb大的回覆
但是主要是卡要讓逗號這個運算子讓程式辨識到
e.g.
For i = 1 To 100
Select Case i
Case inputbox //前端輸入2,3,5 or 1,2,3,4,5,6...,..,...,...
Case Else:
[ statements ]
End Select
Next

用 instr 去尋找逗號，來處理
請參考
https://docs.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/instr-function

To Josh Cheng：

1F提供的資訊是要將前端輸入2,3,5的文字，拆成3個2、3、5等3個數字，再進行Select Case的處理，因為Split函數可以將含有『,』的字串，拆解成Array，再利用Array循環圈讀出每一數字再進行處理。

若問題不是如此，可能需要描述更清楚些？或Po出語法？

回香帥大
提供新的想法感覺不錯,晚點試試
謝謝!

回HB大，謝謝你的熱情回覆
你的方法我試過，但我沒試成功，爬了蠻多文，在想是不是case 後面的逗號跟陣列裡面的逗號意義不同的關係

但最後還是要用for加上你提供的Split寫出來一樣的邏輯
For i = 1 To count

If UBound(boxarry)>=0 Then
j=0
For UBound(boxarry)

If i = Cint(boxarry(j)) Then

Exit For
End If
j=j+1
Next
End If
Next

雖然CASE 的方式還是沒有解決,不過算是達到同樣的目的了,再次感謝

提供簡易的範例供參考，看看是否符須需求
Private Sub test() Dim strS As String Dim arrNO() As String Dim tmpNO As Integer strS = "2, 3, 5" arrNO = Split(strS, ",") For i = 0 To UBound(arrNO) tmpNO = CInt(Val(arrNO(i))) Select Case tmpNO Case 2 MsgBox tmpNO Case 3 MsgBox tmpNO Case 5 MsgBox tmpNO End Select Next End Sub

回覆HB大
謝謝你提供簡潔有力的CODE
但主要的問題是我要在前端輸入條件,這也代表不只會有三個CASE而已,所以才會想用一欄多條件的CASE也就是case 1,2,3,.......這種寫法
所以才一直在執著有沒有可以直接讓code進行邏輯運算子的方法!
假設1到100
今天"2,3,5,6,9"不執行
明天"2,3,5,6,9,30,70"不執行

Private Sub test() Dim strS As String Dim arrNO() As String Dim tmpNO As Integer strS = "2,3,5,6,9" //前端輸入長度不一 arrNO = Split(strS, ",") For i = 0 To UBound(arrNO) tmpNO = CInt(Val(arrNO(i))) Next For i = 1 To 100 Select Case i Case tmpNO //沒逗號的問題 Case Else: MsgBox xxx End Select Next End Sub

To Josh Cheng：

1. strS = "2, 3, 5"只是舉例，幾個可以自行改變，但Select Case需同時設定，才能執行。

2. 從8F得知，只是將1 to 100間過濾所輸入之數字而已，提供下述語法供參考：
Private Sub test() Dim strS As String strS = "2, 3, 5, 50, 78" For i = 1 To 100 If InStr(strS, i) > 0 Then MsgBox "Exist" Else MsgBox "XXXX" End If Next End Sub

回覆HB大:
謝謝,後來也是用IF來完成,但是如果CASE能夠執行的話,是想用case比較方便
再次感謝了!

回覆HB大:

用InStr比對會有風險 ....

Private Sub test()
Dim strS As String
strS = "2, 3, 5, 50, 78"
For i = 1 To 100
If InStr(strS, i) > 0 Then
List1.AddItem i
End If
Next
End Sub

還是需要回到1F的觀念，修正語法如下：

Private Sub test() Dim strS As String Dim bChk As Boolean Dim arrNO() As String strS = "2, 3, 5, 50, 78" arrNO = Split(strS, ",") For i = 1 To 100 bChk = False For j = 0 To UBound(arrNO) If i = CInt(Val(arrNO(j))) Then bChk = True Exit For End If Next If bChk Then MsgBox "Exist" Else MsgBox "XXXX" End If Next End Sub