วิธีตั้งค่าสีแบบอักษรข้อความ Excel ด้วย VBA

วิธีตั้งค่าสีแบบอักษรข้อความ Excel ด้วย VBA

ในบทช่วยสอนนี้ เราจะเรียนรู้วิธีใช้ Visual Basic for Applications (VBA) เพื่อแก้ไขขนาดและสไตล์ข้อความในเซลล์ Excel ตามเนื้อหาของเซลล์ บทช่วยสอนนี้ใช้กับ Excel 365, 2021, 2019 และ 2016

เบื้องต้น

หากคุณยังใหม่ต่อการพัฒนา Excel VBA ฉันขอแนะนำว่าก่อนที่จะผ่านบทช่วยสอน คุณจะต้องพิจารณาถึงแมโครไพรเมอร์ Excel VBA ของเราก่อน

ก่อนที่คุณจะเริ่มเขียนโค้ด คุณควรเปิดใช้งานแท็บนักพัฒนาของคุณบน Excelใน Ribbon มิฉะนั้น คุณจะไม่สามารถเข้าถึง Visual Basic Editor ของคุณได้

เปลี่ยนคุณสมบัติข้อความเซลล์ Excel ของคุณด้วย VBA

กำหนดสเปรดชีตของคุณ

เราจะเริ่มต้นด้วยการกำหนดสเปรดชีต Excel ที่เราจะใช้เป็นตัวอย่าง อย่าลังเลที่จะใช้มันเพื่อทำตามบทช่วยสอนนี้

  • เปิด Microsoft Excel และสร้างสมุดงาน Excel ที่เปิดใช้งานมาโครใหม่ ( .xlsm ) ชื่อExcel_Macros.xlsm
  • บันทึกสเปรดชีตของคุณในไดรฟ์ในเครื่อง
  • ใน แผ่นงาน Sheet1ให้เพิ่มตารางด้านล่าง:

วิธีตั้งค่าสีแบบอักษรข้อความ Excel ด้วย VBA

  • ตอนนี้ จาก Ribbon ให้กดFormulas
  • จาก นั้นกดDefine Name
  • กำหนด Named Range ที่คุณจะใช้รหัส VBA ของคุณดังที่แสดงด้านล่างและกดOK

วิธีตั้งค่าสีแบบอักษรข้อความ Excel ด้วย VBA

ใช้คุณสมบัติ Cell.Font VBA เพื่อเปลี่ยนสีแบบอักษรและสไตล์

  • ย้ายไปที่แท็บนักพัฒนา
  • ถัดไปไปข้างหน้าและกดปุ่มVisual Basic
  • ทางด้านซ้ายมือProject Explorerให้ไฮไลต์ โปรเจ็กต์ Excel_Macros.xlsmจากนั้นกดInsertแล้วเลือกModule
  • โมดูล VBA ใหม่ที่ชื่อModule1จะถูกสร้างขึ้น
  • ไปข้างหน้าและวางรหัสต่อไปนี้ในโมดูลที่สร้างขึ้นใหม่:
Sub Color_Cell_Text_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Completion_Status")

'loop through all cells in the range
For Each MyCell In StatusRange

StatValue = MyCell.Value

'modify the cell text values as needed.
Select Case StatValue

    'green
    Case "Progressing"
    With MyCell.Font
        .Color = RGB(0, 255, 0)
        .Size = 14
        .Bold = True
     End With

    'orange
    Case "Pending Feedback"
    With MyCell.Font
        .Color = RGB(255, 141, 0)
        .Size = 14
        .Bold = True
    End With
    
    'red
    Case "Stuck"
    With MyCell.Font
        .Color = RGB(255, 0, 0)
        .Size = 14
        .Bold = True
    End With

End Select

Next MyCell

