/ / แปลงเป็นกรณีที่เหมาะสมใน Excel VBA

แปลงเป็นกรณีที่เหมาะสมใน Excel VBA

ด้านล่างเราจะดูที่โปรแกรมมา Excel VBA ที่ แปลงข้อความเป็นกรณีที่เหมาะสม. นั่นคือตัวอักษรตัวแรกในแต่ละคำเป็นตัวพิมพ์ใหญ่และตัวอักษรอื่น ๆ ทั้งหมดเป็นตัวพิมพ์เล็ก

สถานการณ์:

แปลงเป็นกรณีที่เหมาะสมใน Excel VBA

1. ขั้นแรกเราจะประกาศสองวัตถุ Range เราเรียกวัตถุช่วง rng และเซลล์

Dim rng As Range, cell As Range

2. เราเริ่มต้นวัตถุ Range Range ด้วยช่วงที่เลือก

Set rng = Selection

3. เราต้องการตรวจสอบเซลล์แต่ละเซลล์ในช่วงที่เลือกแบบสุ่ม (ช่วงนี้สามารถมีขนาดใดก็ได้) ใน Excel VBA คุณสามารถใช้สำหรับแต่ละรอบถัดไปสำหรับนี้ เพิ่มบรรทัดรหัสต่อไปนี้:

For Each cell In rng

Next cell

หมายเหตุ: rng และ cell ถูกเลือกแบบสุ่มที่นี่คุณสามารถใช้ชื่อใดก็ได้ โปรดอย่าลืมดูชื่อเหล่านี้ในส่วนที่เหลือของรหัสของคุณ

4. เมื่อต้องการละเว้นเซลล์ที่มีสูตรให้เพิ่มโค้ดต่อไปนี้ระหว่าง For Each และ Next (เฉพาะในกรณีที่ Cell.HasFormula เป็นเท็จเราดำเนินการต่อ)

If Not cell.HasFormula Then

End If

5. จากนั้นเราต้องการแปลงแต่ละคำในช่วงนี้เป็น "case case" คุณสามารถใช้ฟังก์ชันแผ่นงานได้สำหรับงานนี้ เพิ่มบรรทัดรหัสต่อไปนี้ในคำสั่ง If ของคุณ

cell.Value = WorksheetFunction.Proper(cell.Value)

6. ทดสอบโปรแกรม

ผล:

แปลงเป็นผลลัพธ์กรณีที่เหมาะสม

อ่านเพิ่มเติมได้ที่: