Add-Ins chuyển đổi nhanh ký tự dạng superscript (2 người xem)

[cadafi]

Đây là add-Ins để chuyển đổi nhanh ký tự dạng superscript. Mình viết và gửi lên các bạn tham khảo:
Các bạn giải nén vào một thư mục bất kỳ. Vào excel, Menu/Tool/Add-Ins, chọn Browse và chỉ đường dẫn đến tập tin add-Ins này (superscript.xla) để đăng ký nhé.

Cú pháp như sau:

Chọn khối/vùng cần chuyển đổi ký tự superscript
Ấn Ctrl+Shift+H
Gõ và ký tự cần chuyển vào hộp input box (ví dụ: m2, m3, a2)

Ấn OK.

Lưu ý chỉ áp dụng cho hai ký tự.
Đây là đoạn code để thực hiện công việc này:

Sub ThayKyTu()
KyTu = InputBox("Nhap so hai ky tu can thay the dang SUPPERSCRIPT:" & Chr(13) & "(Vi du: m2, m3, m4, a3,......", "Thay ky tu thuong bang ky tu dau mu tren (Superscript)", "m2")
On Error GoTo Kiet
For Each Clls In Selection
    With Clls.Characters(Start:=Application.WorksheetFunction.Find(KyTu, Clls, 1) + 1, Length:=1).Font
        .Superscript = True
    End With
Next Clls

Exit_K:
Exit Sub

Kiet:
MsgBox Err.Number & Space(1) & Err.Description & Chr(13) & "Khong tim thay ky tu thay the!"
Resume Exit_K
End Sub

 

[huycoi5]

Sao mình đã làm đúng như bạn: chọn addin, supperscript đã hiện trong addin rồi.
vậy mà khi ấn Ctrl+Shift+H chẳng hiện ra cái bảng gì cả ???
ko thấy có tín hiệu gì hết

 

[cadafi]

Sao mình đã làm đúng như bạn: chọn addin, supperscript đã hiện trong addin rồi.
vậy mà khi ấn Ctrl+Shift+H chẳng hiện ra cái bảng gì cả ???
ko thấy có tín hiệu gì hết

Có thể bạn đặt chế độ security của macro là medium và disable macro! Bạn thử enable macro xem!

 

[tedaynui]

Có thể bạn đặt chế độ security của macro là medium và disable macro! Bạn thử enable macro xem!

Ctrl+Shift+H là do ca_dafi gán cho nó khi Record Macro. Muốn tổ hợp phím trên có hiệu lực trên mọi máy thì ca_dafi phải dùng tới lệnh Application.Onkey thôi. Nếu không thì cứ Alt_F8 và chạy Macro Thaykitu

Thân
TDN