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

(¸U¦~¾ä)¤ë¾ä(¦è¤¸1900¦~~2200¦~)

(¸U¦~¾ä)¤ë¾ä(¦è¤¸1900¦~~2200¦~)

ªþ­ì©l¥¨¶°«ü¥O(Excel 2003)
http://www.youtube.com/watch?v=6Q2v3z_URT0
http://www.mediafire.com/download/5dbvizamol644ri/%28%E6%9F%A5%E8%A1%A8%E6%B3%95%29%E6%9C%88%E6%9B%86%28%E6%A0%BC%E5%BC%8F1%29%28%E8%A5%BF%E5%85%831900%E5%B9%B4~2200%E5%B9%B4%29.rar

¥»¸U¦~¾ä¯S¦â¡G
¤@¡B¾A¥Î¦~­­ªø(¦è¤¸1900¦~~¦è¤¸2200¦~)
¤G¡B¦³¡i¹A¾ä»P¶§¾ä¤¬Âà¡j¥\¯à

¤T¡B¥i¬d¸ß¦è¤¸¬Y¦~24¸`®ð

¥|¡B¥i»´©ö²K¥[­Ó¤H¤½¾ä¬ö©À¤é(µ²±B¬ö©À¤éµ¥)

¤­¡B¥i»´©ö²K¥[­Ó¤H¹A¾ä¬ö©À¤é(¦Ñ¤V¤H¥Í¤éµ¥)

¤»¡BªþÃC¦â¥N¸¹ªí, ¥i»´©ö¨Ì­Ó¤H³ß¦nÅܧóÃC¦â

¤C¡Bªþ­ì©l VBA Code ¦p¤U(¸`¿ý), ¤è«K§A¨Ì­Ó¤H³ß¦n­×§ï
  1. Sub ³B²z¨àµ£¸`(row1, col1, rowOff, shName)
  2.    Dim y As Object
  3.    Dim wd1 As Integer
  4.    Set y = ActiveWorkbook.Sheets(shName)
  5.    y.Activate
  6.    wd1 = Weekday(DateSerial(sY, sM, 4), vbSunday) - 1
  7.    y.Range(y.Cells(row1, col1), y.Cells(row1 + rowOff, col1)).Select
  8.    '­Y¥Á±Ú±½¹Ó¸`¬°(4¤ë)4¤é
  9.    If ²M©ú¤é = 4 Then
  10.       If sD = 4 Then
  11.          y.Cells(row1 + rowOff, col1) = "²M©ú¸`"
  12.             Selection.Interior.ColorIndex = 38
  13.             Selection.Font.ColorIndex = 3

  14.       '¦p¤£¬O¬P´Á¥|, ¨àµ£¸`´£«e¤@¤é©ñ°²
  15.       ElseIf sD = 3 And wd1 <> 4 Then
  16.          y.Cells(row1 + rowOff, col1) = "¨àµ£¸`"
  17.             Selection.Interior.ColorIndex = 38
  18.             Selection.Font.ColorIndex = 3

  19.       '¦pªG­è¦n¬°¬P´Á¥|, «h¨àµ£¸`©µ«á¤@¤é©ñ°²
  20.       ElseIf sD = 5 And wd1 = 4 Then
  21.          y.Cells(row1 + rowOff, col1) = "¨àµ£¸`"
  22.             Selection.Interior.ColorIndex = 38
  23.             Selection.Font.ColorIndex = 3
  24.       End If

  25.    '§_«h, ¨àµ£¸`´N¬O4¤ë4¤é
  26.    Else
  27.       If sD = 4 Then
  28.          y.Cells(row1 + rowOff, col1) = "¨àµ£¸`"
  29.             Selection.Interior.ColorIndex = 38
  30.             Selection.Font.ColorIndex = 3
  31.       ElseIf sD = ²M©ú¤é Then
  32.          y.Cells(row1 + rowOff, col1) = "²M©ú¸`"
  33.             Selection.Interior.ColorIndex = 38
  34.             Selection.Font.ColorIndex = 3
  35.       End If
  36.    End If
  37. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# yen956

½Ð°Ý¤j¤j:
¦³¨S¦³À£ÁYÀÉ®×¥i¥H¤U¸ü
¤Wºô­¶¤U¸ü¤£¨Ó

ÁÂÁÂ
michael

TOP

¦^´_ 3# chairles59
¦]­ìvba¦³bug, ·Q­n¦^¦¬, ¤S¤£ª¾¦p¦ó¦^¦¬,
³y¦¨§xÂZ, ÂÔ¦¹¦Üºp,
¤U¦C¨âÀÉ¥¼ªþVBA, ½Ð¦Û¦æ°Ñ¦Ò
2016¦~¾ä(¤T¦X¤@).rar (47.01 KB)
2017¦~¾ä(¤T¦X¤@).rar (46.24 KB)

TOP

¦^´_ 3# chairles59
¦]­ìvba¦³bug, ·Q­n¦^¦¬, ¤S¤£ª¾¦p¦ó¦^¦¬,
³y¦¨§xÂZ, ÂÔ¦¹¦Üºp,
¤U¦C¨âÀÉ¥¼ªþVBA, ½Ð¦Û¦æ°Ñ¦Ò
[attach]24200[/attach]
[attach]24201[/attach]

TOP

¦^´_ 3# chairles59
½Ð°Ñ¦Ò sunnyso ¤j¤jµoªí©ó 2013-4-7 ªº
Excel ¹A¾ä»P°ê¾ä ¸U¦~¾ä

TOP

¦^´_ 6# c_c_lai

c_c_lai ¤j¤j:
ÁÂÁ±zµ¹ªº¸ê®Æ
michael

TOP

http://blog.xuite.net/hcm19522/twblog/352566544

TOP

¥»©«³Ì«á¥Ñ Kubi ©ó 2016-5-12 20:55 ½s¿è

¦^´_ 5# yen956
Excel 2007 ª©¥H¤W¤w¤£¦A¤º«Ø[¤ë¾ä±±¨î¶µ]¡A¦]¦¹¨p¤U¼g¤F¤@°¦Ãþ¤ë¾ä±±¨î¶µUserForm¼Ò²Õ¡A¥Îªk»PCalendar1¬Û¦P¡C

UserForm.rar (2.6 KB)

TOP

¦^´_ 9# Kubi
¤£¦n·N«ä¡A¤U¸üÀÉ(UserForm.rar)¤ºµo²{1³BBug¡A²{¤w¸g§ó¥¿¤F¡A
·Ð½Ð­«·s¤U¸ü¡G
UserForm1.rar (2.64 KB)

TOP

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD