Cách viết dạng chỉ số trong ô?

[lxthanh8x]

Xin chào các anh em GPE,
Tôi xin hỏi anh em cách viết chỉ số trên/dưới trong Excel như thế nào?
Tôi tình cờ mở file excel của công ty xem thì thấy có thể viết được chỉ số trên/dưới như trong Word mà các ký tự chỉ số nhìn ở thanh công cụ formualer vẫn viết giống như các ký tự bình thường khác.
Cảm ơn các anh em GPE nhiều!
(File tài liệu của công ty nên tôi không tiện upload lên được, anh em thông cảm nha)

 

[hoangdanh282vn]

Xin chào các anh em GPE,
Tôi xin hỏi anh em cách viết chỉ số trên/dưới trong Excel như thế nào?
Tôi tình cờ mở file excel của công ty xem thì thấy có thể viết được chỉ số trên/dưới như trong Word mà các ký tự chỉ số nhìn ở thanh công cụ formualer vẫn viết giống như các ký tự bình thường khác.
Cảm ơn các anh em GPE nhiều!
(File tài liệu của công ty nên tôi không tiện upload lên được, anh em thông cảm nha)

Sau khi viết xong chuỗi cần nhập. Bôi đen chữ cần định dạng. Vào Format\Cells\Font và check vào mục SuperScript

 

[thanhxt2009]

Sau khi viết xong chuỗi cần nhập. Bôi đen chữ cần định dạng. Vào Format\Cells\Font và check vào mục SuperScript

Xin hỏi có phím tắt không bạn?

 

[logica]

Xin hỏi có phím tắt không bạn?

Có phím tắt cho bước Format\cells\font là bạn nhấn tổ hợp phím Ctrl+1

 

[baby1982]

Có phím tắt cho bước Format\cells\font là bạn nhấn tổ hợp phím Ctrl+1

Vậy có thể tạo shortcut cho Superscript hay ko? Trong Excel 2003 lẫn 2007? Chỉ giáo

 

[ptlong04x1]

Vậy có thể tạo shortcut cho Superscript hay ko? Trong Excel 2003 lẫn 2007? Chỉ giáo

Mình vẫn hay làm như sau, cũng không chậm lắm : Bôi đen --> Ctrl 1 --> Alt E

 

[baby1982]

Mình vẫn hay làm như sau, cũng không chậm lắm : Bôi đen --> Ctrl 1 --> Alt E

Ôi, giờ chẳng hiểu sao mình không thể Ctrl 1 nữa rồi. Giờ toàn dùng chuột để Format Cell. Đừng bảo mình Setup lại nha, mất bản cài, nhà no mạng, cũng hok mua đĩa được

 

[huuthang_bd]

Vậy có thể tạo shortcut cho Superscript hay ko? Trong Excel 2003 lẫn 2007? Chỉ giáo

Hình như là không được. Nhưng có thể dùng code để hỗ trợ nhập liệu nếu dữ liệu của bạn nhiều.
Ví dụ như thế này:
Bạn nhập liệu dạng {Dữ liệu bình thường}-{Chỉ số trên} Ví dụ: A-2, C-12
Sau đó bôi đen vùng dữ liệu và chạy Macro này:

Sub GPE()
Dim Vitri As Byte
For Each Cll In Selection
    Vitri = InStr(Cll, "-")
    If Vitri > 0 Then
        Cll.Value = Replace(Cll.Value, "-", "")
        Cll.Characters(Start:=Vitri, Length:=Len(Cll.Value) - Vitri + 1).Font.Superscript = True
    End If
Next
End Sub