[µo°Ý] ¶¥¼hÅÞ¿è§PÂ_

li_hsien

A     B     C     D     E     F      G
1                                        *        6B01M
        2                                        6102B
        2                                        6105B
1                                                2530B
        2                                        2410M
        2                                        241ZM
                3                                2110M
                3                        *        3100B
                        4                        3200B
                        4                *        3200B
                        4                        3600B
                                5                3600B
                        4                        3B00B
                        4                *        3B00B
                        4                *        3B02M
                                5                3B01B0
                        4                *        3B02M
                                5                3B01B
        2                                        4101B
        2                                *        4101B
        2                                        4101B
        2                                        4101B

¤W­±ªºÂ²¹Ï¬O§ÚEXCEL¤¤©Ò¥X²{ªº¹Ï¼Ë
(¦]¬°§ÚµLªk¥Îªí®æ¡A¥u¯à²o±jªº¥Î³oºØ¤è¦¡§e²{....Sorry...)
¼Æ¦r¬O¥Nªí¶¥¼h(¥Ñ¤W¦Ó¤UÀ˵ø)
¦pªGFÄæ¨S¦³Åã¥Ü*¦r¸¹
«h³Ì«áGÄ檺¥N½XÅã¥Ü¬°¬õ¦â¡A¤Ï¤§¦³*«h¬°¶Â¦â

¶¥¼hªº¥Î·N:
¦pªG1¶¥¬°*«h2.3.4.5...¶¥³£¬°¶Â¦â(¤£¥Î§ïÅÜ)
¦pªG2¶¥¬°*«h3.4.5.......¶¥³£¬°¶Â¦â(¤£¥Î§ïÅÜ)
.......
¦pªG¦P¶¥EX: 2¤U­±±µµÛ¬O2«h­Ó§O¨Ì¾Ú¬O§_¦³*¨Ó°µÃC¦â§P§O

¤p§Ì§Ú¥Ø«e©Ò°µªº¡A¥u¯à§P§O¬O§_¦³*¡A¦ý¤@ª½·Q¤£¨ì¸Ó¦p¦ó¨Ì¶¥¼h§PÂ_ªºÅÞ¿è

³Â·Ð¦U¦ì¤j¤jÀ°À°¦£

¥H¤Uªþ¤Wµ{¦¡½X¤ÎEXCELÀÉ®×

ÁÂÁÂ : )

1. Sub choose()
   
2.    
   
3.     Row = Worksheets(1).Range("A35536").End(xlUp).Row
   
4. 
   
5.    
   
6.     lv = 6
   
7.     Dim i As Integer
   
8.    
   
9.     For i = 1 To Row
   
10.    
    
11.           'Debug.Print "No." & i
    
12.           'Debug.Print "lv:" & lv
    
13.                
    
14.                
    
15.            If Range("A" & i) <> "" And Range("F" & i) = "" Then 'And lv <= 6 Then
    
16.            Range("H" & i) = "color1"
    
17.            lv = 5
    
18.            End If
    
19.                
    
20. 
    
21.            If Range("B" & i) <> "" And Range("F" & i) = "" And lv <= 5 Then
    
22.            Range("H" & i) = "color2"
    
23.            lv = 4
    
24.            End If
    
25. 
    
26. 
    
27.            If Range("C" & i) <> "" And Range("F" & i) = "" And lv <= 4 Then
    
28.            Range("H" & i) = "color3"
    
29.            lv = 3
    
30.            End If
    
31.             
    
32.    
    
33.            If Range("D" & i) <> "" And Range("F" & i) = "" And lv <= 3 Then
    
34.            Range("H" & i) = "color4"
    
35.            lv = 2
    
36.            End If
    
37.                
    
38.                
    
39.            If Range("E" & i) <> "" And Range("F" & i) = "" And lv <= 2 Then
    
40.            Range("H" & i) = "color5"
    
41.            lv = 1
    
42.            End If
    
43.                
    
44.                
    
45.     Next
    
46.    
    
47. End Sub

½Æ»s¥N½X

Test.zip (15.97 KB)

´ú¸ÕEXCELÀÉ
¤U¸ü¦¸¼Æ: 7

2013-10-28 14:23

GBKEE

¦^´_ 1# li_hsien
¸Õ¸Õ¬Ý¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub choose()
   
3.     Dim i As Integer, Rng As Range, lv As Integer
   
4.     With Worksheets(1)
   
5.         lv = 6
   
6.         For i = 1 To .Range("G35536").End(xlUp).Row
   
7.             .Range("G" & i).Interior.ColorIndex = IIf(.Range("F" & i) = "", 3, lv)
   
8.             .Range("h" & i) = ""
   
9.             If .Range("F" & i) = "" Then
   
10.                 Set Rng = .Range("A" & i).Resize(, 5).Find("*")
    
11.                 .Range("h" & i) = "color" & Rng.Column
    
12.             End If
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X

li_hsien

¦^´_ 2# GBKEE

(SORRY§Ú©Èª©­±¶]±¼©Ò¥H¥Î¬A¸¹¨Óµù°OÃC¦â)
¼Ð¬õ¦âªº¬O¦³()ªº§Ç¸¹

¥»¨­¬°*¤£¥Î¼Ð¦â
¥H¤Uªº¶¥¯Å¤]³£¤£¥Î¼Ð
(1>2>3>4>5)


¦]¬°²Ä¤@­Ó1¶¥¥L¦³¼Ð*
©Ò¥H¥H¤Uªº¤£¥Î¼Ð¦â

²Ä¤G­Ó1¨S¦³¼Ð*
©Ò¥H¥H¤Uªº2.3.4.5­n°µ*§PÂ_
¨ì¤F²Ä¤G­Ó3¦³¼Ð*
©Ò¥H¥H¤Uªº4.5³£¤£»Ý¼Ð¦â¤F

³Ì¤U­±ªº¥|­Ó2©¹¤W¶¥¬Ý¬O²Ä¤G­Ó1
¦]¬°1¨S¼Ð*
©Ò¥H¨º¥|­Ó2¦Û¤v°µ­Ó§O§PÂ_
¦³*«h¤£¥Î¼Ð¦â¡A¨S*«h­n¼Ð¦â

³W«h¤j­P»¡©ú¬O³o¼Ë
¦³ÂI¶Ã¡A§Æ±æ¤j¤jÀ°¦£¸Ñ¨M
ÁÂÁÂ : )


1                                        *        6B01M
        2                                        6102B
        2                                        6105B
1                                                2530B(¬õ¦â)
        2                                        2410M(¬õ¦â)
        2                                        241ZM(¬õ¦â)
                3                                2110M(¬õ¦â)
                3                        *        3100B
                        4                        3200B
                        4                *        3200B
                        4                        3600B
                                5                3600B
                        4                        3B00B
                        4                *        3B00B
                        4                *        3B02M
                                5                3B01B
                        4                *        3B02M
                                5                3B01B
        2                                        4101B(¬õ¦â)
        2                                *        4101B
        2                                        4101B(¬õ¦â)
        2                                        4101B(¬õ¦â)

li_hsien

¦^´_ 3# li_hsien

ªþÀɬO¥¿½T¸Ó¥X²{ªºÀx¦s®æÃC¦â
«á­±ªºCOLOER1.2.3...
¬O§Ú°Ñ¦Ò­×§ï¥Îªº


µ¹±z¥i¥H°Ñ¦Ò¤@¤U

ÁÂÁÂ : )

Test.zip (16.06 KB)

¥¿½TÃC¦â
¤U¸ü¦¸¼Æ: 7

2013-10-28 16:07

GBKEE

¦A¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub choose()
   
3.     Dim flag As Boolean, i As Integer, Rng As Range
   
4.     With Worksheets(1)
   
5.         For i = 1 To .Range("G35536").End(xlUp).Row  'GÄæ¤~¯uªº¦³¸ê®Æ
   
6.             .Range("h" & i) = ""
   
7.             If .Range("a" & i) <> "" And .Range("F" & i) = "" Then
   
8.                 flag = True
   
9.             ElseIf .Range("a" & i) <> "" And .Range("F" & i) = "*" Then
   
10.                 flag = False
    
11.             End If
    
12.             If flag = True And .Range("F" & i) = "" Then
    
13.                Set Rng = .Range("A" & i).Resize(, 5).Find("*")
    
14.                 .Range("h" & i) = "color" & Rng.Column
    
15.             End If
    
16.         Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X

¦^´_ 3# li_hsien

li_hsien

¦^´_ 5# GBKEE

§Ú´N¬O¥d¦b³oÃäXDD

²Ä¤G­Ó3¦]¬°¥L¦³¼Ð°O*
©Ò¥H¥H¤Uªº4.5¶¥³£¤£¥ÎÅܦâ
(G8~G18³£¤£¥ÎÅÜÃC¦â)

ª½±µ¸õ¨ì¤W¤@¶¥(2)

¨Ó§PÂ_ÅÜÃC¦â
   
¬O¤@­Ó¦^ÂЪºªþ¥ó
µ{¦¡½X¨S§ó§ï³á
§Ú¥uÅýªí³æÅã¥Ü¥¿½TªºÃC¦â¦Ó¤w


³Â·ÐÅo ÁÂÁ : )

stillfish00

1. Sub Test()
   
2.   Dim CurrentLevel As Long, i As Long
   
3.   Dim bMark As Boolean, ar() As Long
   
4.   
   
5.   With Sheets(1).[G1].CurrentRegion
   
6.     ReDim ar(.Cells(1).Column - 1 To .Columns.Count)
   
7.     ar(LBound(ar)) = vbRed
   
8.    
   
9.     For i = 1 To .Rows.Count
   
10.       CurrentLevel = .Range(.Cells(i, "A"), .Cells(i, "E")).SpecialCells(xlCellTypeConstants).Column
    
11.       bMark = (.Cells(i, "F").Value = "*")
    
12.       
    
13.       .Cells(i, "G").Interior.Color = IIf(bMark, vbYellow, ar(CurrentLevel - 1))
    
14.       ar(CurrentLevel) = .Cells(i, "G").Interior.Color
    
15.     Next
    
16.   End With
    
17. End Sub

½Æ»s¥N½X

¦^´_ 6# li_hsien

GBKEE

¦^´_ 6# li_hsien
¦A¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub choose()
   
3.     Dim flag(1 To 5) As Boolean, i As Integer, R As Integer, ii As Integer
   
4.     With Worksheets(1)
   
5.         .Range("a1", .Range("G35536").End(xlUp)).Interior.ColorIndex = 6
   
6.         For i = 1 To .Range("G35536").End(xlUp).Row  'GÄæ¤~¯uªº¦³¸ê®Æ
   
7.             R = .Range("A" & i).Resize(, 5).Find("*", .Range("A" & i)).Column
   
8.             If .Range("F" & i) = "*" And R = 1 Then Erase flag
   
9.             If .Range("F" & i) = "" Then
   
10.                 flag(R) = True
    
11.             ElseIf .Range("F" & i) = "*" Then
    
12.                 flag(R) = False
    
13.             End If
    
14.             For ii = 1 To R
    
15.                 If flag(ii) = False Then GoTo 10:
    
16.             Next
    
17.             .Range("G" & i).Interior.ColorIndex = 3
    
18. 10:
    
19.         Next
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

li_hsien

¦^´_ 7# stillfish00


ÁÂÁ¤j¤jªºÀ°¦£

¤£¹L§ÚCOPY¨Ó´ú¸ÕÁÙ¬O¸ò­è­èªO¤j©ÒPO¥X¨Óªºµ²ªG®t¤£¦h

¥¿±`¨Ó»¡¦pªG1¶¥¼Ð°O* ¤U­±ªº³£¤£»Ý­nÅܦâ

¦ý¨ºµ{¦¡½Xªºµ²ªGÁÙ¬O·|Åܦâ

: )

li_hsien

¦^´_ 8# GBKEE

OK¤F­C

¦ýªO¤j±zªºµ{¦¡½X¦nºë²

§Ú¬Q¤Ñ·Q¤F¤@¾ã¤Ñ ³Ì«á¤]¦³·Q¥X¨Ó

¤£¹L³£¬O¥Î³Ì°ò¥»ªº»yªk

ÅÞ¿è§PÂ_³]¤F¤@¤j°ï

§Ú¦AºCºC¬ã¨s³o¨Ç¤ñ¸û±M·~ªº»yªk
ÁÙ¦³stillfish00¤j´£¨Ñªº³¡¤À


§Æ±æ¯à¦h¾ÇÂI

¤£µM¨C¦¸³£¬O¥Î¤@¨Ç¨S¦³®Ä²vªº§@ªk¨Ó³B²z


ÁÂÁÂ : )