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

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

  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

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2013-10-29 19:40 ½s¿è

¦^´_ 9# li_hsien
§A¦b For i = 1 To .Rows.Count «e¤@¦æ¥[¤J .Value = .Value ¬Ý¬Ý¡C

ªþÀɪºÀx¦s®æ©Ç©Çªº¡AµLªk¥Î¯S®í´M§ä§ä¨ì±`¼ÆÀx¦s®æ¡A¥[¤W¤W­±ªº­«·s½á­È´N¥i¥H¤F¡A¤£ª¾¹D¬O¬°¤°»ò::(
§Úªº§PÂ_ÅÞ¿è¬O¸Ó¦æ¦³¬P¸¹´N¶À¦â¡A¨S¬P¸¹´N©M¤W¤@¶¥¦P¦â¡A(¨Ã³]©w²Ä0¶¥¬°¬õ¦â)¡C

TOP

        ÀR«ä¦Û¦b : ¦Y­W¤F­W¡B­WºÉ¤Ü¨Ó¡A¨ÉºÖ¤FºÖ¡BºÖºÉ´d¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD