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

[µo°Ý] ³]©w®æ¦¡¤Æªº±ø¥ó(®É¬q°Ï¤ÀÃC¦â)

[µo°Ý] ³]©w®æ¦¡¤Æªº±ø¥ó(®É¬q°Ï¤ÀÃC¦â)

¥»©«³Ì«á¥Ñ cutekiss917 ©ó 2011-3-27 14:51 ½s¿è

¤£¦n·N«ä½Ð±Ð¦U¦ì¹F¤HÀ°¤p²Ä¤@­Ó¦£
§Ú»Ý­n±N¤@¥÷A1~A1000Äæ¦ì¥´®É¶¡°Ï¤ÀÃC¦â
®É¬q¦@¤À¦³12­Ó
¬°
08:00~10:00¯»¬õ  
10:00~12:00¯»ÂÅ
12:00~13:00¯»ºñ
13:00~14:00¯»¶À ...........
®É¶¡«h¬O¨Ï¥Î USERFORM1 ¿é¤J

·PÁ¦U¦ì¹F¤H


2003ªºªO¥»¦n¹³¦b®æ¦¡¡÷®æ¦¡¤Æ±ø¥ó¡A
§â­nªº¸ê®Æ¿é¤J(¦pÀx¦s®æªº­È µ¥©ó 08:00~10:00)«á,
¦A³]­q®æ¦¡§Y¥i
conier..¦b¦¹½Ð¦h«ü±Ð¤F..^^

TOP

±ø¥ó­n12²Õ¤~¥i¥H
2003ª©¥H«e¶È3²Õ®t¤Ó¦h¤F
¥[¦Û­q®æ¦¡µ¥¦A¥[­Ó2²Õ
ÁÙ¬O¤£°÷

¼Ó¤Wªº¤£¬O¨Ï¥Î2007ª©¶Ü?
§A»¡ªº¹ï¥Î®æ¦¡¤Æ±ø¥ó
§Úµ¥¯Å¤£°÷,¬Ý§Aªº¤j§@¤F
ª¾¤§¬°ª¾¤§¡A¤£ª¾¬°¤£ª¾¡A¸Û¹ê¤]¡I

TOP

ÁÙ¬O¥Îvba§â¡A¼g¦b§Aªºuserform¼g¤J®É¶¡ªº¨Æ¥ó¤¤
½á­È®Éª½±µ³]©wInterior.ColorIndex

TOP

2007¥i¥H³]¨ì12²Õ,
¤£¹Lcutekiss917¥S¬O2003ªº­ù..

ÁÙ¦³¤@­Ó¤èªk,¦ý·s¼Wªº¸Ü´N­n¦A­«³]©w,
¨Ï¥Îctrl+f ´M§ä(¦p08:00~10:00),
±N§ä¨ìªº¸ê®Æ¥þ¿ïctrl+a,
¦b³]©wÃC¦â´N¥i¥H¤F
conier..¦b¦¹½Ð¦h«ü±Ð¤F..^^

TOP

¦n¹³¦³ÂIÃø«×...·íªì«Ü¶}¤ßªº§ä¨ì³]©w®æ¦¡¤Æªº±ø¥ó¥H¬°¥i¥H¤£¥Î¤@µ§¤@µ§§ï¤F
µ²ªG¥u¦³¤ä´©3²Õ...¼Q¦å¤¤>"<
VBA¨ä¹ê¤£ª¾¹D«ç»ò¼g ·|§ï¦Ó¤w §ï¤]¬O§ï¬Ý¬Ý§ï¨ì¥i¥H´N¥Î@@
²{¦b¥u¯à¤@µ§¤@µ§¸ê®Æ¥h§ï©ú¦­¶}·|­nªº¸ê®Æ>"<
¤£¹L§ÚÁÙ¬O«Ü»Ý­n³o­Ó¥\¯àÁÙ¬O½Ð­Ó¦ìÀ°¦£°Ê¸£²Ó­M¤F
·PÁ¦U¦ì¼ö¤ßªº¹F¤H¼·ªÅ¦^ÂÐÁÂÁÂ........

TOP

¸Õ¸Õ³o¼Ë§a
Sub coldx()
Dim c As Range, t%
For Each c In [a:a].SpecialCells(2)
t = Hour(c) \ 2
c.Interior.ColorIndex = Application.VLookup(t, [{0,3;1,4;2,5;3,6;4,7;5,8;6,9;7,10;8,11;9,12;10,13;11,14}], 2)
Next
End Sub
1

µû¤À¤H¼Æ

    • Hsieh: good ideaª÷¿ú + 2

TOP

·PÁ¤j¤j¹F¤HÀ°¦£¬ã¨s
®M¥Î¹L¥hÁÙ­nªáÂI®É¶¡¤£¹L¯uªº¸U¤À·PÁÂ
ÁÂÁ¦U¦ìµ×­^^^

TOP

        ÀR«ä¦Û¦b : ¥@¤W¦³¨â¥ó¨Æ¤£¯àµ¥¡G¤@¡B§µ¶¶ ¤G¡B¦æµ½¡C
ªð¦^¦Cªí ¤W¤@¥DÃD