RSS

การทำตัวห้อย, ตัวยก (VBA)

09 Dec

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

1. การทำตัวห้อย 3 อักขระสุดท้าย

Sub SubScriptRange()
Dim r As Range
For Each r In Selection
r.Characters(Start:=Len(r) - 3 + 1, Length:=3).Font _
.Subscript = True
Next r
End Sub

2. การทำตัวยก 3 อักขระสุดท้าย

Sub SuperScriptRange()
Dim r As Range
For Each r In Selection
r.Characters(Start:=Len(r) - 3 + 1, Length:=3).Font _
.Superscript = True
Next r
End Sub

 
Leave a comment

Posted by on 09/12/2009 in Sub Script, Super Script

 

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

 
%d bloggers like this: