Hướng dẫn get column name vba excel - lấy tên cột vba excel

Tôi có một số cột được đặt tên trên một tờ. Tôi muốn gửi số cột đến một hàm sẽ trả về tên cột.

Ví dụ: nếu cột 1 được đặt tên là "Apple", tôi muốn chuyển cột số 1 cho một hàm trả về tên cột "Apple". Nỗ lực của tôi:

Function getColName(colNumber As Integer) As String
'return column name when passed column number

    getColName = Cells(1, colNumber).Column.Name

End Function

Làm thế nào tôi có thể làm cho mã này hoạt động?

hỏi ngày 11 tháng 2 năm 2016 lúc 21:56Feb 11, 2016 at 21:56

7

ColumnNumber = i 'where i need to be a integer number > 0 and <= 16,384
ColumnName = cells(1,i).Address(False, False)

Các tham số bên trong

ColumnNumber = i 'where i need to be a integer number > 0 and <= 16,384
ColumnName = cells(1,i).Address(False, False)

Và nó đã chấm dứt. Đơn giản như thế.

Đã trả lời ngày 14 tháng 1 lúc 13:40Jan 14 at 13:40

Sub GetColumnNameFromRange()
    Dim Colname As String
    For Each cell In Selection.Cells
        If cell.EntireColumn.Hidden = False Then
            Colname = Mid(cell.Address, 2, Len(cell.Address) - (Len(cell.Row) + 2))
            MsgBox Colname
        End If
    Next cell
End Sub

Nốt ruồi Adrian

46.5K130 Huy hiệu vàng45 Huy hiệu bạc73 Huy hiệu đồng130 gold badges45 silver badges73 bronze badges

Đã trả lời ngày 4 tháng 9 năm 2021 lúc 10:38Sep 4, 2021 at 10:38

1

Dim ColAdr as String, ColNo as Long, ColName as String
Function ColName (ColNo as Long)
ColAdr = ThisWorkbook.Sheets("Sheet1").Cells(1, ColNo).Address(RowAbsolute:=True, ColumnAbsolute:=False)
ColName = Left(ColAdr, InStr(1, ColAdr, "$") - 1)
End function

Đã trả lời ngày 5 tháng 10 năm 2021 lúc 23:00Oct 5, 2021 at 23:00

1

Nếu bạn cần (các) chữ cái từ chỉ mục, đây là một hàm tôi đã viết cho điều đó:

Function colNameOf(ByVal colindex As Long) As String
    
    Dim overAlphabetic, charId As Long
    charId = colindex Mod 26
    colindex = colindex - charId
    overAlphabetic = colindex / 26
    
    If charId = 0 Then
        charId = 26
        overAlphabetic = overAlphabetic - 1
    End If
    
    Dim overAlphStr As String
    overAlphStr = ""
    
    If overAlphabetic > 0 Then
        overAlphStr = colNameOf(overAlphabetic)
    End If
    
    Dim lastChar
    lastChar = ChrW(charId + 64)
    
    colNameOf = overAlphStr & lastChar
    
End Function

Lưu ý rằng vẫn chưa có xử lý lỗi cho các giá trị nhỏ hơn 1. Trong trường hợp đó, hàm chỉ trả về bất kỳ điều gì vô nghĩa. TỰ LÀM LẤY... that there is yet no error handling for values smaller than 1. In that case the function just returns any nonsense. DIY...

Đã trả lời ngày 13 tháng 8 năm 2020 lúc 10:10Aug 13, 2020 at 10:10

1

Số cột đến tên cột

Excel VBA Số cột thành tên ví dụ Macro sẽ chuyển đổi số cột thành Excel chữ cái chữ cái tên ký tự ký tự. Hầu hết thời gian trong khi tự động hóa nhiều tác vụ sử dụng Excel VBA, nó có thể được yêu cầu. Vui lòng tìm các chi tiết sau về chuyển đổi số thành tên. Bạn cũng có thể nói số cột đến chuỗi cột. Hoặc số để sử dụng Excel VBA. Vui lòng tìm các chức năng chiến lược khác nhau sau đây để có được số cột thành tên cột.

• Số cột đến Tên cột: Cách tiếp cận dễ nhất bằng cách thay thế địa chỉ ô
• Số cột đến Tên cột: Ví dụ và Đầu ra
• Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia
• Số cột đến Tên cột: Ví dụ và Đầu ra
• Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia
• Số cột đến Tên cột: Ví dụ và Đầu ra
• Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia
• Số cột đến Tên cột: Ví dụ và Đầu ra

Số cột đến Tên cột: Cách tiếp cận dễ nhất bằng cách thay thế địa chỉ ô

Số cột đến Tên cột: Ví dụ và Đầu ra

'Easiest approach by Replacing a Cell address
Function fnColumnToLetter_CellAdressReplace(ByVal ColumnNumber As Integer)
    fnColumnToLetter_CellAdressReplace = Replace(Replace(Cells(1, ColumnNumber).Address, "1", ""), "$", "")
End Function

Số cột đến Tên cột: Ví dụ và Đầu ra

Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia

Sub sbNumerToLetter_ExampleMacro()
    MsgBox "Column Name is : " & fnColumnToLetter_CellAdressReplace(105)
End Sub 

Số cột đến Tên cột: Sử dụng hàm chr và làm trong khi vòng lặp: Press ‘F5’ or click on Run button to run the above procedure. Please find the following output, which is shown in the following screen shot.

Số cột đến Tên cột: Sử dụng cách tiếp cận đệ quy

Vui lòng tìm các chi tiết sau về chuyển đổi từ số cột sang tên cột trong Excel VBA. Ở đây chúng tôi đang đề cập đến một địa chỉ ô.

'By refering Excel Range and using SPLIT function
Function fnColumnToLetter_Split(ByVal intColumnNumber As Integer)
    fnColumnToLetter_Split = Split(Cells(1, intColumnNumber).Address, "$")(1)
End Function

Số cột đến Tên cột: Ví dụ và Đầu ra

Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia

Sub sbNumerToLetter_ExampleMacro1()
    MsgBox "Column Name is : " & fnColumnToLetter_Split(15)
End Sub

Số cột đến Tên cột: Sử dụng hàm chr và làm trong khi vòng lặp: Press ‘F5’ or click on Run button to run the above procedure. Please find the following output, which is shown in the following screen shot.

Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia

Số cột đến Tên cột: Sử dụng hàm chr và làm trong khi vòng lặp

'Using chr function and Do  while loop
Function fnColumnToLetter_DoLoop(ByVal intColumnNumber As Integer) As String
    Dim bColDenom As Byte
    fnColumnToLetter_DoLoop = ""
    Do
        bColDenom = ((intColumnNumber - 1) Mod 26)
        fnColumnToLetter_DoLoop = Chr(bColDenom + 65) & fnColumnToLetter_DoLoop
        intColumnNumber = (intColumnNumber - bColDenom)  26
    Loop While intColumnNumber > 0
End Function

Số cột đến Tên cột: Ví dụ và Đầu ra

Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia

ColumnNumber = i 'where i need to be a integer number > 0 and <= 16,384
ColumnName = cells(1,i).Address(False, False)

Số cột đến Tên cột: Sử dụng hàm chr và làm trong khi vòng lặp: Press ‘F5’ or click on Run button to run the above procedure. Please find the following output, which is shown in the following screen shot.

Số cột đến Tên cột: Bằng cách giới thiệu phạm vi excel và sử dụng chức năng phân chia

Số cột đến Tên cột: Sử dụng hàm chr và làm trong khi vòng lặp

ColumnNumber = i 'where i need to be a integer number > 0 and <= 16,384
ColumnName = cells(1,i).Address(False, False)

Số cột đến Tên cột: Ví dụ và Đầu ra

Dưới đây là thủ tục vĩ mô ví dụ. Nó sẽ chỉ cho bạn cách lấy tên cột từ số cột bằng Excel VBA. Trong ví dụ dưới đây, fncolumntoletter_rec, là một tên hàm, được viết ở trên. Và 4 4, đại diện cho số lượng hàng của tham số chức năng FNColumnToletter_Rec.

ColumnNumber = i 'where i need to be a integer number > 0 and <= 16,384
ColumnName = cells(1,i).Address(False, False)

Đầu ra: Nhấn ‘F5, hoặc nhấp vào nút chạy để chạy quy trình trên. Vui lòng tìm đầu ra sau, được hiển thị trong ảnh chụp màn hình sau.: Press ‘F5’ or click on Run button to run the above procedure. Please find the following output, which is shown in the following screen shot.

Thêm về chuyển đổi tên cột sang cột

Dưới đây là liên kết đến thêm về cách chuyển đổi tên cột sang số cột bằng VBA trong Excel.

Tên cột sang chuyển đổi số

120 Mẫu quản lý dự án chuyên nghiệp!

Tiết kiệm tới 85%ưu đãi thời gian giới hạn LIMITED TIME OFFER

Một mẫu mạnh mẽ và đa năng để quản lý dự án. Bây giờ quản lý liền mạch các dự án, nhiệm vụ, cuộc họp, thuyết trình, nhóm, khách hàng, các bên liên quan và thời gian của bạn. Trang này mô tả tất cả các tính năng và tùy chọn mới tuyệt vời đi kèm với các mẫu cao cấp của chúng tôi.

Gói tất cả trong một gói cao cấp quản lý dự án
120+ Project Management
Premium Templates

Gói thiết yếu 50+ Mẫu cao cấp quản lý dự án
50+ Project Management
Premium Templates

Hơn 50 gói quản lý dự án Excel
Project Management
Templates Pack

Hơn 50 gói quản lý dự án PowerPoint
Project Management
Templates Pack

Gói mẫu quản lý dự án từ 25+ MS
Project Management
Templates Pack

Mẫu quản lý dự án cuối cùng

Mẫu quản lý tài nguyên cuối cùng

Mẫu quản lý danh mục đầu tư dự án

Chia sẻ câu chuyện này, chọn nền tảng của bạn!

4 bình luận

1. Không 3, cột () ,,,), 2,2))

   Xin chào ,

   Tôi không biết Excel nhiều, nhưng tôi đã cố gắng giải quyết điều này bằng cách sử dụng các công thức đơn giản.

   Hy vọng bạn tìm thấy điều này ok.

   Cảm ơn Arun
   Arun

3. Một cách khác: application.convertformula (công thức, fromreferencestyle, Toreferencestyle)

   Ví dụ: application.convertformula (Hồi C215, XLR1C1, XLA1) Trả về: $ hg: $ hg và application.convertformula (
   Application.ConvertFormula(“$HG:$HG”,xla1,xlr1c1) returns: C215

   Chúc mừng, Dale

4. Đặt số cột mà bạn cần biết ký tự trong ô B1 B1 và ​​sử dụng phần còn lại công thức bên dưới của bất kỳ ô nào = trái (thay thế (ô (địa chỉ của Hồi, bù (A1,1, B1-1)), 1 , 1.
   And use the below formula rest of any cells
   =LEFT(REPLACE(CELL(“address”,OFFSET(A1,1,B1-1)),1,1,”),FIND(“$”,REPLACE(CELL(“address”,OFFSET(A1,1,B1-1)),1,1,”))-1)

Quản lý hiệu quả các dự án của bạn và & NBSP; Tài nguyên
Projects and  Resources

Với các mẫu quản lý dự án chuyên nghiệp và cao cấp của chúng tôi!

Analysistabs.com cung cấp các công cụ, mẫu và bảng điều khiển dự án miễn phí và cao cấp để quản lý hiệu quả các dự án và phân tích dữ liệu. provides free and premium project management tools, templates and dashboards for effectively managing the projects and analyzing the data.

Chúng tôi là một nhóm chuyên môn chuyên môn về Excel VBA, phân tích kinh doanh, quản lý dự án. Chúng tôi chia sẻ bản đồ của chúng tôi để dự án thành công với các công cụ, mẫu, hướng dẫn và mẹo sáng tạo.

Quản lý dự án

• Quản lý dự án
• Mẫu miễn phí
• Mẫu cao cấp
• Kế hoạch dự án
• Hoạt động dự án
• Thẩm định dự án
• Ngân sách dự án
• Điều lệ dự án
• Tài nguyên dự án
• Tình trạng của dự án
• Dòng thời gian dự án
• Biểu đồ Gantt

Excel VBA

• Blog
• Hướng dẫn Excel
• Hướng dẫn VBA
• Mã khám phá mã VBA
• 15 macro Excel cho người mới bắt đầu
• Hơn 100 macro VBA hữu ích nhất
• Các dự án VBA
• Mẫu
• Bảng điều khiển
• Tải xuống
• Kiến thức cơ bản

Tải xuống miễn phí Excel 2007, 2010, 2013 Bổ trợ để tạo bảng điều khiển sáng tạo, công cụ khai thác dữ liệu, phân tích, trực quan hóa. Tìm hiểu VBA cho MS Excel, Word, PowerPoint, Access, Outlook để phát triển các ứng dụng bán lẻ, bảo hiểm, ngân hàng, tài chính, viễn thông, lĩnh vực chăm sóc sức khỏe.

Làm cách nào để lấy tên cột trong Excel?

Làm cách nào để tìm một cột trong Excel VBA?

Làm cách nào để đặt tên cho một cột trong một macro trong excel?

Làm cách nào để nhận tên cột từ các số cột trong Excel?