標題: [發問] 有關數字分區的問題 [打印本頁]

---

作者: imzues    時間: 2012-1-9 09:35     標題: 有關數字分區的問題

想請問各位大大
有關數字碼分區的問題
條件限制為
後面兩碼1、5、21、25是C
2、3、4、6、10、11、15、16、20、22、23、24是B
7、8、9、12、13、14、17、18、19是A
若從右邊數第7碼為0為D(這條件大於前面3個條件)
這個有什麼方法可以分出來!!
感謝各位
[attach]9154[/attach]

---

作者: GBKEE    時間: 2012-1-9 10:15

回復 1# imzues

1. Option Explicit
   
2. Sub Ex()
   
3. '後面兩碼1、5、21、25是C
   
4. '2、3、4、6、10、11、15、16、20、22、23、24是B
   
5. '7、8、9、12、13、14、17、18、19是A'
   
6. '若從右邊數第7碼為0為D(這條件大於前面3個條件
   
7. Dim Rng As Range, Ar(), i
   
8.     Set Rng = Range("d3", Range("d3").End(xlDown)).Resize(, 2)
   
9.     Ar = Rng
   
10.     For i = 1 To UBound(Ar)
    
11.         If Mid(Right(Ar(i, 1), 7), 1, 1) = "0" Then
    
12.             Ar(i, 2) = "D"
    
13.         ElseIf InStr("01、05、21、25", Right(Ar(i, 1), 2)) Then
    
14.             Ar(i, 2) = "C"
    
15.         ElseIf InStr("02、03、04、06、10、11、15、16、20、22、23、24", Right(Ar(i, 1), 2)) Then
    
16.             Ar(i, 2) = "B"
    
17.         ElseIf InStr("07、08、09、12、13、14、17、18、19", Right(Ar(i, 1), 2)) Then
    
18.             Ar(i, 2) = "A"
    
19.         End If
    
20.     Next
    
21.     Rng.Value = Ar
    
22. End Sub

複製代碼

---

作者: imzues    時間: 2012-1-9 11:56

感謝~又學到新的方法了~受益良多!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)