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

²Ö­p¥[Á`¼Æ¶q¤Î¨C¶g¥[Á`¼Æ¶q

²Ö­p¥[Á`¼Æ¶q¤Î¨C¶g¥[Á`¼Æ¶q

²Î­pªí.zip (4.24 KB)

¤H­û·|¨C¤é¿é¤J¨C¤é²£¶qC8~AG8
1.½Ð°Ý¦p¦ó¼¶¼gC9~AG9¤½¦¡¡A¥H­pºâ²Ö­p¥[Á`¼Æ¶q¡H
2.C10~AG10ªº¨C¶g²£¶q·Q­n¥uÅã¥Ü¤@µ§¸ê®Æ¦b³Ì¤¤¶¡ªºÄæ¦ì¡A¤½¦¡¸Ó¦p¦ó¼¶¼g©O¡H

½Ð¦U¦ì¤j¤j«ü¾É

²Î­pªí2.zip (5.33 KB)

¦Û¤v·Qªº
¤£¹L¨S¿ìªk¸Ñ¨M¸m¤¤
¦A½Ð¤j¤j«ü¾É

TOP

¥»©«³Ì«á¥Ñ 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¥|

TOP

¦^´_ 3# yen956

·PÁ¦^´_
¦ý¨ä¹ê§Úªº¥Øªº¬O­n°µ¤@­Ó¦Û°Ê®æ¦¡¤Æªºªí®æ
¥i¥H¥Î¦b¨C­Ó¤ë
¤£¥Î¨C­Ó¤ë³£½Õ¾ã®æ¦¡

TOP

¦^´_ 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

TOP

¸ÉVBA
  1. Private Sub CommandButton1_Click()
  2.     Dim Mdays
  3.     Dim i As Integer
  4.    
  5.     '¶§¾ä¨C¤ë¦³´X¤Ñ
  6.     Mdays = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
  7.    
  8.     [C2].Resize(3, 31) = ""
  9.     [C6].Resize(2, 31) = ""
  10.    
  11.     '3¤ë1¤éªº«e¤@¤Ñ, §Y¬°2¤ëªº³Ì«á¤@¤Ñ, ¤]¬O2¤ëªº¤Ñ¼Æ
  12.     '³o¤]¬O Excel §P§O¶§¾äy¦~¬O§_¬°¶|¦~ªº¥t¤@¤èªk
  13.     Mdays(2) = Day(DateSerial([N1], 3, 1) - 1)
  14.         
  15.     [C6] = [C5]
  16.         
  17.     For i = 1 To Mdays([Q1])
  18.         Cells(2, i + 2) = [N1] & "/" & [Q1] & "/" & i
  19.         Cells(3, i + 2) = i
  20.         Cells(4, i + 2) = Weekday(Cells(2, i + 2), vbMonday)
  21.             
  22.         '¿é¤J²Ö­p¤½¦¡
  23.         If i <> Mdays([Q1]) Then
  24.             Cells(6, i + 3) = "=RC[-1]+R[-1]C"
  25.         End If
  26.             
  27.         '­pºâ¤¤¶¡¨C¶g¥Í²£¶q
  28.         If Cells(4, i + 2) = 7 And i + 2 - 6 > 1 Then
  29.             Cells(7, i + 2) = "=SUM(R[-2]C[-6]:R[-2]C)"
  30.               
  31.         '­pºâ²Ä¤@¶g¥Í²£¶q
  32.         ElseIf Cells(4, i + 2) = 7 Then
  33.             Cells(7, i + 2) = "=SUM(R[-2]C[" & [C4] - 7 & "]:R[-2]C)"
  34.         End If
  35.     Next
  36.         
  37.     '­pºâ³Ì«á¤@¶g¥Í²£¶q
  38.     If Cells(4, Mdays([Q1]) + 2) < 7 Then
  39.         Cells(7, Mdays([Q1]) + 2) = "=SUM(R[-2]C[-" & Cells(4, Mdays([Q1]) + 2) - 1 & "]:R[-2]C)"
  40.     End If
  41. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# yen956
  1. '3¤ë1¤éªº«e¤@¤Ñ, §Y¬°2¤ëªº³Ì«á¤@¤Ñ, ¤]¬O2¤ëªº¤Ñ¼Æ
  2.          '³o¤]¬O Excel §P§O¶§¾äy¦~¬O§_¬°¶|¦~ªº¥t¤@¤èªk
  3.         Mdays(2) = Day(DateSerial([N1], 3, 1) - 1)
½Æ»s¥N½X
³o¤]¬O3¤ë1¤éªº«e¤@¤Ñ
  1. Day(DateSerial([N1], 3, 0))
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE
¤F¸Ñ, ­ì¨Óª½±µ¦b¤é´Á-1´N¥i¥H¤F,
¤£¥²¨D¥XDateSerial¦A-1, ÁÂÁÂ!!

TOP

¦^´_ 8# yen956
¤]¥i¥H¦p¦¹
  1. Private Sub EX()
  2.     Dim i As Integer, Rng  As Range, MoDay As Date
  3.     MoDay = DateSerial([n1], [q1], 1)
  4.     With Range("C2:C4")
  5.         .Resize(, 31) = ""
  6.         With .Offset(3).Resize(, 31)
  7.             .UnMerge
  8.             .Rows("2:3") = ""
  9.         End With
  10.         i = 1
  11.        Do While Month(MoDay + i - 1) = Month(MoDay)     '¦P¤@¤ë¥÷
  12.             .Cells(1, i) = MoDay + i - 1
  13.             .Cells(2, i) = i
  14.             .Cells(3, i) = Weekday(MoDay + (i - 1), 2)
  15.             .Cells(5, i) = Application.Evaluate("Sum(" & .Cells(4, 1).Resize(, i).Address & ")")
  16.             If .Cells(3, i) = 7 Or i = Day(DateAdd("M", 1, MoDay) - 1) Then '©Î¬O ¦¹¤ë¥÷³Ì«á¤@¤Ñ
  17.                 If i <= 7 Then                                  '²Ä¤@¶g
  18.                     Set Rng = .Cells(6, i).Offset(, -(i - 1)).Resize(, i)
  19.                 ElseIf .Cells(3, i) = 7 Then                    '¨C¶g
  20.                     Set Rng = .Cells(6, i).Offset(, -6).Resize(, 7)
  21.                 ElseIf i = Day(DateAdd("M", 1, MoDay) - 1) Then  '¤ë©³
  22.                     Set Rng = .Cells(6, i).Offset(, -(.Cells(3, i) - 1)).Resize(, .Cells(3, i))
  23.                 End If
  24.                 With Rng
  25.                     .Merge
  26.                     .Cells(1) = Application.Evaluate("Sum(" & .Offset(-2).Cells(1).Resize(, .Columns.Count).Address & ")")
  27.                     .HorizontalAlignment = xlCenter
  28.                     .VerticalAlignment = xlCenter
  29.                     .WrapText = True
  30.                 End With
  31.             End If
  32.             i = i + 1
  33.        Loop
  34.     End With
  35. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE
¹ï§Ú¨Ó»¡, ¦³ÂI©â¶H(¤Ó¦h¬Û¹ï¦ì¸mªº¬Û¹ï¦ì¸m), ¦³ÂIÃø,
¥¿¦b¬ã¨s¤¤, ÁÂÁ¦A¤T«ü±Ð!!ÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD