ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
ปัญหาที่เกิด Error ไม่ทราบว่าเกิดตอนไหนบ้างครับCode: Select all
Private Sub Worksheet_Activate()
Call Worksheet_Calculate
End Sub
Private Sub Worksheet_Calculate()
Dim n As Integer
With Sheets("Sheet1")
For n = 1 To 10
If .Range("B" & n + 2).Value = "OK" And .Range("D" & n + 2).Value = Empty _
Then .Range("D" & n + 2).Value = Time()
If .Range("B" & n + 2).Value = "NO" And .Range("D" & n + 2).Value <> Empty _
Then .Range("D" & n + 2).Value = Empty
If .Range("E" & Trim(Str(n + 2))).Value < Time Then
MsgBox "โต๊ะ " & .Range("A" & n + 2).Value & " หมดเวลา"
.Range("C" & n + 2).Value = Empty
End If
Next n
Do
T = Second(Time())
DoEvents
Loop While Second(Time()) = T
.Range("A1").Value = Time()
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Call Worksheet_Calculate
End Sub
คิดเวลาร้านเน็ต(สมบรูณ์แล้ว).xls
มันเป็นภาษาที่อ่านไม่ได้เนื่องจากไม่ได้กำหนดให้เป็นไทยเอาไว้ครับ ที่เวลาแสดงเป็น AM/PM เกิดจากการกำหนด Format ซึ่งเราสามารถเปลี่ยนให้เป็น Format ใด ๆ ก็ได้ตามต้องการ 
ค่าพวกนั้นเป็นค่าคงที่ เป็นการแสดงขึ้นมาแจ้งกับ User เฉย ๆ ไม่มีผลลอะไรกับการจับเวลาครับ
ได้ลองใช้งานตามจำนวนแถวที่ต้องการแล้วยังครับ หากลองแล้วให้แจ้งที่ติดปัญหามาครับ แนบไฟล์ตัวอย่างและชี้ให้เห็นว่าปัญหาคืออะไรมาด้วยครับ
