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
Sub SaveAsName()
Dim FName As String
Dim FPath As String
FPath = "D:\Report"
FName = Sheets("Sheet2").Label1.Caption
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName + ".xls"
End Sub
Code: Select all
Sub Macro1()
Sheets(Sheet2).Select
Sheets(Sheet2).Copy
Sheets(Sheet2).Select
Sheets(Sheet2).Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Code: Select all
Private Sub CommandButton1_Click()
Call SaveAsName
Call Macro1
End Sub
Code: Select all
Private Sub CommandButton1_Click()
Call Macro1
Call SaveAsName
End Sub
'-------------------------------------------
Sub Macro1()
Sheets("Sheet2").Select
Sheets("Sheet2").Copy
'Sheets("Sheet2").Select
Sheets("Sheet2").Activate
Sheets("Sheet2").UsedRange.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
'-------------------------------------------
Sub SaveAsName()
Dim FName As String
Dim FPath As String
FPath = "D:\Report"
FName = Sheets("Sheet2").Label1.Caption
ThisWorkbook.SaveAs Filename:=FPath & "\" & FName + ".xls"
End Sub
ขอบคุณครับพี่ เดี๋ยวผมลองเทสlogic wrote: ↑Thu Feb 22, 2018 2:35 pm ลองดูครับ
Code: Select all
Private Sub CommandButton1_Click() Call Macro1 Call SaveAsName End Sub '------------------------------------------- Sub Macro1() Sheets("Sheet2").Select Sheets("Sheet2").Copy 'Sheets("Sheet2").Select Sheets("Sheet2").Activate Sheets("Sheet2").UsedRange.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub '------------------------------------------- Sub SaveAsName() Dim FName As String Dim FPath As String FPath = "D:\Report" FName = Sheets("Sheet2").Label1.Caption ThisWorkbook.SaveAs Filename:=FPath & "\" & FName + ".xls" End Sub