²Öp¥[Á`¼Æ¶q¤Î¨C¶g¥[Á`¼Æ¶q
- ©«¤l
- 36
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-9-5
- ³Ì«áµn¿ý
- 2022-6-12
|
²Öp¥[Á`¼Æ¶q¤Î¨C¶g¥[Á`¼Æ¶q
²Îpªí.zip (4.24 KB)
¤Hû·|¨C¤é¿é¤J¨C¤é²£¶qC8~AG8
1.½Ð°Ý¦p¦ó¼¶¼gC9~AG9¤½¦¡¡A¥Hpºâ²Öp¥[Á`¼Æ¶q¡H
2.C10~AG10ªº¨C¶g²£¶q·Qn¥uÅã¥Ü¤@µ§¸ê®Æ¦b³Ì¤¤¶¡ªºÄæ¦ì¡A¤½¦¡¸Ó¦p¦ó¼¶¼g©O¡H
½Ð¦U¦ì¤j¤j«ü¾É |
|
|
|
|
|
|
- ©«¤l
- 36
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-9-5
- ³Ì«áµn¿ý
- 2022-6-12
|
²Îpªí2.zip (5.33 KB)
¦Û¤v·Qªº
¤£¹L¨S¿ìªk¸Ñ¨M¸m¤¤
¦A½Ð¤j¤j«ü¾É |
|
|
|
|
|
|
- ©«¤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
|
¥»©«³Ì«á¥Ñ yen956 ©ó 2014-4-18 16:39 ½s¿è
¦^´_ 2# rakefrank
¸Õ¸Õ¬Ý:
1. c9¤½¦¡ =C8
D9¤½¦¡ =C9+D8 ¦V¥ª©Ô(½Æ»s)
2.
(A)D10¤½¦¡
=SUM(C8:E8)
(B)i10¤½¦¡ =SUM(F8:L8)
½Æ»s¨ì ¦U¶g ¶g¥| |
|
|
|
|
|
|
- ©«¤l
- 36
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 77
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-9-5
- ³Ì«áµn¿ý
- 2022-6-12
|
¦^´_ 3# yen956
·PÁ¦^´_
¦ý¨ä¹ê§Úªº¥Øªº¬On°µ¤@Ӧ۰ʮ榡¤Æªºªí®æ
¥i¥H¥Î¦b¨CÓ¤ë
¤£¥Î¨CӤ볣½Õ¾ã®æ¦¡ |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 4# rakefrank
¸Õ¸Õ¬Ý¡G
®æ¦¡µy§ï, ½Ð¤U¸ü¸Õ¸Õ¬Ý¡G
²Öp¥[Á`¼Æ¶q¤Î¨C¶g¥[Á`¼Æ¶q.7z
http://www.mediafire.com/download/kat4hzm9srrsxqc/%E7%B4%AF%E8%A8%88%E5%8A%A0%E7%B8%BD%E6%95%B8%E9%87%8F%E5%8F%8A%E6%AF%8F%E9%80%B1%E5%8A%A0%E7%B8%BD%E6%95%B8%E9%87%8F.7z |
|
|
|
|
|
|
- ©«¤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
|
¸ÉVBA- Private Sub CommandButton1_Click()
- Dim Mdays
- Dim i As Integer
-
- '¶§¾ä¨C¤ë¦³´X¤Ñ
- Mdays = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
-
- [C2].Resize(3, 31) = ""
- [C6].Resize(2, 31) = ""
-
- '3¤ë1¤éªº«e¤@¤Ñ, §Y¬°2¤ëªº³Ì«á¤@¤Ñ, ¤]¬O2¤ëªº¤Ñ¼Æ
- '³o¤]¬O Excel §P§O¶§¾äy¦~¬O§_¬°¶|¦~ªº¥t¤@¤èªk
- Mdays(2) = Day(DateSerial([N1], 3, 1) - 1)
-
- [C6] = [C5]
-
- For i = 1 To Mdays([Q1])
- Cells(2, i + 2) = [N1] & "/" & [Q1] & "/" & i
- Cells(3, i + 2) = i
- Cells(4, i + 2) = Weekday(Cells(2, i + 2), vbMonday)
-
- '¿é¤J²Öp¤½¦¡
- If i <> Mdays([Q1]) Then
- Cells(6, i + 3) = "=RC[-1]+R[-1]C"
- End If
-
- 'pºâ¤¤¶¡¨C¶g¥Í²£¶q
- If Cells(4, i + 2) = 7 And i + 2 - 6 > 1 Then
- Cells(7, i + 2) = "=SUM(R[-2]C[-6]:R[-2]C)"
-
- 'pºâ²Ä¤@¶g¥Í²£¶q
- ElseIf Cells(4, i + 2) = 7 Then
- Cells(7, i + 2) = "=SUM(R[-2]C[" & [C4] - 7 & "]:R[-2]C)"
- End If
- Next
-
- 'pºâ³Ì«á¤@¶g¥Í²£¶q
- If Cells(4, Mdays([Q1]) + 2) < 7 Then
- Cells(7, Mdays([Q1]) + 2) = "=SUM(R[-2]C[-" & Cells(4, Mdays([Q1]) + 2) - 1 & "]:R[-2]C)"
- 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
|
¦^´_ 7# GBKEE
¤F¸Ñ, ì¨Óª½±µ¦b¤é´Á-1´N¥i¥H¤F,
¤£¥²¨D¥XDateSerial¦A-1, ÁÂÁÂ!! |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 8# yen956
¤]¥i¥H¦p¦¹- Private Sub EX()
- Dim i As Integer, Rng As Range, MoDay As Date
- MoDay = DateSerial([n1], [q1], 1)
- With Range("C2:C4")
- .Resize(, 31) = ""
- With .Offset(3).Resize(, 31)
- .UnMerge
- .Rows("2:3") = ""
- End With
- i = 1
- Do While Month(MoDay + i - 1) = Month(MoDay) '¦P¤@¤ë¥÷
- .Cells(1, i) = MoDay + i - 1
- .Cells(2, i) = i
- .Cells(3, i) = Weekday(MoDay + (i - 1), 2)
- .Cells(5, i) = Application.Evaluate("Sum(" & .Cells(4, 1).Resize(, i).Address & ")")
- If .Cells(3, i) = 7 Or i = Day(DateAdd("M", 1, MoDay) - 1) Then '©Î¬O ¦¹¤ë¥÷³Ì«á¤@¤Ñ
- If i <= 7 Then '²Ä¤@¶g
- Set Rng = .Cells(6, i).Offset(, -(i - 1)).Resize(, i)
- ElseIf .Cells(3, i) = 7 Then '¨C¶g
- Set Rng = .Cells(6, i).Offset(, -6).Resize(, 7)
- ElseIf i = Day(DateAdd("M", 1, MoDay) - 1) Then '¤ë©³
- Set Rng = .Cells(6, i).Offset(, -(.Cells(3, i) - 1)).Resize(, .Cells(3, i))
- End If
- With Rng
- .Merge
- .Cells(1) = Application.Evaluate("Sum(" & .Offset(-2).Cells(1).Resize(, .Columns.Count).Address & ")")
- .HorizontalAlignment = xlCenter
- .VerticalAlignment = xlCenter
- .WrapText = True
- End With
- End If
- i = i + 1
- Loop
- End With
- 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
|
¦^´_ 9# GBKEE
¹ï§Ú¨Ó»¡, ¦³ÂI©â¶H(¤Ó¦h¬Û¹ï¦ì¸mªº¬Û¹ï¦ì¸m), ¦³ÂIÃø,
¥¿¦b¬ã¨s¤¤, ÁÂÁ¦A¤T«ü±Ð!!ÁÂÁÂ!! |
|
|
|
|
|
|