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

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

Microsoft Excel Tips and Tricks: การทำตัวห้อย, ตัวยก (VBA)


สำหรับการทำตัวห้อย ตัวยกใน 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




Share:

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

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

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

Popular Posts

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

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

Blog Archive

Followers

Blog Archive