(¸U¦~¾ä)¤ë¾ä(¦è¤¸1900¦~~2200¦~)
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
(¸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
|
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¥»¸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קï- Sub ³B²z¨àµ£¸`(row1, col1, rowOff, shName)
- Dim y As Object
- Dim wd1 As Integer
- Set y = ActiveWorkbook.Sheets(shName)
- y.Activate
- wd1 = Weekday(DateSerial(sY, sM, 4), vbSunday) - 1
- y.Range(y.Cells(row1, col1), y.Cells(row1 + rowOff, col1)).Select
- 'Y¥Á±Ú±½¹Ó¸`¬°(4¤ë)4¤é
- If ²M©ú¤é = 4 Then
- If sD = 4 Then
- y.Cells(row1 + rowOff, col1) = "²M©ú¸`"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- '¦p¤£¬O¬P´Á¥|, ¨àµ£¸`´£«e¤@¤é©ñ°²
- ElseIf sD = 3 And wd1 <> 4 Then
- y.Cells(row1 + rowOff, col1) = "¨àµ£¸`"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- '¦pªGè¦n¬°¬P´Á¥|, «h¨àµ£¸`©µ«á¤@¤é©ñ°²
- ElseIf sD = 5 And wd1 = 4 Then
- y.Cells(row1 + rowOff, col1) = "¨àµ£¸`"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- End If
- '§_«h, ¨àµ£¸`´N¬O4¤ë4¤é
- Else
- If sD = 4 Then
- y.Cells(row1 + rowOff, col1) = "¨àµ£¸`"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- ElseIf sD = ²M©ú¤é Then
- y.Cells(row1 + rowOff, col1) = "²M©ú¸`"
- Selection.Interior.ColorIndex = 38
- Selection.Font.ColorIndex = 3
- End If
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 43
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- win 8.0
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2020-4-13
|
¦^´_ 2# yen956
½Ð°Ý¤j¤j:
¦³¨S¦³À£ÁYÀÉ®×¥i¥H¤U¸ü
¤Wºô¶¤U¸ü¤£¨Ó
ÁÂÁÂ |
|
michael
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 3# chairles59
¦]ìvba¦³bug, ·Qn¦^¦¬, ¤S¤£ª¾¦p¦ó¦^¦¬,
³y¦¨§xÂZ, ÂÔ¦¹¦Üºp,
¤U¦C¨âÀÉ¥¼ªþVBA, ½Ð¦Û¦æ°Ñ¦Ò
[attach]24200[/attach]
[attach]24201[/attach] |
|
|
|
|
|
|
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
|
|
|
|
|
|
- ©«¤l
- 43
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- win 8.0
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2020-4-13
|
¦^´_ 6# c_c_lai
c_c_lai ¤j¤j:
ÁÂÁ±zµ¹ªº¸ê®Æ |
|
michael
|
|
|
|
|
- ©«¤l
- 1391
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1401
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-12-16
|
http://blog.xuite.net/hcm19522/twblog/352566544 |
|
|
|
|
|
|
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¥»©«³Ì«á¥Ñ 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)
|
|
|
|
|
|
|
- ©«¤l
- 163
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 170
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-9-5
- ³Ì«áµn¿ý
- 2022-7-20
|
¦^´_ 9# Kubi
¤£¦n·N«ä¡A¤U¸üÀÉ(UserForm.rar)¤ºµo²{1³BBug¡A²{¤w¸g§ó¥¿¤F¡A
·Ð½Ð«·s¤U¸ü¡G
UserForm1.rar (2.64 KB)
|
|
|
|
|
|
|