ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-10-28 16:22 ½s¿è

¦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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# li_hsien
Find("") ->´M§äªÅ¥ÕªºÀx¦s®æ
Find("*") ->´M§ä¥ô¦ó¦³¸ê®ÆªºÀx¦s®æ
.Find("*", .Range("A" & i))   ¨S¿ù : ¬O§ä¦³¦³¸ê®ÆªºÀx¦s®æ¦ì¸m¡A±qAÄæ¶}©l§ä§a
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD