ตรวจสอบและปรับปรุงไฟล์ Excel ให้เร็วและเสถียรด้วย File Anatomy Add-in
เครื่องมือนี้ช่วยวิเคราะห์โครงสร้างไฟล์อย่างละเอียด เช่น สูตร, ลิงก์, PivotTable, Styles และ Objects
พร้อมฟังก์ชันล้างสิ่งเกินจำเป็นที่ทำให้ไฟล์ช้า หรือเสียหายได้ในคลิกเดียว
เหมาะสำหรับผู้ใช้ Excel ที่ต้องการควบคุมคุณภาพไฟล์อย่างมืออาชีพ
ทดลองใช้ Add-in
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
ระบุ Version ของ Excel 
โปรดทราบ สมัครสมาชิก
Login ผ่าน Facebook Reset รหัสผ่าน ติดต่อผู้ดูแลระบบ ตั้งค่าส่วนตัว วิธีการตั้งและตอบกระทู้ จัดรูปแบบตัวอักษร กำหนดขนาดตัวอักษรใน Browser
คำแสดงเจตนา[code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
จากภาพไม่จำเป็นต้องใช้ VBA ครับ หรือถ้าจะใช้ก็สามารถเขียน VBA ให้ใช้สูตรตามที่ผมเขียนไว้ให้ข้างล่าง
ปรับสูตรเพื่อให้รองรับ 1 หลักตามด้านล่างครับsnasui wrote:ที่ D9 คีย์
=Text(B9,"00\:00")+0
ทำตามที่ผมบอกก่อนครับ ได้ผลอย่างไรก็ช่วยแจ้งกลับมาด้วย
ลองปรับ Code เป็นตามด้านล่างครับCode: Select all
Sub TimeEdit()
Dim r As Range, rAll As Range
Dim s As String
With Worksheets("Sheet1")
Set rAll = .Range("B3", .Range("B" & Rows.Count).End(xlUp))
End With
For Each r In rAll
s = "000"
s = Right(s & r, 4)
r = Left(s, 2) & ":" & Right(s, 2)
r.NumberFormat = "h:mm"
Next r
End Sub
ได้แล้วครับ