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

[µo°Ý] ³]©w®æ¦¡¤Æªº±ø¥ó

[µo°Ý] ³]©w®æ¦¡¤Æªº±ø¥ó

¨Ò¦p¤@±i¤u§@ªí¸ê®Æ¦p¤U¡G
¡@¡@¡@¡@¡@¢Ï¡@¡@¡@¡@¢Ð¡@¡@¡@¢Ñ¡@¡@¡@¢Ò
¡@¢°¡@2010/9/1¡@09:00¡@¢Ï¢Ï¢Ï¡@¢Ï¢Ï¢Ï¢Ï
¡@¢±¡@2010/9/1¡@09:00¡@¢Ð¢Ð¢Ð¡@¢Ð¢Ð¢Ð¢Ð
¡@¢²¡@2010/9/1¡@11:00¡@¢Ñ¢Ñ¢Ñ¡@¢Ñ¢Ñ¢Ñ¢Ñ
¡@¢³¡@2010/9/1¡@11:00¡@¢Ò¢Ò¢Ò¡@¢Ò¢Ò¢Ò¢Ò
¡@¢´¡@2010/9/1¡@15:00¡@¢Ó¢Ó¢Ó¡@¢Ó¢Ó¢Ó¢Ó
¡@¢µ¡@2010/9/1¡@15:00¡@¢Ô¢Ô¢Ô¡@¢Ô¢Ô¢Ô¢Ô
¡@¢¶¡@2010/9/2¡@09:15¡@¢Õ¢Õ¢Õ¡@¢Õ¢Õ¢Õ¢Õ
¡@¢·¡@2010/9/2¡@09:15¡@¢Ö¢Ö¢Ö¡@¢Ö¢Ö¢Ö¢Ö
¡@¢¸¡@2010/9/2¡@15:00¡@¢×¢×¢×¡@¢×¢×¢×¢×
¢°¢¯¡@2010/9/2¡@15:00¡@¢Ø¢Ø¢Ø¡@¢Ø¢Ø¢Ø¢Ø
¢°¢°¡@2010/9/2¡@16:30¡@¢Ù¢Ù¢Ù¡@¢Ù¢Ù¢Ù¢Ù
¢°¢±¡@2010/9/2¡@16:30¡@¢Ú¢Ú¢Ú¡@¢Ú¢Ú¢Ú¢Ú
¢°¢²¡@2010/9/3¡@10:00¡@¢Û¢Û¢Û¡@¢Û¢Û¢Û¢Û
¢°¢³¡@2010/9/3¡@10:00¡@¢Ü¢Ü¢Ü¡@¢Ü¢Ü¢Ü¢Ü
¢°¢´¡@2010/9/3¡@12:00¡@¢Ý¢Ý¢Ý¡@¢Ý¢Ý¢Ý¢Ý
¢°¢µ¡@2010/9/3¡@12:00¡@¢Þ¢Þ¢Þ¡@¢Þ¢Þ¢Þ¢Þ
¢°¢¶¡@2010/9/3¡@15:00¡@¢ß¢ß¢ß¡@¢ß¢ß¢ß¢ß
¢°¢·¡@2010/9/3¡@15:00¡@¢à¢à¢à¡@¢à¢à¢à¢à
¢°¢¸¡@2010/9/3¡@17:00¡@¢á¢á¢á¡@¢á¢á¢á¢á
¢±¢¯¡@2010/9/3¡@17:00¡@¢â¢â¢â¡@¢â¢â¢â¢â

§Ú»Ý­n¦b¨C¤Ñ¤§¶¡¤@¾ã¦Cµe¤@±ø²Ê¹ê½u¡A¥H¤Î¦b¨C³{15:00ªº¤W¤èµe¤@±øÂù½u
®ÄªG¦p¤U¡G

¡@¡@¡@¡@¡@¢Ï¡@¡@¡@¡@¢Ð¡@¡@¡@¢Ñ¡@¡@¡@¢Ò
¡@¢°¡@2010/9/1¡@09:00¡@¢Ï¢Ï¢Ï¡@¢Ï¢Ï¢Ï¢Ï
¡@¢±¡@2010/9/1¡@09:00¡@¢Ð¢Ð¢Ð¡@¢Ð¢Ð¢Ð¢Ð
¡@¢²¡@2010/9/1¡@11:00¡@¢Ñ¢Ñ¢Ñ¡@¢Ñ¢Ñ¢Ñ¢Ñ
¡@¢³¡@2010/9/1¡@11:00¡@¢Ò¢Ò¢Ò¡@¢Ò¢Ò¢Ò¢Ò
ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
¡@¢´¡@2010/9/1¡@15:00¡@¢Ó¢Ó¢Ó¡@¢Ó¢Ó¢Ó¢Ó
¡@¢µ¡@2010/9/1¡@15:00¡@¢Ô¢Ô¢Ô¡@¢Ô¢Ô¢Ô¢Ô
¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w
¡@¢¶¡@2010/9/2¡@09:15¡@¢Õ¢Õ¢Õ¡@¢Õ¢Õ¢Õ¢Õ
¡@¢·¡@2010/9/2¡@09:15¡@¢Ö¢Ö¢Ö¡@¢Ö¢Ö¢Ö¢Ö
ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
¡@¢¸¡@2010/9/2¡@15:00¡@¢×¢×¢×¡@¢×¢×¢×¢×
¢°¢¯¡@2010/9/2¡@15:00¡@¢Ø¢Ø¢Ø¡@¢Ø¢Ø¢Ø¢Ø
¢°¢°¡@2010/9/2¡@16:30¡@¢Ù¢Ù¢Ù¡@¢Ù¢Ù¢Ù¢Ù
¢°¢±¡@2010/9/2¡@16:30¡@¢Ú¢Ú¢Ú¡@¢Ú¢Ú¢Ú¢Ú
¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w¢w
¢°¢²¡@2010/9/3¡@10:00¡@¢Û¢Û¢Û¡@¢Û¢Û¢Û¢Û
¢°¢³¡@2010/9/3¡@10:00¡@¢Ü¢Ü¢Ü¡@¢Ü¢Ü¢Ü¢Ü
¢°¢´¡@2010/9/3¡@12:00¡@¢Ý¢Ý¢Ý¡@¢Ý¢Ý¢Ý¢Ý
¢°¢µ¡@2010/9/3¡@12:00¡@¢Þ¢Þ¢Þ¡@¢Þ¢Þ¢Þ¢Þ
ùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùùù
¢°¢¶¡@2010/9/3¡@15:00¡@¢ß¢ß¢ß¡@¢ß¢ß¢ß¢ß
¢°¢·¡@2010/9/3¡@15:00¡@¢à¢à¢à¡@¢à¢à¢à¢à
¢°¢¸¡@2010/9/3¡@17:00¡@¢á¢á¢á¡@¢á¢á¢á¢á
¢±¢¯¡@2010/9/3¡@17:00¡@¢â¢â¢â¡@¢â¢â¢â¢â

½Ð°ÝÀ³¦p¦ó³]¸m¤~¯àÅã¥Ü¦p¦¹®ÄªG©O¡H
«ôÁ¡ã

