VietTuts

Tự Học Lập Trình Online

  • Home
  • Java
  • Servlet
  • JSP
  • Struts2
  • Hibernate
  • Spring
  • MyBatis
  • Java WS
  • C
  • C++
  • Python
  • PHP
  • Eclipse
  • VBA
  • Web
    • JavaScript
    • JQUERY
    • JSON
    • AJAX
    • CSS
    • HTML
    • Node.js
    • Angular 7
  • SQL
    • MySQL
    • SQL Server
  • Misc
    • Phần mềm tiện ích
    • Cấu trúc dữ liệu và giải thuật
    • Học lập trình C#
    • Selenium Test
VBA Cơ Bản Các Đối Tượng Trong Excel VBA VBA String VBA Date

Các Ví Dụ Về Excel VBA

Ví dụ đối tượng Workbook và Worksheet Chuyển số thành tên cột trong excel vba Show dialog to choose file in excel vba Open excel file in excel vba Create folder in excel vba Connect Excel VBA to Access Database Tạo file excel trong VBA Mở file excel trong VBA Delete file excel trong VBA Đọc nội dung file text trong VBA Ghi file text trong VBA Xóa file text trong VBA Tạo thưc mục trong VBA Xóa thưc mục trong VBA Tìm row cuối cùng trong VBA Tìm column cuối cùng trong VBA Dãy số Fibonacci trong Excel

Chuyển số thành tên cột trong excel vba


Ví dụ đối tượng Workbook và Worksheet
Show dialog to choose file in excel vba

Có một các đơn giản để Chuyển số thành tên cột trong excel vba, đó là sử dụng Cells(rowIndex, colIndex).Address để lấy địa chỉa của Cell. Định dạng của địa chỉ là $[row number]$[column letter] (ví dụ: $1$AA). Chúng ta chỉ cần phân chia địa chỉ thành mảng các ký tự theo ký tự $. Từ đó sẽ lấy được tên cột.


Nội dung chính

  • Ví dụ chuyển số thành tên cột trong excel vba
  • Demo
  • Download File Macro-Vidu2.xlsm

Ví dụ chuyển số thành tên cột trong excel vba

Tạo hàm convertNumberToLetter().


'********************************
' convert number (iCol) to letter
'*******************************
Function convertNumberToLetter(iCol As Integer) As String
    Dim aSplit As Variant
    
    aSplit = Split(Cells(1, iCol).Address, "$")
    convertNumberToLetter = aSplit(1)
End Function

Tạo hàm ClickButton() và nút Convert.


'********************************
' action of Convert button
'*******************************
Sub ClickButton()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim iCol As Integer
    
    Set wb = Application.ActiveWorkbook
    Set ws = wb.Sheets(1)
    iCol = ws.Cells(1, 1)
    ws.Cells(1, 2) = convertNumberToLetter(iCol)
End Sub


Demo

Nhập cell A1 bằng 27:

Chuyển số thành tên cột trong excel vba

Click nút Convert:

Chuyển số thành tên cột trong excel vba

Download File Macro-Vidu2.xlsm

Download Now!


Ví dụ đối tượng Workbook và Worksheet
Show dialog to choose file in excel vba

Recent Updates

Bài tập Java - Viết chương trình java tính hàm SLOPE trong excelDictionary trong VBACollection trong VBAMảng (Array) trong VBAHàm TimeValue() trong VBAHàm TimeSerial() trong VBAHàm Timer() trong VBAHàm Time() trong VBAHàm Second() trong VBAHàm Minute() trong VBAHàm Hour() trong VBAHàm Now() trong VBA

VietTuts on facebook

Học VBA Excel Online

Danh sách bài học

Học java
Học servlet
Học jsp
Học Hibernate
Học Struts2
Học Spring
Học SQL

Câu hỏi phỏng vấn

201 câu hỏi phỏng vấn java
25 câu hỏi phỏng vấn servlet
75 câu hỏi phỏng vấn jsp
52 câu hỏi phỏng vấn Hibernate
70 câu hỏi phỏng vấn Spring
57 câu hỏi phỏng vấn SQL

About VietTuts.Vn

Hệ thống bài học trên VietTuts.Vn bao gồm các bài lý thuyết và thực hành về các công nghệ java và công nghệ web. Các bài lý thuyết trên hệ thống VietTuts.Vn được tham khảo và tổng hợp từ các trang http://javatpoint.com, http://www.tutorialspoint.com, http://docs.oracle.com/en …

Scroll back to top

Copyright © 2016 VietTuts.Vn all rights reserved. | VietTuts.Vn team | Liên hệ | Chính sách - riêng tư | sitemap.html | sitemap_index.xml