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

¼x¨D°ª¤âÀ°§Ú¸Ñ¨M¤@¤U³o­Ó°ÝÃD

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-29 20:25 ½s¿è

¦^´_ 10# c_c_lai

C¤j¡A§Ú¦b2¼ÓªþªºªºÀɮ׸̭±§A¤U¸ü«á¥´¶}G2¨ºÃ䦳³]©w®æ¦¡¤Æ±ø¥ó(¹³¥H¤U³sµ²ªºªF¦è)¡A§Ú§Æ±æ©¹¤U¼gªºªF¦è¤£­n¥X²{®æ¦¡¤Æ±ø¥ó¡A¦Ó³æ¯Âªº´N¦rÅéÅܲʴN¦n¡A³o¼ËC¤j¦³¤ñ¸û¦n²z¸Ñ¶Ü??©êºp°Ý±o¦³ÂI¼Ò½k
http://www.techbang.com/posts/9686-excel-formatting-set-conditions-focus-at-a-glance
1.jpg
2015-12-29 20:24
2.jpg
2015-12-29 20:24

TOP

¦^´_ 11# ÂŤÑÄR¦À
E.png
2015-12-29 20:37

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-29 21:36 ½s¿è

ÅÜ°Ê°O¿ý.rar (23.95 KB) ¦^´_ 12# c_c_lai


   
3.jpg
2015-12-29 21:18
4.jpg
2015-12-29 21:18

¤£¬O#12ªº¨º­ÓªF¦è¡AC¤j©p¤ñ¸û¤@¤U¨â±i¹Ï¡A¦A¬Ý¤@¤U§Ú#11©Ò¦^ªº¤º®e
C¤j¥ª¹Ï¸Ì­±ªºG3¬O¦³®æ¦¡¤Æ±ø¥óªº¡A¦ý¥k¹ÏH3¬O¨S¦³ªº¡A§Úªº·N«ä¬O¦b©¹¤U¼gªº¹Lµ{¤¤¥ÑG2§PÂ_¡A¼g¨ìG3.G4...¤@ª½©¹¤U¼g³£¤£­n®æ¦¡¤Æ±ø¥ó¸Ì­±¥X²{¤½¦¡¡A¹³H3¸Ì­±¤@¼Ë¬O¨S¦³¤½¦¡¦ýÅܲÊÅé¡A³o¼Ë¥i¥H¶Ü??

§Ú«üªº¤½¦¡¤£¬OÀx¦s®æ¤ºªº¡A¦Ó¬O®æ¦¡¤Æ±ø¥ó¸Ì­±ªº

PS.§Ú­nªº³Ì²×µ²ªG´N¬OG3.G4...©Ò¦³ªºGÄæ¸Ì­±³£¨S¦³®æ¦¡¤Æ±ø¥ó¡A¦ý¬O¸Ì­±ªº¼Æ­È¤j©ó9´NÅܲÊÅé

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2015-12-29 21:53 ½s¿è

¦^´_ 12# c_c_lai


    §Úªº·Qªk¬Oµ{¦¡½X¸Ì­±¤£¯à¥X²{¥H¤Uµ{¦¡½X¡A¦]¬°§Ú¤w¸g¦³¦b¨ä¥L¦a¤è¿é¤J¤½¦¡§PÂ_G2>9ÅܲÊÅé¡A¬O§_¥u­n§ïÅܼg¤J¤è¦¡´N¥i¥H¤F©O??¦ý§Ú¤£ª¾¹D¬O§_¥¿½T

.[G3].Font.FontStyle = IIf(.[G2] > 9, "²ÊÅé", "¼Ð·Ç")

¼g¤J¤è¦¡§ïÅÜ«üªº¬O¡A¦pªG³o¤@¬íA2~H2³£¬O¤@¯ë¦rÅé¡A¨ºA3~H3´N¼g¤J¤@¯ë¦rÅé¡A¦pªG¤U¤@¬íA2~F2¬°¤@¯ë¦rÅé¡BG2.H2¬°²ÊÅé¡A¨ºA4~F4´N¼g¤J¤@¯ë¦rÅé¡BG2.H2«h¼g¤J²ÊÅé¡A¥H¦¹Ãþ±À¡A¤W­±«ç»òÅܤU­±´N«ç»ò¼g¡A¦Ó¤£¬O¥t¥~¼g¤½¦¡¥h§PÂ_¡A³o¼Ë¥i¥H¶Ü??

TOP

¦^´_ 12# c_c_lai

C¤j·PÁ§ڤw¸g¸Ñ¨M°ÝÃD¤F¡AÁÂÁÂ

TOP

¦^´_ 12# c_c_lai


    C¤j¤W­±ªº°ÝÃD§Ú³£¸Ñ¨M¤F¡A¦ý¬OÁÙ¦³¤@­Ó¤p°ÝÃD½Ð±Ð¤@¤U¡A¦pªG§Ú¤â°Ê§ó§ïG2ªº­È¬°¤°»ò¤£·|©¹¤U¼g©O??

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-30 07:32 ½s¿è

¦^´_ 16# ÂŤÑÄR¦À
³]©wµ{§Ç¡G
E.png
2015-12-30 07:27

´ú¸Õµ²ªG¡G
E1.png
2015-12-30 07:28

TOP

¦^´_ 17# c_c_lai


    ¥i¬O§Ú­Ìªº¤½¦¡¤£¬O³]©wG2¦³ÅÜ°Ê´N©¹¤U¼g¶Ü??¦ý¬O§Ú¤@ª½§ó§ïG2ªº­È¡A¥L¥u¦³²Ä¤@¦¸·|©¹¤U¼g¡A¤§«á¤£ºÞ§Ú«ç»ò§ó§ï´N³£¤£·|©¹¤U¼g¤F¡A³o¬O¬°¤°»ò©O??

TOP

¦^´_ 18# ÂŤÑÄR¦À
§Ú²×©ó¤F¸Ñ§Aªº·N«ä¤F¡C
¦]¬°·íªì§Aªº­ì©lµ{¦¡¸Ì¡A¦³¦p¤U¤§±ø¥ó¡G
(1)
        If .Range("H2") < 1 Then Exit Sub    '  ·í H2 ­È¤p©ó 1 ®É«h¤£³B²z¡Aª½±µ³w¦æ¸õÂ÷¡C
(2)
        WR = Range("A1").End(xlDown).Row + 1

        If (WR = 3) Or (.Range("G" & WR - 1) <> .Range("G2")) Then  ' Á`¶q¦³²§°Ê®É¤~°O¿ý

        ·í©Ò¦³¬ö¿ý¬°ªÅ¡A¥ç©Î¬O G2 Äæ­È»P ³Ì«á¤@µ§ªº­È ¤£µ¥®É¤~¥h¼g¤J²Ä¤T¦C (Rows(3)) ¤§
        ¸ê®Æ¡C§AÀˬd¤@¤U§A¸ê®Æ¿ý³Ì«á¤@µ§¤§ G Äæ­È¬°¦ó¡A¬O§_»P G2 Äæ­È¤@­P¡H
        ¦]¬°§Ú¤£ª¾§A­ì¥ý·N¹Ï¬°¦ó¡A¥u¯à·Ó¼g¤J¡C ±q ²Ä¤T¦Cªº¶×¤J (.Rows(3).Insert) ¤è¦¡¨Ó¬Ý¡A
       ¨Ì§Ú­Ó¤Hªº³B²z²ßºD¡A§Ú¬O¤£·|®³¸ê®Æ¿ý³Ì©³¤U(³Ì«á)¤@µ§ªº°O¿ý¤§­È°µ¤ñ¹ï¡A¦]¬°¥Ø«e¤§
       ²Ä¤T¦Cªº¶×¤J­È¤~¬O§A³Ì«á¤§¶×¤J­È (³Ì·sªº¶×¤J­È)¡C©Ò¥H¸g§A¤@»¡§Ú¤~©ú¤F§A³Ì«áªí¹Fªº·N«ä¡C
       À³¸Ó¬O¡G
  1.         If (WR = 3) Or (.[G3] <> .[G2]) Then      ' Á`¶q¦³²§°Ê®É¤~°O¿ý
½Æ»s¥N½X

TOP

¦^´_ 19# c_c_lai

C¤jÁÂÁ§A¡A¤j­P¤W¬O¨S°ÝÃD¤F¡A¦pªG§Ú­n§ï¦^¥H©¹ªº¤è¦¡±N³Ì·sªº¸ê®Æ©¹¤U¼g¬O¤£¬O¥u­n§â.Rows(3).Insert§R±¼´N¦n??
ÁÙ¬O¨ä¥L¦a¤è¤]­n­×§ï©O??

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD