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 AddRecord()
'
' AddRecord Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
Application.Goto Reference:="MasterRecord"
Selection.Copy
Application.Goto Reference:="ulMyDatabase"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Sheets("Report").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
Sheets("MyDatabase").Select
Range("C3:E3").Select
Selection.ClearContents
Range("C3").Select
End Sub
Code: Select all
Sheets("list").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Code: Select all
Sub AddRecord()
'
' AddRecord Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
Application.Goto Reference:="MasterRecord"
Selection.Copy
Application.Goto Reference:="ulMyDatabase"
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("list").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Sheets("Report").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
Sheets("MyDatabase").Select
Range("C3:E3").Select
Selection.ClearContents
Range("C3").Select
End Sub