update,

task2/plan/original.module

@@ -0,0 +1,95 @@
+
+
+Sub ­«³]ªí®æ()
+
+Dim ¥Ø«e½s¸¹ As Integer
+
+Sheets("­q³æ").Range("D5,D10:E16").ClearContents
+
+¥Ø«e½s¸¹ = Sheets("¸ê®Æ®w").Range("A1").CurrentRegion.End(xlDown).Value
+
+Sheets("­q³æ").Range("G6").Value = ¥Ø«e½s¸¹ + 1
+Sheets("­q³æ").Range("G7").Value = Date
+
+End Sub
+
+Sub Àx¦s­q³æ()
+
+Dim «~¶µ¼Æ¶q As Integer, ªÅ¥Õ¦C As Integer
+
+«~¶µ¼Æ¶q = WorksheetFunction.CountA(Sheets("­q³æ").Range("D10:D16"))
+ªÅ¥Õ¦C = Sheets("¸ê®Æ®w").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row
+
+Sheets("­q³æ").Range("D10:G10").Resize(«~¶µ¼Æ¶q).Copy
+Sheets("¸ê®Æ®w").Range("D" & ªÅ¥Õ¦C).PasteSpecial xlPasteValues
+
+Sheets("¸ê®Æ®w").Range("A" & ªÅ¥Õ¦C).Resize(«~¶µ¼Æ¶q).Value = Sheets("­q³æ").Range("G6").Value
+Sheets("¸ê®Æ®w").Range("B" & ªÅ¥Õ¦C).Resize(«~¶µ¼Æ¶q).Value = Sheets("­q³æ").Range("G7").Value
+Sheets("¸ê®Æ®w").Range("C" & ªÅ¥Õ¦C).Resize(«~¶µ¼Æ¶q).Value = Sheets("­q³æ").Range("D5").Value
+
+Call ­«³]ªí®æ
+MsgBox "¸ê®ÆÀx¦s§¹²¦"
+
+End Sub
+
+Sub ¬d¸ß­q³æ()
+
+Dim ­q³æ½s¸¹ As Integer, ­q³æ¦ì¸m As Integer, «~¶µ¼Æ¶q As Integer
+
+­q³æ½s¸¹ = Sheets("­q³æ").Range("G6").Value
+«~¶µ¼Æ¶q = WorksheetFunction.CountIf(Sheets("¸ê®Æ®w").Range("A:A"), ­q³æ½s¸¹)
+
+Sheets("­q³æ").Range("D5, D10:E16").ClearContents
+
+If «~¶µ¼Æ¶q = 0 Then
+    MsgBox "¬dµL¦¹­q³æ"
+    Exit Sub
+Else
+    ­q³æ¦ì¸m = WorksheetFunction.Match(­q³æ½s¸¹, Sheets("¸ê®Æ®w").Range("A:A"), 0)
+    Sheets("¸ê®Æ®w").Range("D" & ­q³æ¦ì¸m).Resize(«~¶µ¼Æ¶q, 2).Copy
+    Sheets("­q³æ").Range("D10").PasteSpecial xlPasteValues
+
+    Sheets("­q³æ").Range("G7").Value = Sheets("¸ê®Æ®w").Range("B" & ­q³æ¦ì¸m).Value
+    Sheets("­q³æ").Range("D5").Value = Sheets("¸ê®Æ®w").Range("C" & ­q³æ¦ì¸m).Value
+
+End If
+
+End Sub
+
+Sub ¦C¦L­q³æ()
+
+Dim ÀɦW As String
+ÀɦW = Format(Range("G6").Value, "00000")
+
+Sheets("­q³æ").ExportAsFixedFormat _
+Type:=xlTypePDF, _
+Filename:="\\Mac\Home\Downloads\" & ÀɦW, _
+IgnorePrintAreas:=False
+
+End Sub
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+