EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)Code: Select all
' aaa_mth Macro
'
'
Sheets(Array("aaa_02", "Detail_Feb")).Select
Sheets("Detail_Feb").Activate
Sheets(Array("aaa_02", "Detail_Feb")).Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\Save_feb18.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.Left = -297.5
Application.Top = 485.5
ActiveWindow.Close
Sheets("Detail_Feb").Select
Sheets.Add After:=ActiveSheet
Sheets.Add After:=ActiveSheet
Windows("ER_XLS_19022018.XLS").Activate
Application.Left = 140.5
Application.Top = 172.75
Range("A4:C4").Select
Application.Left = -77
Application.Top = 259.75
ActiveWindow.Close
End Sub
Code: Select all
Sheets(Array("aaa_"&Format$(date+1,"mm", "Detail_"&Format$(date+1, "mmm")).Select
Sheets("Detail_&Format$(date+1, "mmm").Activate
Sheets(Array("aaa_"&Format$(date+1,"mm", "Detail_"&Format$(date+1, "mmm")).Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\Desktop\Save_" & Format$(Date + 1, "mmm'yy") & ".xlsx" _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Code: Select all
'...Other code
Dim mn As String, mnt As String, a() As Variant
Dim i As Integer, wks As Worksheet
mn = Application.Text(Now, "[$- ]mm")
mnt = Application.Text(Now, "[$- ]mmm")
For Each wks In Worksheets
If Right(wks.Name, 2) = mn Or Right(wks.Name, 3) = mnt Then
ReDim Preserve a(i)
a(i) = wks.Name
i = i + 1
End If
Next wks
' Sheets(Array("aaa_02", "Detail_Feb")).Select
' Sheets("Detail_Feb").Activate
' Sheets(Array("aaa_02", "Detail_Feb")).Copy
Sheets(a).Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\kemanajd\Desktop\Save_feb18.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
'...Other code