004_comission/kary_lai
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update,

Browse Source
This commit is contained in:
louiscklaw
2025-03-16 01:19:45 +08:00
parent 8731a00f5e
commit 98fabcf849
139 changed files with 7851 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

97
fps_draft/macro_backup/Module1.bas Normal file
View File

@@ -0,0 +1,97 @@
Attribute VB_Name = "Module1"
Sub <EFBFBD><EFBFBD><EFBFBD>]<EFBFBD><EFBFBD><EFBFBD><EFBFBD>()
Dim <EFBFBD>ثe<EFBFBD>s<EFBFBD><EFBFBD> As Integer
Sheets("<22>q<EFBFBD><71>").Range("D5,D10:E16").ClearContents
<EFBFBD>ثe<EFBFBD>s<EFBFBD><EFBFBD> = Sheets("<22><><EFBFBD>Ʈw").Range("A1").CurrentRegion.End(xlDown).Value
Sheets("<22>q<EFBFBD><71>").Range("G6").Value = <EFBFBD>ثe<EFBFBD>s<EFBFBD><EFBFBD> + 1
Sheets("<22>q<EFBFBD><71>").Range("G7").Value = Date
End Sub
Sub <EFBFBD>x<EFBFBD>s<EFBFBD>q<EFBFBD><EFBFBD>()
Attribute <EFBFBD>x<EFBFBD>s<EFBFBD>q<EFBFBD><EFBFBD>.VB_ProcData.VB_Invoke_Func = "q\n14"
Dim <EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq As Integer, <EFBFBD>ťզC As Integer
<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq = WorksheetFunction.CountA(Sheets("<22>q<EFBFBD><71>").Range("D10:D16"))
<EFBFBD>ťզC = Sheets("<22><><EFBFBD>Ʈw").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row
Sheets("<22>q<EFBFBD><71>").Range("D10:G10").Resize(<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq).Copy
Sheets("<22><><EFBFBD>Ʈw").Range("D" & <EFBFBD>ťզC).PasteSpecial xlPasteValues
Sheets("<22><><EFBFBD>Ʈw").Range("A" & <EFBFBD>ťզC).Resize(<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq).Value = Sheets("<22>q<EFBFBD><71>").Range("G6").Value
Sheets("<22><><EFBFBD>Ʈw").Range("B" & <EFBFBD>ťզC).Resize(<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq).Value = Sheets("<22>q<EFBFBD><71>").Range("G7").Value
Sheets("<22><><EFBFBD>Ʈw").Range("C" & <EFBFBD>ťզC).Resize(<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq).Value = Sheets("<22>q<EFBFBD><71>").Range("D5").Value
Call <EFBFBD><EFBFBD><EFBFBD>]<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD>x<EFBFBD>s<EFBFBD><73><EFBFBD><EFBFBD>"
End Sub
Sub <EFBFBD>d<EFBFBD>߭q<EFBFBD><EFBFBD>()
Dim <EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD> As Integer, <EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>m As Integer, <EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq As Integer
<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD> = Sheets("<22>q<EFBFBD><71>").Range("G6").Value
<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq = WorksheetFunction.CountIf(Sheets("<22><><EFBFBD>Ʈw").Range("A:A"), <EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>)
Sheets("<22>q<EFBFBD><71>").Range("D5, D10:E16").ClearContents
If <EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq = 0 Then
MsgBox "<22>d<EFBFBD>L<EFBFBD><4C><EFBFBD>q<EFBFBD><71>"
Exit Sub
Else
<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>m = WorksheetFunction.Match(<EFBFBD>q<EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><EFBFBD>, Sheets("<22><><EFBFBD>Ʈw").Range("A:A"), 0)
Sheets("<22><><EFBFBD>Ʈw").Range("D" & <EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>m).Resize(<EFBFBD>~<EFBFBD><EFBFBD><EFBFBD>ƶq, 2).Copy
Sheets("<22>q<EFBFBD><71>").Range("D10").PasteSpecial xlPasteValues
Sheets("<22>q<EFBFBD><71>").Range("G7").Value = Sheets("<22><><EFBFBD>Ʈw").Range("B" & <EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>m).Value
Sheets("<22>q<EFBFBD><71>").Range("D5").Value = Sheets("<22><><EFBFBD>Ʈw").Range("C" & <EFBFBD>q<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>m).Value
End If
End Sub
Sub <EFBFBD>C<EFBFBD>L<EFBFBD>q<EFBFBD><EFBFBD>()
Dim <EFBFBD>ɦW As String
<EFBFBD>ɦW = Format(Range("G6").Value, "00000")
Sheets("<22>q<EFBFBD><71>").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="\\Mac\Home\Downloads\" & <EFBFBD>ɦW, _
IgnorePrintAreas:=False
End Sub