Vấn đề định dạng trong excel

Liên hệ QC

quanglon1989

Thành viên mới
Tham gia
18/2/11
Bài viết
28
Được thích
2
Giới tính
Nam
Em bị vấn đề như file đính kèm, nhờ các bác giúp giùm.
Em cảm ơn các bác!
 

File đính kèm

  • Book1.xlsx
    11.1 KB · Đọc: 50
Có bác nào giúp được em không ạ?
Cảm ơn các bác!
 
Mã:
Sub chuDuoiChan()
Dim i As Integer
Dim n As Integer
Dim c As Range
i = InputBox("Nhap vi tri bat dau")
n = InputBox("Nhap so ky tu sub")
For Each c In Selection
c.Characters(Start:=i, Length:=n).Font.Subscript = True
Next c
End Sub
Bác tô vùng cần làm rồi chạy cái này là xong. Còn mấy cái nối với đổi dấu . thành dấu phẩy chắc bác tự làm được
 
Mã:
Sub chuDuoiChan()
Dim i As Integer
Dim n As Integer
Dim c As Range
i = InputBox("Nhap vi tri bat dau")
n = InputBox("Nhap so ky tu sub")
For Each c In Selection
c.Characters(Start:=i, Length:=n).Font.Subscript = True
Next c
End Sub
Bác tô vùng cần làm rồi chạy cái này là xong. Còn mấy cái nối với đổi dấu . thành dấu phẩy chắc bác tự làm được
Em cảm ơn bác trước!
Em thử nhưng vẫn chưa đúng ý của em.
Ý em là dùng hàm CONCONATE nhưng vẫn lấy được chữ Gqlda ở dưới chân ấy.
 
Bác nào giúp được em không ạ?
 
Web KT
Back
Top Bottom