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

½Æ»s¤½¦¡

¦^´_ 20# yen956
«e½ú!ÁÂÁÂ!!
         §Aªº·Qªk»P½d¨Ò¦³©Ò¥X¤J
         ¤p§Ì¬Q¤é²×©ó·Q¥X¸Ñ¨M¤èªk
          ¦¡µ{¦¡¦p¤U½Ð°Ñ¦ÒÁÂÁ¦A¤T!!
  1. Sub ExA()
  2.     Dim C As Integer, i As Integer, R As Integer
  3.     [A2] = 1
  4.     [B2] = "=EDATE(B3,-1)"
  5.     [B2].NumberFormatLocal = "[$-404]e/m/d;@"
  6.     C = [Ag1].Column
  7.     R = Cells(Rows.Count, [Ag1].Column).End(xlUp).Row + 1
  8.     If R < 3 Then R = 3
  9.     i = 2
  10.     Do While IsDate(Cells(i, "B")) And Cells(i, "B") < Cells(R, "Z")
  11.         If Cells(i, "B") < Cells(R, "Z") Then
  12.             Cells(1, C) = "=SUM(R3C:R200C)"
  13.             Cells(2, C) = "=R" & i & "C1&""µ§"""
  14.          If Cells(2, C) <> "0µ§" Then Cells(R, C) = "=ROUND(r" & i & "c6 *" & [M3] & ",2)"
  15.             C = C + 1
  16.             i = i + 1
  17.         End If
  18.     Loop
  19.        Calculate
  20.        [Ag1] = "°Ñ·ÓÄæ"
  21.        [Ag2] = "1µ§°Ñ·Ó"
  22.        [A2] = 0
  23.        [B2] = "=EDATE(B1,1)"
  24.        [B2].NumberFormatLocal = """¤é""""´Á"""
  25.        [Ag3] = 0
  26.     If [Ag4] <> "" Then [Ag4] = 0
  27.     If [Ag5] <> "" Then [Ag3:Ag4].AutoFill Destination:=Range("Ag3:Ag" & [Ag1200].End(xlUp).Row), Type:=xlFillDefault
  28. End Sub
½Æ»s¥N½X

LeoV78-3A.gif (633.17 KB)

LeoV78-3A.gif

LeoV78-3A.rar (13.38 KB)

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD