Đổi tên cột và dòng trong Excel

[thanh tong]

Các bạn trên diễn đàn cho mình hỏi nhé!
Mình có thể đổi được tên cột từ A,B,C.....Thành một tên khác theo mình muốn không? nếu có thì các bạn hướng dẫn cho mình nhé!
Cảm ơn

 

[nghiaphuc]

Các bạn trên diễn đàn cho mình hỏi nhé!
Mình có thể đổi được tên cột từ A,B,C.....Thành một tên khác theo mình muốn không? nếu có thì các bạn hướng dẫn cho mình nhé!
Cảm ơn

Theo mình biết thì tên cột có thể là A, B, C,... hoặc 1, 2, 3,... còn tên cột đặt theo mình muốn thì có lẽ là không được đâu bạn. Bởi vì tên cột được đặt ra để xác định địa chỉ của ô trong bảng tính. Nếu mình đổi được tên cột thì địa chỉ của ô phải xác định như thế nào? Chẳng lẽ là ô "Họ và tên1", "Ngày sinh123"?

 

[ndu96081631]

Theo mình biết thì tên cột có thể là A, B, C,... hoặc 1, 2, 3,... còn tên cột đặt theo mình muốn thì có lẽ là không được đâu bạn. Bởi vì tên cột được đặt ra để xác định địa chỉ của ô trong bảng tính. Nếu mình đổi được tên cột thì địa chỉ của ô phải xác định như thế nào? Chẳng lẽ là ô "Họ và tên1", "Ngày sinh123"?

Đúng là như vậy! Tuy nhiên cũng có "mẹo": Giấu hết tiêu để dòng, cột rồi tự mình giả lập lấy nó

 

[Lê Duy Thương]

Đúng là như vậy! Tuy nhiên cũng có "mẹo": Giấu hết tiêu để dòng, cột rồi tự mình giả lập lấy nó

giả lập như thế này đúng không anh NDU

 

[nghiaphuc]

giả lập như thế này đúng không anh NDU

Mình nghĩ đến phương án khác: Giấu tiêu đề hàng, cột, tạo tiêu đề mới ở hàng 1, cột A rồi sử dụng Freeze Pane để cố định tiêu đề.
Sau đó sử dụng code sau để ô A1 có chức năng giống như ô Select All trước cột A, hàng 1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then Range([B2], [IV65536]).Select
End Sub

P/S: Sửa lại một xíu: có thể thay code trên thành code này cho "chuyên nghiệp":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Address = "$A$1" Then
            Range([B2], [IV65536]).Select
        ElseIf .Row = 1 Then
            Range(.Offset(1), Cells(65536, .Column)).Select
        ElseIf .Column = 1 Then
            Range(.Offset(, 1), Cells(.Row, 256)).Select
        End If
    End With
End Sub