¦^´_ 4# Hsieh

·PÁ±zªº¼·¤¾¦^ÂСA
°ÝÃD¦¨¥\¸Ñ¨M¡A
ÁÂÁ±z¡C

TOP

¦^´_ 3# RJR
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim A As Range
  3. For Each A In Range([B2], [B65536].End(xlUp))
  4.    With A.Offset(, -1).Resize(, 4).Borders(xlEdgeTop)
  5.    If A = TimeValue("15:00:00") And A.Offset(-1, 0) <> TimeValue("15:00:00") Then
  6.       .LineStyle = xlDouble
  7.       ElseIf A.Offset(, -1) <> A.Offset(-1, -1) Then
  8.       .LineStyle = 1
  9.       .Weight = xlThick
  10.       Else
  11.       .LineStyle = 2
  12.       .Weight = xlThin
  13.       End If
  14.    End With
  15. Next
  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ RJR ©ó 2010-8-29 17:06 ½s¿è

¦^´_ 2# GBKEE

·PÁÂGBKEE¼·¤¾¦^ÂСI

¦ýÁÙ¦³¤Ö³\ªººÃ°Ý¡A
­º¥ý¬O¶¡¹j¤£¦P¤é¤lªº¹ê½u¨Ã«D²Ê½u¡]Àx¦s®æCtrl+1¡÷¥~®Ø¡÷½u±ø¼Ë¦¡¡÷¥kÃä­Ë¼Æ²Ä¤Gªº¨ººØ¡^¡A
©Ò¥H·Q½Ð°Ý­Y»Ý­n²Ê¹ê½uªº¸Ü¡AÀ³«ç¼Ë³]¸m¡H

¥t¥~¬O¨ä¹ê§Úªº­ì¤å¥ó¤¤¨C¦C§¡¦³µê½u¡A
VBA¤¤ªº¡uRng.Borders.LineStyle = xlNone¡v¦ü¥G·|§âµê½u®ø±¼¡AÀ³¦p¦ó¸Ñ¨M¡H

«ôÁ¡ã¡ã

TOP

¦^´_ 1# RJR
³]©w®æ¦¡¤Æªº±ø¥ó1 ¤½¦¡  =AND(TEXT($B1,"hh:mm")="15:00",TEXT($B65536,"hh:mm")<>"15:00")
³]©w®æ¦¡¤Æªº±ø¥ó2 ¤½¦¡  =$A1<>$A2
¿ï©w½d³ò«á§@¥Î¤¤Àx¦s®æ ¦p¹Ï   




2003ª©¥» ³]©w®æ¦¡¤Æªº±ø¥ó, ¥~®Øªº®æ¦¡¨S¦³ Âù¾î½u¥i³] .¸Õ¸Õvba
  1. Sub Ex()
  2.     Dim Rng As Range, E As Range, T As Boolean
  3.     Set Rng = ActiveSheet.Range("A1:D" & ActiveSheet.[A1].End(xlDown).Row)
  4.     T = False
  5.     Rng.Borders.LineStyle = xlNone
  6.     For Each E In Rng.Rows
  7.         If E.Cells(1, 1) = E.Cells(2, 1) And E.Cells(1, 2) = TimeValue("15:00") And T = False Then
  8.             T = True
  9.             E.Borders(xlTop).LineStyle = xlDouble
  10.         ElseIf E.Cells(1, 1) <> E.Cells(2, 1) And E.Row <> Rng.Cells(Rng.Count).Row Then
  11.              E.Borders(xlEdgeBottom).LineStyle = xlContinuous
  12.              T = False
  13.         End If
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD