½Ð°Ývban«ç¼Ë¼g¤~¯àÅý¤å¦rÃC¦â¥æ¤e§e²{@@
- ©«¤l
- 97
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-5-7
- ³Ì«áµn¿ý
- 2022-8-25
|
½Ð°Ývban«ç¼Ë¼g¤~¯àÅý¤å¦rÃC¦â¥æ¤e§e²{@@
¦pÃD¡An«ç¼Ë¤~¯àÅý¤å¦rÃC¦â¦p¤U¹Ïªº¤è¦¡§e²{
¨Ò¦p¤@¶}©l¥ÎÂŦâ¡A¹J¨ì¤U¤@Ó¤£¤@¼Ëªº¦WºÙ®É¡A´«¥t¥~¤@ÓÃC¦â¼Ð¥Ü
¥Î¨âºØÃC¦â¨Ó¼Ð¥Ü¡A¨CÓ¦WºÙªº¸ê®Æ¶q¤£¤@©w
|
|
|
|
|
|
|
- ©«¤l
- 97
- ¥DÃD
- 33
- ºëµØ
- 0
- ¿n¤À
- 129
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2019-5-7
- ³Ì«áµn¿ý
- 2022-8-25
|
³o¬O§Ú¥Ø«e·Q¨ìªº¤èªk¡A¦p¦³°ª¤â¦³§ó¦nªº¤è¦¡Åwªï«ü±Ð~~~- Sub color()
- color1 = -3902908
- color2 = -13270700
- With ActiveSheet
- r = .Columns(1).Find(what:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
- c = color1
- CC = 1
- .Cells(1, "A").Font.color = c
- For i = 1 To r
- a = .Cells(i, "A")
- If i = 1 Then
- b = .Cells(i + 1, "A")
- Else
- b = .Cells(i - 1, "A")
- End If
- If a = b Then
- .Cells(i, "A").Font.color = c
- ElseIf a <> b And CC = 1 Then
- c = color2
- CC = 0
- .Cells(i, "A").Font.color = c
- ElseIf a <> b And CC = 0 Then
- c = color1
- CC = 1
- .Cells(i, "A").Font.color = c
- End If
- Next i
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 2728
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2784
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2023-11-28
|
Sub TEST()
Dim xR As Range, xH As Range, T$, Cr, c%
[A:A].Font.ColorIndex = 1
Cr = Array(5, 3)
For Each xR In Range([A1], [A65536].End(xlUp))
If xR & "" <> T Then Set xH = xR: T = xR & ""
If xR(2) & "" <> T Then
Range(xH, xR).Font.ColorIndex = Cr(c)
c = (c + 1) Mod 2
End If
Next
End Sub |
|
|
|
|
|
|
- ©«¤l
- 1327
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1337
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2023-11-28

|
|
ÀH·NºÛ "EXCEL°g" blog ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ
|
|
|
|
|
- ©«¤l
- 29
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 5
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2020-6-14
- ³Ì«áµn¿ý
- 2023-10-11
 
|
Sub TEST()
Dim xR As Range, xH As Range, T$, Cr, c%
[A:A].Font.ColorIndex = 1
Cr = Array(5, 3)
F ...
ã´£³¡ªL µoªí©ó 2020-12-21 19:59 
ª©¤jªº«Å§i
T$ c%
¦ý¦bµ{¦¡¤º¥u¦³ T c
½Ð°Ý³oªþ±aªº²Å¸¹ $ %¦b«Å§i¤º¦³¤°»ò§@¥Î¶Ü¡H |
|
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v
|
|
|
|
|
- ©«¤l
- 2728
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2784
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2023-11-28
|
¦^´_ 5# y54161212
¥i¦Û¦æ¥h¬d"Åܼƫ¬ºA" ªº¬ÛÃö»¡©ú...EXCEL¤¤ªº»¡©úÀÉ ©Î GOOGLE |
|
|
|
|
|
|
- ©«¤l
- 29
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 67
- ÂI¦W
- 5
- §@·~¨t²Î
- Windows10
- ³nÅ骩¥»
- Office365
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2020-6-14
- ³Ì«áµn¿ý
- 2023-10-11
 
|
¦^´_ y54161212
¥i¦Û¦æ¥h¬d"Åܼƫ¬ºA" ªº¬ÛÃö»¡©ú...EXCEL¤¤ªº»¡©úÀÉ ©Î GOOGLE
ã´£³¡ªL µoªí©ó 2020-12-23 14:34 
²×©ó§ä¨ì¤F!
Ãþ«¬ªºÂ²²¤ªí¥Üªk¬°¡G% -integer; & -long; @ -currency; # -double; ! -single; $ -string |
|
²öÅý¥L¤H¿ù»~¶Ë®`¦Û¤v
|
|
|
|
|