Cần giúp viết Code xác định tên cột của ô hiện hành (Tên chữ cái của cột như là A, B) (1 người xem)

[hung2412]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code nào xác định được tên cột của ô hiện hành (ActiveCell) (Tên chữ cái của cột như là A, B, C,... chứ không phải chỉ số cột)?. Kết quả đặt tại chính ô hiện hành (ActiveCell) đó.
Ví dụ: Ô hiện hành (ActiveCell) đang ở ô C4 => Tên cột là C (Vì ô hiện hành đang ở cột C) => Kết quả đặt tại ô hiện hành là C.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[phihndhsp]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code nào xác định được tên cột của ô hiện hành (ActiveCell) (Tên chữ cái của cột như là A, B, C,... chứ không phải chỉ số cột)?. Kết quả đặt tại chính ô hiện hành (ActiveCell) đó.
Ví dụ: Ô hiện hành (ActiveCell) đang ở ô C4 => Tên cột là C (Vì ô hiện hành đang ở cột C) => Kết quả đặt tại ô hiện hành là C.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

có thể sử dụng ActiveCell.Address
bạn xem đó mà tự phát triển thêm

 

[dhn46]

Active cell có thuộc tính Address, bạn sẽ lấy được địa chỉ ô hiện hành dựa vào đó mà lôi ra cột, hàng thôi

ActiveCell.Address

 

[Quang_Hải]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code nào xác định được tên cột của ô hiện hành (ActiveCell) (Tên chữ cái của cột như là A, B, C,... chứ không phải chỉ số cột)?. Kết quả đặt tại chính ô hiện hành (ActiveCell) đó.
Ví dụ: Ô hiện hành (ActiveCell) đang ở ô C4 => Tên cột là C (Vì ô hiện hành đang ở cột C) => Kết quả đặt tại ô hiện hành là C.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

MsgBox Left(ActiveCell.Address(1, 0), InStr(ActiveCell.Address(1, 0), "$") - 1)

 

[hung2412]

có thể sử dụng ActiveCell.Address
bạn xem đó mà tự phát triển thêm

Bạn có thể gợi ý thêm được không ạ? ngắn gọn quá tôi không biết phải làm như thế nào.

 

[hung2412]

MsgBox Left(ActiveCell.Address(1, 0), InStr(ActiveCell.Address(1, 0), "$") - 1)

Tôi muốn hiện kết quả trên ô luôn, không phải hiện MsgBox. Chắc là vầy:

ActiveCell = Left(ActiveCell.Address(1, 0), InStr(ActiveCell.Address(1, 0), "$") - 1)

 

[VetMini]

split(ActiveCell.Address(1, 0),"$")(0)

 

[hung2412]

split(ActiveCell.Address(1, 0),"$")(0)

Có mỗi một dòng đó thôi hả bạn? Không chạy được Code.

 

[phihndhsp]

Có mỗi một dòng đó thôi hả bạn? Không chạy được Code.

kết quả của nó là 1 cái chuỗi, bạn phải biết gán nó vô cái nào chứ

 

[hung2412]

kết quả của nó là 1 cái chuỗi, bạn phải biết gán nó vô cái nào chứ

Vâng, phải ít ra là như thế này phải không ạ?

ActiveCell = Split(ActiveCell.Address(1, 0), "$")(0)

 

[jack nt]

xin góp thêm một kiểu nữa:

Public Function Num2Col(n&)
    If n > 0 Then
        Num2Col = Replace(Cells(1, n).Address(0, 0), 1, "")
    End If
End Function

 

[TrungChinhs]

Thêm cách nữa

Sub Macro1()
    With Selection
        .Value = .Address(0, 0)
        .Replace .Row, ""
    End With
End Sub

 

[VetMini]

xin góp thêm một kiểu nữa:

Public Function Num2Col(n&)
    If n > 0 Then
        Num2Col = Replace(Cells(1, n).Address(0, 0), 1, "")
    End If
End Function

Đây là code chuyên đổi số thành tên cột. Không phải là giải đáp yêu cầu bài này.