วิธีค้นหาและแทนที่ตัวเลขด้วยตัวห้อยใน Excel
ค้นหาและแทนที่ตัวเลขทั้งหมดด้วยตัวห้อยโดย VBA
ค้นหาและแทนที่ตัวเลขด้วยตัวห้อยในสูตรทางเคมีโดย Kutools for Excel
ค้นหาและแทนที่ตัวเลขทั้งหมดด้วยตัวห้อยโดย VBA
ใน Excel ยกเว้นโค้ดแมโครไม่มีวิธีใดที่สามารถช่วยคุณค้นหาและแทนที่ข้อความด้วยรูปแบบตัวห้อยได้
1 กด Alt + F11 กุญแจสำคัญในการแสดง Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในสคริปต์เปล่า
VBA: ค้นหาและแทนที่ตัวเลขทั้งหมดด้วยรูปแบบตัวห้อย
Sub SubscriptNumbers()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xTxt = xCell.Value
For I = 1 To Len(xTxt)
xChar = Mid(xTxt, I, 1)
If xChar >= "0" And xChar <= "9" Then
xCell.Characters(I, 1).Font.Subscript = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3 กด F5 คีย์ a Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงการทำงาน ดูภาพหน้าจอ:
4. หลังจากเลือกแล้วคลิก OKและตัวเลขทั้งหมดในการเลือกถูกแปลงเป็นตัวห้อย
ค้นหาและแทนที่ตัวเลขด้วยตัวห้อยในสูตรทางเคมีโดย Kutools for Excel
ในโค้ดมาโครเพิ่มเติมจริงๆแล้วคุณสามารถใช้ยูทิลิตี้ง่าย ๆ ที่เรียกว่า หมายเลขตัวติดตามในสูตรทางเคมี เพื่อแปลงตัวเลขปกติทั้งหมดในสูตรทางเคมีเป็นรูปแบบตัวห้อยได้อย่างรวดเร็วหากคุณติดตั้ง Kutools สำหรับ Excel.
| Kutools สำหรับ Excel, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น |
หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:
เลือกเซลล์ที่คุณต้องการจัดรูปแบบตัวเลขเป็นตัวห้อยคลิก Kutools > ข้อความ > หมายเลขตัวติดตามในสูตรทางเคมี. ดูภาพหน้าจอ:
และกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณทราบจำนวนเซลล์ที่ถูกแปลงและตัวเลขในสูตรทางเคมีที่เลือกได้รับการจัดรูปแบบเป็นรูปแบบตัวห้อย
แปลงตัวเลขเป็นตัวห้อยในสูตรเคมี
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
