帖子: 51
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: vista
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-11-26
最後登錄: 2024-1-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-4-21 11:24 | 只看該作者

[發問] 請問 Select Case 的用法

請問各位達人
以下有什麼地方我寫錯了
我希望它判斷e欄如是以下字串的話
就分別為A、B、C再帶入f欄中
但不知哪錯了
請各位達人幫幫忙了
謝謝
Dim QQ As Long
QQ = Range("A2").CurrentRegion.Rows.Count
Dim ZZ As Long
Dim Z1 As Long
For i = 2 To QQ
ZZ = Range("F" & i) = Z1

Select Case Z1
      Case Range("E" & i) = "01", "05", "21", "25", "26", "30", "46", "50", "51", "71", "75"
         Z1 = "C"
      Case Range("E" & i) = "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 Range("E" & i) = "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

樓主熱帖

tyrone123456

中學生 Rank: 2

帖子: 49
主題: 0
精華: 0
積分: 54
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-4-14
最後登錄: 2015-7-16

2^#

發表於 2015-4-21 13:51 | 只看該作者

回復 1# 52ee24

你已經定義Z1是Long，可是你裡面又說Z1="C"〈這是String〉，所以GG了，
另外 ZZ = Range("F" & i) = Z1 這個寫法的用意，很怪，我不了解你的用意

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

3^#

發表於 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

52ee24

中學生 Rank: 2

帖子: 51
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: vista
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-11-26
最後登錄: 2024-1-15

4^#

發表於 2015-4-21 14:06 | 只看該作者

本帖最後由 52ee24 於 2015-4-21 14:07 編輯

回復 2# tyrone123456

t大，這是因為猜不出到底那寫錯了，在亂寫的，請別在意
把定義改成字串也跑不出來～

TOP

52ee24

中學生 Rank: 2

帖子: 51
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: vista
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-11-26
最後登錄: 2024-1-15

5^#

發表於 2015-4-21 14:24 | 只看該作者

回復 3# PKKO

P大你好
還是沒辦法跑出來
看你改寫的方式，是可以不用寫出E欄"01~75"值嗎

TOP

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2015-4-21 14:33 | 只看該作者

回復 PKKO

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

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

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

PKKO

TOP

tyrone123456

中學生 Rank: 2

帖子: 49
主題: 0
精華: 0
積分: 54
點名: 0
作業系統: WinXP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2015-4-14
最後登錄: 2015-7-16

7^#

發表於 2015-4-21 14:59 | 只看該作者

我根據你的程式來推論你要的東西
另外我把Z1的結果顯示在G欄位

TOP

52ee24

中學生 Rank: 2

帖子: 51
主題: 19
精華: 0
積分: 84
點名: 0
作業系統: vista
軟體版本: office2010
閱讀權限: 20
註冊時間: 2014-11-26
最後登錄: 2024-1-15

8^#

發表於 2015-4-21 16:40 | 只看該作者

回復 7# tyrone123456

P大我解出來了，原來要把結果寫在敘述裡，太謝謝你了
我改成這樣就可以了↓
For i = 2 To QQ
ZZ = Range("E" & i)
Select Case ZZ
      Case "01", "05", "21", "25", "26", "30", "46", "50", "51", "55", "71", "75"
            Z1 = "C"
            Range("F" & i) = Z1
      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"
            Range("F" & i) = Z1
      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"
            Range("F" & i) = Z1
   End Select
Next i

TOP