End Sub
  • กด ปุ่ม บันทึกในโปรแกรมแก้ไข Visual Basic ของคุณ
  • ตอนนี้ให้กดRunจากนั้นเลือกRun Sub/UserForm (หรือเพียงแค่กด F5)
  • ย้ายไปยัง แผ่นงาน Sheet1 ของคุณ และสังเกตการเปลี่ยนแปลง รายการตารางของคุณได้รับรหัสสีหลายรหัสตามข้อความ (โดยใช้ฟังก์ชันสี RGB) และเรายังตั้งค่าให้ข้อความเป็นตัวหนาและเพิ่มขนาด

วิธีตั้งค่าสีแบบอักษรข้อความ Excel ด้วย VBA

  • หากคุณยังไม่ได้บันทึกรหัส ให้กดปุ่มบันทึก (หรือ Ctrl+S) จากนั้นบันทึกเวิร์กบุ๊กของคุณด้วย

เข้าถึง VBA Macro . ของคุณ

  • โปรดทราบว่าโค้ดของคุณพร้อมให้คุณเรียกใช้เสมอจากคำสั่ง Macros ที่อยู่ในแท็บมุมมอง (หรืออีกวิธีหนึ่งคือใน Developer | Macros)

วิธีตั้งค่าสีแบบอักษรข้อความ Excel ด้วย VBA

โบนัส: สไตล์เซลล์

Excel นำเสนอความสามารถในการสร้าง "สไตล์" ของเซลล์ สามารถพบได้ใน Home Ribbon > สไตล์:

รูปแบบตัวอักษร Excel vba

สไตล์ช่วยให้คุณสามารถบันทึกการจัดรูปแบบเซลล์ที่คุณต้องการได้ จากนั้นกำหนดสไตล์นั้นให้กับเซลล์ใหม่ จากนั้นการจัดรูปแบบเซลล์ทั้งหมดจะถูกนำมาใช้ทันที รวมถึงขนาดแบบอักษร สีของเซลล์ สถานะการป้องกันเซลล์ และอื่นๆ ที่มีให้ใช้งานจากเมนูการจัดรูปแบบเซลล์:

เมนูการจัดรูปแบบเซลล์ Excel

โดยส่วนตัวแล้ว สำหรับโมเดลหลายๆ รุ่นที่ฉันทำงานอยู่ ฉันมักจะสร้างสไตล์เซลล์ "อินพุต":

Range("a1").Style = "อินพุต"

การใช้สไตล์ทำให้คุณสามารถระบุประเภทเซลล์บนเวิร์กชีตของคุณได้อย่างง่ายดาย ตัวอย่างด้านล่างนี้จะวนซ้ำเซลล์ทั้งหมดในแผ่นงานและเปลี่ยนเซลล์ใดๆ ด้วย Style = “Input” เป็น “InputLocked”:

Dim Cell เป็นช่วง

สำหรับแต่ละเซลล์ใน ActiveSheet.Cells

ถ้า Cell.Style = "อินพุต" จากนั้น Cell.Style = "InputLocked"

สิ้นสุดถ้า

เซลล์ถัดไป


วิธีแปลอีเมลขาเข้าใน Microsoft Outlook

วิธีแปลอีเมลขาเข้าใน Microsoft Outlook

เรียนรู้วิธีแปลอีเมลขาเข้าผ่าน Microsoft Outlook อย่างง่ายดาย โดยปรับการตั้งค่าเพื่อแปลอีเมลหรือดำเนินการแปลแบบครั้งเดียว

10 วิธีในการแก้ไขข้อผิดพลาด NET :: ERR_CERT_AUTHORITY_INVALID อย่างถาวร

10 วิธีในการแก้ไขข้อผิดพลาด NET :: ERR_CERT_AUTHORITY_INVALID อย่างถาวร

อ่านคำแนะนำเพื่อปฏิบัติตามวิธีแก้ปัญหาทีละขั้นตอนสำหรับผู้ใช้และเจ้าของเว็บไซต์เพื่อแก้ไขข้อผิดพลาด NET::ERR_CERT_AUTHORITY_INVALID ใน Windows 10

CefSharp.BrowserSubprocess คืออะไร ฉันควรหยุดมันไหม?

