ไปยังเนื้อหาหลัก

วิธีบังคับให้สตริงข้อความเป็นตัวพิมพ์ใหญ่ / ตัวพิมพ์เล็ก / ตัวพิมพ์เล็กใน Excel

ใน Excel เมื่อคุณป้อนตัวอักษรหรือคำลงในเซลล์คุณต้องการบังคับให้สตริงข้อความเป็นตัวพิมพ์ใหญ่แม้ว่าคุณจะป้อนตัวพิมพ์เล็กหรือตัวพิมพ์เล็กหรือใหญ่ก็ตามและในทางกลับกัน พวกเราส่วนใหญ่อาจพิจารณาคุณลักษณะการตรวจสอบข้อมูลใน Excel ด้วยฟังก์ชันนี้เราจะได้รับคำเตือนเมื่อเราพิมพ์ข้อความไม่ถูกต้อง ในบทความนี้ฉันจะแนะนำวิธีที่น่าสนใจในการบังคับให้ข้อความเป็นตัวพิมพ์ใหญ่ตัวพิมพ์เล็กหรือตัวพิมพ์เล็กตามที่คุณต้องการ

บังคับให้สตริงข้อความเป็นตัวพิมพ์ใหญ่ / ตัวพิมพ์เล็ก / ตัวพิมพ์เล็ก / ใหญ่ด้วย Data Validation

บังคับให้สตริงข้อความเป็นตัวพิมพ์ใหญ่ / ตัวพิมพ์เล็ก / ตัวพิมพ์เล็กที่เหมาะสมด้วยรหัส VBA

เปลี่ยนข้อความเป็นตัวพิมพ์ใหญ่ / ตัวพิมพ์เล็ก / ตัวพิมพ์เล็กที่เหมาะสมด้วย Kutools for Excel ความคิดที่ดี 3

การตรวจสอบข้อมูลเป็นเครื่องมือที่มีประสิทธิภาพใน Excel ซึ่งสามารถช่วยให้เราดำเนินการได้หลายอย่างด้วยความช่วยเหลือของมันเรายังสามารถบังคับตัวพิมพ์ใหญ่ตัวพิมพ์เล็กหรือตัวพิมพ์ที่เหมาะสมของสตริงข้อความเมื่อพิมพ์โปรดทำดังนี้:

1. ไปที่คลิก ข้อมูล > การตรวจสอบข้อมูล > การตรวจสอบข้อมูลดูภาพหน้าจอ:

doc- บังคับตัวพิมพ์ใหญ่ -1

2. ใน การตรวจสอบข้อมูล ภายใต้ การตั้งค่า คลิกแท็บ อนุญาต รายการแบบเลื่อนลงและเลือก ประเพณี จากนั้นในไฟล์ สูตร กล่องข้อความป้อนสูตรนี้ = แน่นอน (บน (A1), A1), (A1 ย่อมาจากคอลัมน์ที่คุณจะใช้คุณสมบัตินี้คุณสามารถเปลี่ยนได้ตามต้องการ) ดูภาพหน้าจอ:

doc- บังคับตัวพิมพ์ใหญ่ -1

3. จากนั้นคุณสามารถสร้างการแจ้งเตือนได้ตามต้องการโปรดคลิก การแจ้งเตือนข้อผิดพลาด และเลือก หยุด จาก สไตล์ รายการแบบเลื่อนลงที่มุมขวาของไฟล์ เกิดข้อผิดพลาด กล่องข้อความป้อนข้อความเตือนของคุณเองดูภาพหน้าจอ:

doc- บังคับตัวพิมพ์ใหญ่ -1

4. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบตอนนี้เมื่อคุณป้อนสตริงข้อความที่ไม่ได้เป็นตัวพิมพ์ใหญ่ในคอลัมน์ A กล่องคำเตือนจะปรากฏขึ้นเพื่อเตือนให้คุณป้อนตัวอักษรตัวพิมพ์ใหญ่

doc- บังคับตัวพิมพ์ใหญ่ -1

หมายเหตุ

หากคุณต้องการบังคับให้สตริงข้อความเป็นตัวพิมพ์เล็กหรือตัวพิมพ์เล็กโปรดใช้สูตรต่อไปนี้ในไฟล์ การตรวจสอบข้อมูล ในขั้นตอน 2

บังคับให้เป็นตัวพิมพ์เล็ก: = ถูกต้อง (LOWER (A1), A1);

บังคับให้เป็นกรณีที่เหมาะสม: = ถูกต้อง (PROPER (A1), A1)

ด้วยรหัส VBA ต่อไปนี้เมื่อคุณป้อนคำตัวพิมพ์เล็กลงในเซลล์ข้อความตัวพิมพ์เล็กจะเปลี่ยนเป็นอักษรตัวพิมพ์ใหญ่โดยอัตโนมัติ

1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

2. จากนั้นเลือกแผ่นงานที่คุณใช้จากด้านซ้าย นักสำรวจโครงการดับเบิลคลิกเพื่อเปิดไฟล์ โมดูลจากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในโมดูลเปล่า:

รหัส VBA: บังคับให้สตริงข้อความเป็นตัวพิมพ์ใหญ่

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc- บังคับตัวพิมพ์ใหญ่ -1

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

หมายเหตุ:

1. รหัสนี้ใช้กับทั้งแผ่นงาน

2. หากคุณไม่พบ Pโปรเจ็กต์ Explorer Pane ในหน้าต่างคุณสามารถคลิก รายละเอียด > นักสำรวจโครงการ เพื่อเปิด

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

รหัส VBA: บังคับให้สตริงข้อความเป็นตัวพิมพ์เล็ก

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

รหัส VBA: บังคับให้สตริงข้อความเป็นตัวพิมพ์ที่เหมาะสม

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

หากคุณต้องการเปลี่ยนข้อความบางข้อความเป็นตัวพิมพ์ใหญ่ตัวพิมพ์เล็กหรือตัวพิมพ์เล็กที่เหมาะสมคุณสามารถใช้ไฟล์ เปลี่ยนกรณี ประโยชน์ของ Kutools สำหรับ Excel เพื่อทำให้เสร็จอย่างรวดเร็ว

Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 
ดาวน์โหลดฟรี
ฟีเจอร์เต็มรูปแบบฟรีใน 30 วัน

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1. เลือกข้อความที่คุณต้องการเปลี่ยนกรณีและคลิก Kutools > ข้อความ > เปลี่ยนกรณี. ดูภาพหน้าจอ:
doc เปลี่ยนกรณี 6

2 ใน เปลี่ยนกรณี โต้ตอบตรวจสอบตัวเลือกการดำเนินการตามที่คุณต้องการและคุณสามารถดูผลลัพธ์ในไฟล์ ดูตัวอย่าง บานหน้าต่าง ดูภาพหน้าจอ:
doc เปลี่ยนกรณี 2

3 คลิก Ok or ใช้ และข้อความได้รับการเปลี่ยนแปลงกรณี

 เปลี่ยนเป็น UPPERCASE  เปลี่ยนเป็นกรณีที่เหมาะสม  เปลี่ยนเป็นกรณีประโยค
 doc เปลี่ยนกรณี 3  doc เปลี่ยนกรณี 4 doc เปลี่ยนกรณี 5 

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (10)
No ratings yet. Be the first to rate!
DS
DS
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
Reply
0
0
skyyang
skyyang     DS
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
Reply
Report
0
0
Spencer
Spencer
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
Reply
0
0
Sunny
Sunny     Russ Maurer
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
Reply
Report
0
0
Patrick
Patrick
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations