Em chào các anh chị, Em nhờ anh chị chỉ cho em xin code hiển thị tên cột với ạ. Ví dụ em có số cột là 1 thì hiển thị tên cột là A. ( mục đích của em là quy đổi từ số cột về tên cột ạ). Em cảm ơn các anh chị ạ!
Thử hàm Address, thêm hàm LeftEm chào các anh chị, Em nhờ anh chị chỉ cho em xin code hiển thị tên cột với ạ. Ví dụ em có số cột là 1 thì hiển thị tên cột là A. ( mục đích của em là quy đổi từ số cột về tên cột ạ). Em cảm ơn các anh chị ạ!
cho em xin code hiển thị tên cột
Replace(Cells(1, SoCot).Address(0, 0), 1, "")
Bạn có thể cho ví dụ cụ thể hơn không? Mình chưa hiểu lắm ý của bạn.Em chào các anh chị, Em nhờ anh chị chỉ cho em xin code hiển thị tên cột với ạ. Ví dụ em có số cột là 1 thì hiển thị tên cột là A. ( mục đích của em là quy đổi từ số cột về tên cột ạ). Em cảm ơn các anh chị ạ!
Em cảm ơn anh ạ!Rich (BB code):Replace(Cells(1, SoCot).Address(0, 0), 1, "")
Em cảm ơn anh ạ!Nếu trên bảng tính, bạn có thể dùng:
=SUBSTITUTE(ADDRESS(1,Số Cột,4),1,"")
Ví dụ: Em tìm cột cuối của bảng tính là cls. giờ em muốn copy bảng tính từ A1: cột cuối dùng. Vì thế em muốn quy đổi số cột cuối thành tên cột cuối và lồng ghép vào code ạ.Bạn có thể cho ví dụ cụ thể hơn không? Mình chưa hiểu lắm ý của bạn.
Bạn nói ngay từ đầu thì hay hơn. Trường hợp này tôi thường dùng Range.Resize().Ví dụ: Em tìm cột cuối của bảng tính là cls. giờ em muốn copy bảng tính từ A1: cột cuối dùng. Vì thế em muốn quy đổi số cột cuối thành tên cột cuối và lồng ghép vào code ạ.
em cảm ơn anh ạ!Bạn nói ngay từ đầu thì hay hơn. Trường hợp này tôi thường dùng Range.Resize().
anh cho em code: range.resizel() với ạ!Bạn nói ngay từ đầu thì hay hơn. Trường hợp này tôi thường dùng Range.Resize().
Em làm được rồi anh à. em cảm ơn anh ạ!Bạn nói ngay từ đầu thì hay hơn. Trường hợp này tôi thường dùng Range.Resize().
Nếu là VBA, bạn dùng hàm sau:Em chào các anh chị, Em nhờ anh chị chỉ cho em xin code hiển thị tên cột với ạ. Ví dụ em có số cột là 1 thì hiển thị tên cột là A. ( mục đích của em là quy đổi từ số cột về tên cột ạ). Em cảm ơn các anh chị ạ!
Function Col_Letter(lngCol As Long) As String
Dim vArr
vArr = Split(Cells(1, lngCol).Address(True, False), "$")
Col_Letter = vArr(0)
End Function
Dài dòng quá.Nếu là VBA, bạn dùng hàm sau:
PHP:Function Col_Letter(lngCol As Long) As String Dim vArr vArr = Split(Cells(1, lngCol).Address(True, False), "$") Col_Letter = vArr(0) End Function