วันเสาร์ที่ 12 กรกฎาคม พ.ศ. 2557

สูตร Excel จัดรูปแบบ ใส่ Thai baht ใส่ทศนิยม ใส่คอมม่า

สูตร Excel จัดรูปแบบ ใส่ Thai baht ใส่ทศนิยม ใส่คอมม่า วันนี้ สูตร Excel จะเป็นเรื่องของการจัดรูปแบบตัวเลขให้อยู่ในรูป จุดทศนิยม, ใส่เ... thumbnail 1 summary

สูตร Excel จัดรูปแบบ ใส่ Thai baht ใส่ทศนิยม ใส่คอมม่า

วันนี้ สูตร Excel จะเป็นเรื่องของการจัดรูปแบบตัวเลขให้อยู่ในรูป จุดทศนิยม, ใส่เครื่องหมาย (,) แบ่งหลักให้ตัวเลข, ใส่สัญลักษณ์ ฿ บาทไทยไว้ข้างหน้าตัวเลข

ปกติแล้วหากเราต้องการจะจัดรูปแบบให้ตัวเลข ที่อยู่ในเซลล์ใดๆ เราสามารถทำได้ง่ายๆโดยไปที่แท็บ “HOME” แล้วมองในส่วนของ Numberเราจะเห็นเครื่องหมายทางการเงินพื้นฐาน เช่น เครื่องหมาย $, “,” , “.” เป็นต้น เราสามารถคลิ้กที่เครื่องหมายเหล่านี้เพื่อจัดรูปแบบเซลล์ที่มีตัวเลขอยู่ให้กลายเป็น Format ที่เราต้องการได้เลย หากยังไม่พอ เราสามารถ เลือกในส่วน Custom เพื่อเลือกใช้เครื่องหมายอื่นๆได้ตามต้องการ

สำหรับในวันนี้ เราจะใส่เครื่องหมายพื้นฐานเหล่านี้คือ ฿ . , ให้ตัวเลขที่ต้องการจะจัดรูปแบบ โดยการเขียน macro จาก Vba ขึ้น บน Spreasheet, ในส่วนของ Sheet1 โดยให้เราออกแบบโปรแกรมดังภาพด้านล่างนี้

จากภาพเราพิมพ์ที่ Sheet1 บนเซลล์ A1 ว่า “งานที่ทำ” , B1 = “รายได้”, C1 =”จัดรูปแบบ”

A2=เขียนบนความ

A3=รับจ้างเขียนโปรแกรม

A4=วาดรูป

B2=45000

B3=1507

B4=436

C2=.

C3=,

C4=฿

เมื่อเราพิมพ์ทุกอย่างเรียบร้อยแล้ว พร้อมทั้งจัดรูปแบบได้ดังภาพแล้ว ก็จะเข้าสู่กระบวนการเขียน Source Code โดยหลักการทำงานของโปรแกรมนี้คือ

เมื่อเราคลิ้กที่เซลล์ C2 โปรแกรมจะใส่จุดให้กับช่องที่มีตัวเลขทั้งหมด โดยใส่จุดด้านหลังตัวเลขพร้อมกับจุดทศนิยม 1 ตำแหน่งด้วย

เมื่อเราคลิ้กที่เซลล์ C3 โปรแกรม Excel จะทำการใส่ , เพื่อแบ่งแยกหลักของตัวเลขให้

เมื่อเราคลิ้กที่ C4 โปรแกรม Excel จะใส่ ฿ข้างหน้าตัวเลขทุกๆช่องให้

เขียน Source code ควบคุม


1. กด Alt+F11 เพื่อไปยัง vba

2. ใส่ Source code ต่อไปนี้ลงไปทั้งหมด

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If (Target.Address = Range("c2").Address) Then

Range("B2:B4").Select

Selection.NumberFormat = "0.0"

End If



If (Target.Address = Range("c3").Address) Then

Range("B2:B4").Select

Selection.NumberFormat = "0,0"

End If



If (Target.Address = Range("c4").Address) Then

Range("B2:B4").Select

Selection.NumberFormat = "ß0"

End If

End Sub

3. กด Alt+F11 เพื่อกลับมายัง Excel อีกครั้ง

4. ทดสอบการทำงาน โดยลองคลิ้กที่ช่อง C2,C3,C4 ดู

ผลจากการคลิ้กที่เซลล์ C2 จะได้ดังภาพด้านล่าง


ผลจากการคลิ้กที่เซลล์ C3 จะได้ดังภาพด้านล่าง


ผลจากการคลิ้กที่เซลล์ C4 จะได้ดังภาพด้านล่าง


หากโปรแกรมไม่มีอะไรผิดพลาดก็จะได้ผลลัพธ์ตามที่กล่าวมาทั้งหมด ให้ทุกคนลองศึกษาด้วยตนเองดูน่ะคับ..ส่วนของโค้ดโปรแกรมก็ไม่ยากอะไรเพราะมีแค่เรื่องของการตรวจสอบการคลิ้กเม้าสเท่านั้นซึ่งเคยสอนไปหมดแล้ว

ส่วนการจัดรูปแบบเซลล์ ก็ไม่มีอะไรมาก ดูจาก Source code แล้วเชื่อว่าทุกคนคงจะเข้าใจได้ไม่ยาก

*ถ้าเกิดว่าที่ช่องรายได้ไม่เป็นไปตามที่คาดไว้ เช่น เราคลิ้กที่เซลล์ C4 แต่สัญลักษณ์ข้างหน้าตัวเลขไม่เป็นสัญลักษณ์ไทยบาท อย่างที่คาดไว้ แสดงว่า มาจาก Font ที่เราเลือกใช้ ให้เราเปลี่ยนแปลงFont ไปเป็น Font อื่นๆดู

ในตัวอย่างนี้ ใช้ Font ที่ชื่อว่า Courier MonoThai พบว่าไม่มีปัญหาอะไร