Note: The other languages of the website are Google-translated. Back to English
English English

วิธีการระบายสีหรือเน้นคำบางคำในเซลล์ใน Excel

หากเซลล์มีหลายคำคุณจะเน้นเฉพาะคำบางคำในเซลล์นี้ได้อย่างไร แล้วการเน้นคำบางคำในหลายเซลล์ล่ะ? บทความนี้จะให้วิธีการเพื่อให้บรรลุ

ระบายสีคำบางคำในเซลล์เดียว / หลายเซลล์ด้วยรหัส VBA


ระบายสีคำบางคำในเซลล์เดียว / หลายเซลล์ด้วยรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณเน้นคำบางคำในการเลือก กรุณาดำเนินการดังนี้

1. เลือกช่วงที่มีเซลล์ที่คุณต้องการเน้นคำบางคำภายใน จากนั้นกดปุ่ม อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางรหัส VBA ลงในหน้าต่างรหัส

รหัส VBA: ระบายสีคำบางคำในเซลล์ใน Excel

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส และใน Kutools สำหรับ Excel โปรดป้อนคำที่คุณจะเน้นในเซลล์จากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นคุณจะเห็นคำทั้งหมดที่คุณระบุมีสีเป็นสีแดงในเซลล์ที่เลือกทันทีตามภาพด้านล่างที่แสดง


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (16)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณไม่ได้อธิบายวิธีการเปิด "กล่องโต้ตอบ Kutools สำหรับ Excel" ที่อ้างถึงในขั้นตอนสุดท้าย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จัสตินที่รัก
ขอโทษสำหรับเรื่องนั้น. หลังจากวางโค้ด VBA ลงในหน้าต่าง Code แล้ว โปรดกดปุ่ม F5 เพื่อเรียกใช้โค้ด จากนั้นกล่องโต้ตอบ "Kutools for Excel" จะเปิดขึ้น ขอขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีใดบ้างที่จะทำให้โค้ดเน้นคำโดยอัตโนมัติเมื่อฉันแก้ไขแท็บ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
ขอโทษที่ช่วยเรื่องนี้ไม่ได้ ขอบคุณสำหรับความคิดเห็นของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ ขอบคุณ ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Quisisera resaltar varias palabras al tiempo, como lo puedo hacer?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Eso es lo que estoy tratando de hacer tamiben (นั่นคือสิ่งที่ฉันกำลังพยายามทำเช่นกัน)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ในกรณีที่คุณต้องการให้การค้นหา/ไฮไลต์ไม่คำนึงถึงขนาดตัวพิมพ์ ให้เปลี่ยนบรรทัด 'xArr = Split(xCell.Value, xHStr)' เป็น 'xArr = Split(LCase(xCell.Value), LCase(xHStr))' นอกจากนี้ ฉันสังเกตเห็นว่าการกด F5 ไม่ได้เรียกใช้สคริปต์ (แต่จะให้หน้าต่างโมดอลอื่นแทน) ฉันเข้าถึงได้โดยเปิดใช้งานแท็บนักพัฒนาโดยใช้ตัวเลือก Excel (กำหนด Ribbon เอง) แล้วคลิกมาโครในภายหลัง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ... สิ่งนี้มีประโยชน์มาก! มีวิธีปรับมาโครให้เน้นเฉพาะทั้งคำแทนบางส่วนหรือไม่ ตัวอย่างเช่น ฉันกำลังพยายามเน้นคำว่า "การออกแบบ" แต่เน้นที่ "การออกแบบ" ในคำว่า "กำหนด" ฉันต้องการให้ข้ามคำนั้นไป ถ้าไม่ใช่ทั้งคำ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
Est-il possible de supprimer la boite de diabetes et de mettre par défaut "apple" comme mot recherché ?
Merci
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ป.ป.ช.
รหัสต่อไปนี้สามารถช่วยคุณได้ กรุณาให้มันลอง
Sub HighlightStrings()
'Updated by Extendoffice 20220721
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = "apple"
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดี

Coloreaza cuvantul doar daca e la inceput. Daca e la mijloc ใน aceeasi casuta de excel sau la sfarsit nu-l coloreaza
Ce anume เป็น putea schimba ใน cod pentru al colora ไม่แยแส unde se afla ใน casuta excel?

ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Andreea,
หากคุณต้องการเน้นคำเฉพาะเมื่ออยู่ที่จุดเริ่มต้นของเซลล์ที่เลือก รหัส VBA ต่อไปนี้สามารถช่วยคุณได้ กรุณาให้มันลอง
Sub HighlightStrings()
'Updated by Extendoffice 20220805
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
a me servirebbe evidenziare tutti i numeri (comprensivi di due decimali) da -10,00 a 0 in rosso e da 0 a +10,00 ในเวิร์ด มา posso ค่าโดยสารต่อ aggiungere singolarmente ogni dato senza aggiungerli tutti manualmente?

ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Ciao,
ตัวเลขของคุณอยู่ในเซลล์ต่างๆ ในช่วงต่างๆ หรือไม่ หากเป็นเช่นนั้น คุณสามารถสร้างกฎการจัดรูปแบบตามเงื่อนไขสองกฎ (ระหว่าง -10 ถึง 0 ระหว่าง 0 ถึง 10) เพื่อเน้นตัวเลขเหล่านี้ ถ้าไม่ คุณสามารถอัปโหลดภาพหน้าจอของข้อมูลของคุณได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันดีมาก ขอบคุณ! ฉันสงสัยว่ามีใครรู้วิธีทำให้มันทำงานบน Mac ได้ไหม ขอบคุณมาก
ได้รับคะแนน 5 จาก 5
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