Vấn đề định dạng trong excel (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

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

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

Bài viết mới nhất

Back
Top Bottom