ซ่อมคอมพิวเตอร์นอกสถานที่ บางกะปิ
www.becomz.com

วันพุธที่ 18 กรกฎาคม พ.ศ. 2555

Microsoft Excel Tips and Tricks: การเปลี่ยนตัวอักษรในภาษาอังกฤษให้เป็นตัวเล็ก, ใหญ่...


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




Share:

0 ความคิดเห็น:

แสดงความคิดเห็น

ซ่อมคอมพิวเตอร์นอกสถานที่ 095-219-0106

Popular Posts

ขับเคลื่อนโดย Blogger.

จำนวนการดูหน้าเว็บรวม

Blog Archive

Followers

Blog Archive