Page 1 of 1
โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา โดย
Posted: Thu Aug 18, 2011 11:16 am
by saranyoo
โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา โดยใช้ VBA ครับ เช่น 1203 เป็น 12:03
รบกวนด้วนนะครับผม
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 12:20 pm
by snasui
จากภาพไม่จำเป็นต้องใช้ VBA ครับ หรือถ้าจะใช้ก็สามารถเขียน VBA ให้ใช้สูตรตามที่ผมเขียนไว้ให้ข้างล่าง
ที่ D9 คีย์
=Text(B9,
"00\:00")+0
Enter > Copy ลงด้านล่าง > จากนั้นจัดรูปแบบให้เป็นเวลา
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 12:49 pm
by saranyoo
ขอโทษ นะครับ รบกวนอีกรอบนะครับ
พอดีผมต้องการแก้ไขข้อมูล ตรงคอลัมน์ B ทั้งหมดเลยครับ
และข้อมูลมีตั้งแต่ 1 หลัก จนถึง 4 หลัก ครับ
เช่น 1 เปลี่ยนเป็น 00:01
10 เปลี่ยนเป็น 00:10
111 เปลี่ยนเป็น 01:11
1111 เปลี่ยนเป็น 11:11
โดยการใช้ VBA ครับ
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 1:04 pm
by snasui
snasui wrote:ที่ D9 คีย์
=Text(B9,"00\:00")+0
ปรับสูตรเพื่อให้รองรับ 1 หลักตามด้านล่างครับ
=Text(
Right("000"&B9),"00\:00")+0
Enter > Copy ลงด้านล่าง
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 1:24 pm
by saranyoo
คือ ผมอยากเปลี่ยนตรงคอลัมน์ B ทั้งหมดได้เลยหรือเปล่าครับ
โดยการเขียนโค้ดตรง VBA ครับ
เช่น โดยการใช้ฟังก์ชัน string
แล้วรันเปลี่ยนค่าตรงคอลัมน์ B ข้อมูลทั้งหมดเลยครับ
เพราะข้อมูลผมมีมากเลยครับ
พอดีมีคนแนะนำผมมาครับ แต่ผมยังทำไม่ได้เลยครับ
รบกวนด้วยนะครับ
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 2:13 pm
by snasui
ทำตามที่ผมบอกก่อนครับ ได้ผลอย่างไรก็ช่วยแจ้งกลับมาด้วย
กรณีต้องการเปลี่ยนแปลงค่าในคอลัมน์ B ก็ให้นำค่าที่ได้จากสูตรทั้งหมดไปวางทับแบบ Value โดย
1. คลุมผลลัพธ์ที่ได้จากสูตรตามที่แนะนำไป > คลิกขวา > Copy
2. ไปที่คอลัมน์ B เซลล์เริ่มต้นที่ต้องการวางข้อมูล > คลิกขวา > Paste Special > Value
ที่ผมแนะนำไม่ต้องใช้ Macro หรือ VBA เนื่องจากเห็นว่าไม่จำเป็นครับ หากเห็นว่าจำเป็นก็ลองเขียนมาก่อน ติดตรงไหนก็ถามมาได้เต็มที่ครับ
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 3:09 pm
by saranyoo
ผมลอง เขียนโค้ต VBA แล้วครับ
ได้นี้ครับ
ตัวอย่าง ครับ
โค้ต VBA
Sub Time()
Dim r As Range, rAll As Range
Dim i As String, k As String
With Worksheets("Sheet1")
Set rAll = .Range("B3", .Range("B" & Rows.Count).End(xlUp))
End With
For Each r In rAll
i = Left(r, 2)
k = Right(r, 2)
r = i & ":" & k
Next r
End Sub
ก่อนรัน VBA
รัน VBA
คือตัวเลขที่เป็น 4 หลัก ได้ครับ
แต่ตัวเลขที่เป็น 1,2,3 หลัก ค่าที่ได้ไม่ถูกต้องครับ
"คำตอบต้องมี 0 มาต่อข้างหน้าครับ"
ประมาณนี้อะครับ
...ขออภัยนะครับพอดีผมอธิบายไม่เก่ง....
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 3:18 pm
by saranyoo
เพิ่มเติมครับ
เวลา เริ่มต้นจาก 0 ห่าง 2 นาที ครับ
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 4:33 pm
by snasui
ลองปรับ 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
Re: โจทย์คือ ผมต้องการทำตัวเลขจำนวนเต็ม ให้เป็นรูปแบบของเวลา
Posted: Thu Aug 18, 2011 5:18 pm
by saranyoo
ได้แล้วครับ
ขอบคุณมากกก ครับ