ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย ระบุ Version ของ Excel
ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง) กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#1
Post
by HELP Thu Apr 30, 2020 9:21 pm
เนื่องจากข้อมูลดิบมี 3 รูปแบบปนกันตามไฟล์แนบ เช่น
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30919 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#2
Post
by snasui Thu Apr 30, 2020 10:34 pm
ตัวอย่างสูตรครับ
เซลล์ C2 คีย์
=IF(ISERR(1/A2),LEFT(A2,FIND(":",A2)-1),IF(INT(10*MOD(A2,1))=0,1/A2,TEXT(A2,"[h]")))
Enter > Copy ลงด้านล่าง
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#3
Post
by HELP Thu Apr 30, 2020 11:09 pm
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#4
Post
by HELP Thu Apr 30, 2020 11:42 pm
ขอรบกวนอีกนิดเดียวครับ
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30919 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#5
Post
by snasui Fri May 01, 2020 2:02 am
ตัวอย่างสูตรที่ C2 ครับ
=IF(ISERR(1/A2),LEFT(A2,FIND(":",A2)-1),IF(A2=TEXT(A2,"[h]:mm")+0,TEXT(A2,"[h]"),1/A2))
Enter > Copy ลงด้านล่าง
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#6
Post
by HELP Fri May 01, 2020 9:53 am
ใช้ได้แล้วครับ
ขอขอบพระคุณอย่างสูงครับ
ที่กรุณาเสียสละเวลามาตอบในเวลาที่ดึกกกมากครับ
Bo_ry
Gold
Posts: 1245 Joined: Sun Aug 12, 2018 12:11 amExcel Ver: MS 365
Contact:
#7
Post
by Bo_ry Fri May 01, 2020 12:48 pm
อีกแบบ
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#8
Post
by HELP Fri May 01, 2020 2:17 pm
Bo_ry wrote: Fri May 01, 2020 12:48 pm
อีกแบบ
=IF(ISTEXT(A2),--LEFT(A2,FIND(" ",A2)),IF(SECOND(A2),1/A2,INT(A2*24)))
ขอขอบพระคุณอย่างสูงครับที่กรุณามาตอบเพิ่มเติมอีกแบบ
ทดลองแล้วใช้ดีเหมือนกันครับ
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#9
Post
by HELP Sat May 02, 2020 12:36 am
ขออนุญาตรบกวนถามเพิ่มเติมครับ
เนื่องจากมี 3 รายการที่ได้ผลเป็น 0 เหมือนกันจากสูตรทั้ง 2 ท่าน
แต่ดูไม่ต่างจากข้อมูลอื่นที่เป็นทศนิยมเหมือนกัน
ไม่ทราบว่าแก้ไขอย่างไรครับ
Screenshot_228.jpg
A.xls
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30919 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#10
Post
by snasui Sat May 02, 2020 8:03 am
ตัวอย่างการปรับสูตรครับ
C2 คีย์
=IF(COUNT(A2),MAX(1/A2,INT(A2*24)),LEFT(A2,FIND(" ",A2))+0)
Enter > Copy ลงด้านล่าง
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#11
Post
by HELP Sat May 02, 2020 11:22 am
ใช้ได้แล้วครับ
ขอบคุณมาก ๆ ครับ
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#12
Post
by HELP Sat May 02, 2020 8:14 pm
ถ้าเป็นไปได้ ขอถามเพื่อความรู้และความเข้าใจครับ
snasui
Site Admin
Posts: 30919 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#13
Post
by snasui Sun May 03, 2020 8:16 am
HELP wrote: Sat May 02, 2020 8:14 pm
1 ตัวเลข 0.025 , 0.0125 , 0.03125 ที่ก่อนนี้ได้ผลเป็น 0 แตกต่างจากตัวเลขทศนิยมอื่นอย่างไรครับ
แตกต่างกันตรงที่มีวินาทีหรือไม่มีวินาที เช่นนี้เป็นต้นครับ ตัวเลขที่ยกมาคือเวลา สามารถจัดรูปแบบให้แสดงผลเป็น h:mm:ss ได้ หรือหากต้องการค่าชม.ที่เกิน 24 ชม. สามารถจัดรูปแบบเป็น [h]:mm:ss ได้
HELP wrote: Sat May 02, 2020 8:14 pm
2 36:01:00 และ 23:01 แตกต่างกันอย่างไรครับ
แตกต่างตรงการจัดรูปแบบให้แสดงผลได้เกิน 24 ชม.ครับ
HELP wrote: Sat May 02, 2020 8:14 pm
3 สามารถหาความรู้เพิ่มเติมเรื่องนี้ได้จากที่ไหนบ้างครับ
ลอง search แล้ว เป็นเรื่องของรูปแบบเวลาทั่วไป ไม่ค่อยตรงกับกรณีนี้
สอบถามหรือหาได้จากฟอรัมนี้ครับ
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#14
Post
by HELP Sun May 03, 2020 9:37 pm
ฟอรัมนี้เป็นประโยชน์มากครับ
ได้รับความช่วยเหลือจากท่านอาจารย์และสมาชิกเป็นอย่างดีเสมอ
ขออนุญาตรบกวน
มี 4 รายการที่ได้ผลไม่ตรง
ขอบคุณครับ
Screenshot_225.jpg
A.xls
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30919 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#15
Post
by snasui Sun May 03, 2020 10:17 pm
ตัวอย่างการปรับสูตรที่ J2 ครับ
=IF(ISTEXT(F2),LEFT(F2,FIND(":",F2)-1)+0,IF(INT(F2*24),INT(F2*24),1/F2))
HELP
Member
Posts: 92 Joined: Tue May 17, 2011 4:45 amExcel Ver: 2010
#16
Post
by HELP Sun May 03, 2020 11:52 pm
ขอบคุณครับ
สูตรใหม่ล่าสุดทำให้ข้อมูลเก่าที่เคยถูกต้อง 2 รายการไม่ตรงครับ
(สูตรเก่าที่ให้ผลตรง)
=IF(COUNT(F2),MAX(1/F2,INT(F2*24)),LEFT(F2,FIND(" ",F2))+0)
Screenshot_225.jpg
A.xls
You do not have the required permissions to view the files attached to this post.
snasui
Site Admin
Posts: 30919 Joined: Sun Jan 24, 2010 12:33 pmLocation: Songkhla, ThailandExcel Ver: 2010, 365
Contact:
#17
Post
by snasui Mon May 04, 2020 12:32 am
ตัวอย่างการปรับสูตรที่ J2 ครับ
=IF(ISTEXT(F2),LEFT(F2,FIND(":",F2)-1)+0,IF(OR(INT(F2*24)=0,SECOND(F2)),1/F2,INT(F2*24)))
Enter > Copy ลงด้านล่าง
Bo_ry
Gold
Posts: 1245 Joined: Sun Aug 12, 2018 12:11 amExcel Ver: MS 365
Contact:
#18
Post
by Bo_ry Mon May 04, 2020 2:13 am
J2
snasui.com ยินดีต้อนรับ 
สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ 
โปรดทราบ 
