返回列表 上一主題 發帖

[發問] 請問 Select Case 的用法

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2015-4-21 13:52 | 顯示全部帖子
請問各位達人
以下有什麼地方我寫錯了
我希望它判斷e欄如是以下字串的話
就分別為A、B、C再帶入f欄中
但 ...
52ee24 發表於 2015-4-21 11:24


Dim QQ As Long
QQ = Range("A2").CurrentRegion.Rows.Count

For i = 2 To QQ
ZZ = Range("F" & i)

    Select Case ZZ
        Case  "01", "05", "21", "25", "26", "30", "46", "50", "51", "71", "75"
             Z1 = "C"
        Case  "02", "03", "04", "06", "10", "11", "15", "16", "20", "22", "23", "24" _
                            , "27", "28", "29", "31", "35", "36", "40", "41", "45", "47", "48", "49" _
                            , "52", "53", "54", "56", "60", "61", "65", "66", "70", "72", "73", "74"
             Z1 = "B"
        Case  "07", "08", "09", "12", "13", "14", "17", "18", "19" _
                            , "32", "33", "34", "37", "38", "39", "42", "43", "44" _
                            , "57", "58", "59", "62", "63", "64", "67", "68", "69"
             Z1 = "A"
    End Select
Next i
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2015-4-21 14:33 | 顯示全部帖子
回復  PKKO


    P大你好
   還是沒辦法跑出來
   看你改寫的方式，是可以不用寫出E欄"01~75"值嗎
52ee24 發表於 2015-4-21 14:24


我測試過可以執行~你把有問題的地方PO上來

看你改寫的方式，是可以不用寫出E欄"01~75"值嗎
=>這跟你程式毫無相關,沒有一個地方會用到E欄
PKKO

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題