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
Code: Select all
Sub Round()
For Each C In ActionPlan.CurrentRegion.Cells
If Abs(C.Value) < 0.01 Then C.Value = TODAY
Next
End Sub
Sub RoundToZero2()
For Each C In Sheet2("Action Plan").Range("C:B").Cells
If Abs(C.Value) < 0.01 Then C.Value = TODAY
Next
End Sub
Code: Select all
Sub Action_Plan_Open()
End Sub
Sub AlertActionPlan()
Dim C, B As String
Dim varColumnb As Variant
If ColumnC = TODAY Then
MsgBox "ÊÇÑÊ´Õ¤èÐ ¤Ø³ÁÕ§Ò¹µéͧ·Ó"
End If
End Sub
Sub Round()
For Each C In ActionPlan.CurrentRegion.Cells
If Abs(C.Value) < 0.01 Then C.Value = TODAY
Next
End Sub
Sub RoundToZero2()
For Each C In Sheet2("Action Plan").Range("C:B").Cells
If Abs(C.Value) < 0.01 Then C.Value = TODAY
Next
End Sub
snasui wrote: แนบไฟล์ล่าสุดที่ได้เขียน Code ด้านบนไว้แล้ว จะได้ช่วยดูต่อไปจากนั้นครับ
การแนบไฟล์ตัวอย่าง จะทำให้ผู้แก้ปัญหา เข้าถึงปัญหาโดยง่ายครับJanEevil wrote:โค๊ดที่ให้มาใช้ไม่ได้ทำไงดีค่ะ