BlogGang.com : : คนควน : การเปลี่ยนตัวอักษรในภาษาอังกฤษให้เป็นตัวเล็ก, ใหญ่ หรือ ขึ้นต้นด้วยตัวใหญ่

การเปลี่ยนตัวอักษรในภาษาอังกฤษให้เป็นตัวเล็ก, ใหญ่ หรือ ขึ้นต้นด้วยตัวใหญ่

สำหรับการเปลี่ยนตัวอักษรภาษาอังกฤษจากตัวเล็กเป็นตัวใหญ่ หรือตรงกันข้ามหรือเปลี่ยนจากคำนำหน้าให้เป็นตัวใหญ่ โดยปกติสามารถใช้ฟังก์ชั่น Upper(), Lower() หรือ Proper() ได้

แต่หากข้อมูลที่ได้รับมากระจัดกระจายในตำแหน่งที่ไม่แน่นอน จะทำให้ใช้ฟังก์ชั่นในการจัดการได้ยาก หากใช้ VBA มาจัดการแทนค่อนข้างจะง่ายกว่า ซึ่งตัวอย่างการใช้ VBA ในการจัดการข้อมูลสามารถดูได้ตามด้านล่างครับ

A. การเปลี่ยนตัวอักษรให้เป็นตัวเล็กทั้งไฟล์

Sub ChagetoLower()
Dim r As Range
Dim i As Integer
For i = 1 To Worksheets.Count
    For Each r In Worksheets(i).UsedRange
        r = LCase(r)
    Next r
Next i
End Sub

B. การเปลี่ยนตัวอักษรให้เป็นตัวใหญ่ทั้งไฟล์

Sub ChagetoUpper()
Dim r As Range
Dim i As Integer
For i = 1 To Worksheets.Count
    For Each r In Worksheets(i).UsedRange
    r = UCase(r)
    Next r
Next i
End Sub

C. การเปลี่ยนให้ตัวอักษรขึ้นต้นแต่ละคำด้วยตัวใหญ่ทั้งไฟล์

Sub ChagetoProper()
Dim r As Range
Dim i As Integer
For i = 1 To Worksheets.Count
    For Each r In Worksheets(i).UsedRange
        r = Application.WorksheetFunction.Proper(r)
    Next r
Next i
End Sub

กรณีมีปัญหา Excel สามารถสอบถามได้ที่ //www.snasui.com ครับ

Create Date : 24 มีนาคม 2552

Last Update : 10 กุมภาพันธ์ 2556 19:37:52 น.

5 comments

Counter : 1598 Pageviews.

ไม่เข้าใจค่ะ ว่าทำยังไงอ่านแล้ว งง

โดย: กุ้ง IP: 58.8.64.41 วันที่: 17 ธันวาคม 2552 เวลา:13:26:27 น.

สวัสดีครับคุณกุ้ง

ถ้าคุณไม่เคยใช้ VBA ก็ปกติครับที่อ่านแล้วไม่เข้าใจ เพราะ Code ด้านบนเป็น Code VBA ครับ ไม่ใช่เป็นสูตรที่เขียนลงในตาราง Excel

ก่อนจะใส่ Code นี้ต้องเปิดโปรแกรม VBE ขึ้นมาก่อนครับ

ตัวอย่างข้างล่างจะเป็นขั้นตอนการเปิดหน้าต่าง VBE และการใส่ Code

1. เข้าโปรแกรม Excel
2. กดแป้น Alt+F11 เพื่อเปิด VBE
3. เลือกเมนู Insert > Module
4. Copy Code ด้านล่างไปวางเพื่อให้เปลี่ยนตัวอักษรเป็นตัวเล็กทั้งไฟล์
-------------------------------------------
Sub ChagetoLower()
Dim r As Range
Dim i As Integer
For i = 1 To Worksheets.Count
For Each r In Worksheets(i).UsedRange
r = LCase(r)
Next r
Next i
End Sub
-------------------------------------------
5. กดแป้น Alt+Q เพื่อกลับไปยังโปรแกรม Excel
6. เลือก ChagetoLower > Run

โดย: คนควน

วันที่: 19 ธันวาคม 2552 เวลา:11:03:32 น.

แก้ข้อ 6 ในความเห็น 2 เป็น กดแป้น Alt+F8 แล้วเลือก ChagetoLower > Run

โดย: คนควน

วันที่: 28 ธันวาคม 2552 เวลา:12:09:27 น.

รัน code ไม่ผ่านครับ
A. การเปลี่ยนตัวอักษรให้เป็นตัวเล็กทั้งไฟล์
r = LCase(r)
B. การเปลี่ยนตัวอักษรให้เป็นตัวใหญ่ทั้งไฟล์
r = UCase(r)
C. การเปลี่ยนให้ตัวอักษรขึ้นต้นแต่ละคำด้วยตัวใหญ่ทั้งไฟล์
r = Application.WorksheetFunction.Proper(r)
ขึ้นว่า Run-time error '13':
Type mismatch

โดย: สมควร IP: 58.8.173.14 วันที่: 30 มีนาคม 2553 เวลา:13:57:08 น.

สวัสดีครับคุณ สมควร

ลองไปโพสต์และแนบไฟล์ที่ //www.snasui.com/ ซึ่งต้องสมาชิก (ฟรี) จะช่วยดูให้ครับ

โดย: คนควน

วันที่: 31 มีนาคม 2553 เวลา:20:40:33 น.