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

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

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

GBKEE

¦^´_ 14# li_hsien
Find("") ->´M§äªÅ¥ÕªºÀx¦s®æ
Find("*") ->´M§ä¥ô¦ó¦³¸ê®ÆªºÀx¦s®æ
.Find("*", .Range("A" & i))   ¨S¿ù : ¬O§ä¦³¦³¸ê®ÆªºÀx¦s®æ¦ì¸m¡A±qAÄæ¶}©l§ä§a

GBKEE

¦^´_ 16# li_hsien
.Range("A" & i).Resize(, 5).Find("*", .Range("A" & i))
Resize±N«ü©wÂX¥R¬°(´X¦C,´XÄæ)ªº½d³ò -> Ai:Ei ªº½d³ò.Find("*", .Range("A" & i))->Find("*" : ´M§ä¦³¸ê®ÆªºÀx¦s®æ.
FÄ檺* ¦b³o¸Ì§PÂ_¥X¨Ó -> ElseIf .Range("F" & i) = "*" Then

1. Dim flag(1 To 5) As Boolean-> ªì©l¤Æ 1 - 5 ¬° False
   
2. If .Range("F" & i) = "*" And R = 1 Then Erase flag
   
3. '*************************
   
4. Erase ³¯­z¦¡
   
5. ­«·sªì©l¤Æ©T©w¤j¤p°}¦Cªº¤¸¯À¡A¨ÃÄÀ©ñ°ÊºA°}¦CªºÀx¦sªÅ¶¡¡C-> 1 - 5 ¬° False
   
6. '*******************************************
   
7.   

½Æ»s¥N½X