CefSharp.BrowserSubprocess คืออะไร ฉันควรหยุดมันไหม?

ค้นหาข้อมูลเกี่ยวกับ CefSharp.BrowserSubprocess.exe ใน Windows พร้อมวิธีการลบและซ่อมแซมข้อผิดพลาดที่เกี่ยวข้อง มีคำแนะนำที่เป็นประโยชน์

ไม่สามารถจับภาพหน้าจอเนื่องจากนโยบายความปลอดภัย? นี่คือเหตุผล

ไม่สามารถจับภาพหน้าจอเนื่องจากนโยบายความปลอดภัย? นี่คือเหตุผล

ค้นพบวิธีแก้ไขปัญหาเมื่อคุณไม่สามารถจับภาพหน้าจอได้เนื่องจากนโยบายความปลอดภัยในแอป พร้อมเทคนิคที่มีประโยชน์มากมายในการใช้ Chrome และวิธีแชร์หน้าจออย่างง่ายๆ.

ติดตั้ง Windows 10 บน M1 Mac และบอกลา Boot Camp

ติดตั้ง Windows 10 บน M1 Mac และบอกลา Boot Camp

ในที่สุด คุณสามารถติดตั้ง Windows 10 บน M1 Macs โดยใช้ Parallels Desktop 16 สำหรับ Mac นี่คือขั้นตอนที่จะทำให้เป็นไปได้

Fallout 3 จะไม่เปิด/ไม่ทำงานบน Windows 10 [แก้ไขด่วน]

Fallout 3 จะไม่เปิด/ไม่ทำงานบน Windows 10 [แก้ไขด่วน]

ประสบปัญหาเช่น Fallout 3 จะไม่เปิดขึ้นหรือไม่ทำงานบน Windows 10? อ่านบทความนี้เพื่อเรียนรู้วิธีทำให้ Fallout 3 ทำงานบน Windows 10 ได้อย่างง่ายดาย

[แก้ไขแล้ว] จะแก้ไขข้อผิดพลาดแอปพลิเคชัน 0xc0000142 และ 0xc0000005 ได้อย่างไร

[แก้ไขแล้ว] จะแก้ไขข้อผิดพลาดแอปพลิเคชัน 0xc0000142 และ 0xc0000005 ได้อย่างไร

วิธีแก้ไขข้อผิดพลาด Application Error 0xc0000142 และ 0xc0000005 ด้วยเคล็ดลับที่มีประสิทธิภาพและการแก้ปัญหาที่สำคัญ

การแก้ไข: การใช้งาน CPU สูงของความเข้ากันได้ของ Microsoft Telemetry อย่างถาวร

การแก้ไข: การใช้งาน CPU สูงของความเข้ากันได้ของ Microsoft Telemetry อย่างถาวร

เรียนรู้วิธีแก้ไข Microsoft Compatibility Telemetry ประมวลผลการใช้งาน CPU สูงใน Windows 10 และวิธีการปิดการใช้งานอย่างถาวร...

[แก้ไขแล้ว] ข้อผิดพลาดของ World War Z – หยุดทำงาน ไม่เปิดตัว หน้าจอดำและอื่น ๆ

[แก้ไขแล้ว] ข้อผิดพลาดของ World War Z – หยุดทำงาน ไม่เปิดตัว หน้าจอดำและอื่น ๆ

หากพบข้อผิดพลาดและข้อบกพร่องของ World War Z เช่น การหยุดทำงาน ไม่โหลด ปัญหาการเชื่อมต่อ และอื่นๆ โปรดอ่านบทความและเรียนรู้วิธีแก้ไขและเริ่มเล่นเกม

วิธีการใช้ ลบ และค้นหาข้อความเน้นใน Word

วิธีการใช้ ลบ และค้นหาข้อความเน้นใน Word

เมื่อคุณต้องการให้ข้อความในเอกสารของคุณโดดเด่น คุณสามารถใช้เครื่องมือในตัวที่มีประโยชน์ได้ ต่อไปนี้คือวิธีการเน้นข้อความใน Word