สูตร Excel การขีดเส้นใต้ 2 เส้น โดยใช้ vba

สูตร Excel การขีดเส้นใต้ 2 เส้น โดยใช้ vba

สูตร Excel การขีดเส้นใต้ 2 เส้น โดยใช้ vba Microsoft Excel 2010 ได้กล่าวว่า การตีเส้น 2 เส้นให้กับเซลล์ ตีเส้นใต้ หรือ Double Underline... 07:03:00

สูตร Excel การขีดเส้นใต้ 2 เส้น โดยใช้ vba

Microsoft Excel 2010 ได้กล่าวว่า การตีเส้น 2 เส้นให้กับเซลล์ ตีเส้นใต้ หรือ Double Underline ถือเป็นความสามารถใหม่ของ Excel 2010 อย่างหนึ่ง..ซึ่งการตีเส้นใต้ของ Border ด้านล่างของเซลล์เป็นการเน้นให้ตัวเลขดูโดดเด่นขึ้น เช่น เป็นการแบ่งแยกตัวเลขที่เป็นยอดรวมกับ เงินธรรมดาให้แตกต่างกัน

โดยปกติการตีเส้นใต้สองเส้น หรือ Under line เราสามารถทำได้ด้วยตัวเองไม่จำเป็นต้องเขียนโปรแกรมใด แต่ที่เอามานำเสนอเพื่อว่า อาจเป็นประโยชน์สำหรับมือใหม่ที่หัดเขียน vba อาจไม่ทราบว่าจะสั่งงานให้ตีเส้น 2 เส้นได้อย่างไรโดยผ่านการเขียน ซอร์สโค้ด หรือการสร้าง แมโคร (Macros)

ก่อนที่เราจะออกแบบโปรแกรมนี้ เราก็ต้องพิมพ์ค่าต่างๆ ออกแบบหน้าจอตามปกติ รวมถึงการจัดรูปแบบใส่สีสันให้กับเซลล์ต่างๆให้ดูสวยสดงดงามตามใจของเราจากนั้นจริงเขียน Source Code ลงไป

สมมติว่าเราออกแบบโปรแกรมดังภาพด้านล่างนี้

ให้เราเว้นช่องว่าง 1 ช่อง นั่นคือเซลล์ B5 เพื่อเก็บไว้แสดงผลรวมเงินเดือนของพนักงานทั้งหมด และเราจะตีเส้นใต้ 2 เส้นให้มันด้วย

จากนั้นกด Alt+F11 เพื่อไปที่ vba แล้วใส่ Source Code ทั้งหมดนี้ลงไป

นี่คือสูตร การตรวจสอบการ คลิ้กเม้าส์และสั่งให้หายอดรวม พร้อมทั้งตีเส้น 2 เส้นให้ยอดรวมด้วย

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

   Range("b5").Select

    Range("B5").Activate

    ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"

 With Selection.Borders(xlEdgeBottom)

    .LineStyle = xlDouble

End With

End If

End Sub

กด Alt+F11 กลับมาที่ Excel แล้ว

ทดสอบการทำงานของโปรแกรมโดยการคลิ้กที่เซลล์ A5 (คำนวณ) เซลล์ B5 จะแสดงผลรวมของเงินเดือนพนักงานทั้งหมดพร้อมกับตีเส้นใต้ 2 เส้นให้ด้วย