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
Private Sub CommandButton1_Click()
Sheets("สรุป2ล่าง").Select
Call Unprotect
On Error Resume Next
ActiveSheet.ShowAllData
Range("B9").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Call Protect1
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Range("C9") <> "" Then
Call Unprotect
On Error Resume Next
ActiveSheet.ShowAllData
Call CopyAll1
Call SUM1
Call Protect1
Else
Call Unprotect
On Error Resume Next
ActiveSheet.ShowAllData
Range("E9:I65536").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Range("G4") = 0
Range("I4") = 0
Call Protect1
End If
End Sub