(¸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
- 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] |
|
|
|
|
|
|