RSS

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

09 Dec

สำหรับการเปลี่ยนตัวอักษรภาษาอังกฤษจากตัวเล็กเป็นตัวใหญ่ หรือตรงกันข้ามหรือเปลี่ยนจากคำนำหน้าให้เป็นตัวใหญ่ โดยปกติสามารถใช้ฟังก์ชั่น 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

About these ads
 
1 Comment

Posted by on 09/12/2009 in Lower, Proper, Upper

 

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

  1. Anonymous

    21/07/2011 at 7:02 pm

    ก็ดีนะครับ เพราะเผื่อต้องการตัวอักษรที่เป็นระเบียบเรียบร้อยดีครับ

     

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
Follow

Get every new post delivered to your Inbox.

Join 791 other followers

%d bloggers like this: