Code VBA tự động thêm dấu nháy trước ngày sinh

HuanBuiThanh

 

Hướng dẫn sử dụng:


Mở Excel và mở workbook bạn muốn thêm dấu ' vào.

Nhấn ALT + F11 để mở trình soạn mã VBA.

Chèn một Module mới bằng cách nhấp chuột phải vào Projet và chọn Insert > Module.

Sao chép mã VBA được cung cấp và dán vào Module vừa tạo.

Thay "Sheet1" bằng tên của sheet mà cột C chứa ngày tháng năm sinh của bạn.

Nhấn Ctrl + S để lưu workbook của bạn.

Đóng trình soạn mã VBA.

Nhấn Alt + F8 để mở hộp thoại Macro.

Chọn macro "ThemDauApostrophe" và nhấn "Run" để thực thi mã VBA.

Mã này sẽ duyệt qua mỗi ô trong cột C từ hàng thứ 2 đến hàng cuối cùng có dữ liệu, kiểm tra xem dữ liệu trong ô có bắt đầu bằng dấu ' không. Nếu không, nó sẽ thêm dấu ' vào trước dữ liệu.

Sub ThemDauApostrophe()

    Dim ws As Worksheet

    Dim lastRow As Long

    Dim cell As Range

    

    ' Thay "Sheet1" bằng tên của sheet bạn đang làm việc

    Set ws = ThisWorkbook.Sheets("Sheet1")

    

    ' Xác định dòng cuối cùng chứa dữ liệu trong cột C

    lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row

    

    ' Duyệt qua từng ô trong cột C

    For Each cell In ws.Range("C2:C" & lastRow) ' Bắt đầu từ hàng 2 để tránh tiêu đề cột

        If Not cell.Value = "" Then ' Chỉ xử lý ô không rỗng

            If Left(cell.Value, 1) <> "'" Then ' Kiểm tra xem ô có bắt đầu bằng dấu ' hay không

                cell.Value = "'" & cell.Value ' Thêm dấu ' vào trước dữ liệu ngày tháng

            End If

        End If

    Next cell

End Sub


Getting Info...

Đăng nhận xét

Cảm ơn bạn đã quan tâm và gửi nhận xét tại
http://huanbuithanh.blogspot.com
hãy ghé thăm blog hàng ngày để được cập nhật những thủ thuật mới nhất nhé . thân ái !
Cookie Consent
We serve cookies on this site to analyze traffic, remember your preferences, and optimize your experience.
Oops!
It seems there is something wrong with your internet connection. Please connect to the internet and start browsing again.
AdBlock Detected!
We have detected that you are using adblocking plugin in your browser.
The revenue we earn by the advertisements is used to manage this website, we request you to whitelist our website in your adblocking plugin.
Site is Blocked
Sorry! This site is not available in your country.