Xin hướng dẫn tạo marco in đậm ngày tháng trong 1 ô

Chia sẻ bởi:hands

★★★★★

‹ Xử lý dữ liệu từ máy chấm... Lỗi sử dụng hàm Vlookup trong VBA ›

Quảng cáo

Mình cũng có gửi kèm file mẫu đính kèm theo.

Hiện tại mình đang xử lý những thông tin liên quan tới ngày tháng trong excel. Thường trong 1 ô sẽ có nhiều dữ ngày tháng và mình muốn in đậm mỗi ngày tháng thôi thì phải làm như thế nào ạ.

Ví dụ:
Đây là dữ liệu có trong bảng excel

15/06/2023 âffafs

13/07/2023 gfgggsgsdf | 15/07/2023 fafasgsfas

20/06/2023 gafdgasd | 26/06/2023 fafasfasfasf | 13/07/2023 đâsdasdad

16/06/2023 ggggggg | 20/06/2023 paspdasdpasdpaspdaspdpasdpasopfafas | 23/06/2023 pqwoepasdoaspo dsapdoas pdoaspd asodapsodpa | 03/07/2023 fasoiasodasidoasidasjdoaj

Còn đây là dữ liệu mình muốn chuyển thành:

15/06/2023 âffafs

13/07/2023 gfgggsgsdf | 15/07/2023 fafasgsfas

20/06/2023 gafdgasd | 26/06/2023 fafasfasfasf | 13/07/2023 đâsdasdad

16/06/2023 ggggggg | 20/06/2023 paspdasdpasdpaspdaspdpasdpasopfafas | 23/06/2023 pqwoepasdoaspo dsapdoas pdoaspd asodapsodpa | 03/07/2023 fasoiasodasidoasidasjdoaj

Mình cũng có tham khảo những vẫn chưa tìm ra được hướng xử lý, với cũng chưa rõ về phần marco này. Có gì nhờ mọi người giúp mình với ạ!

Mình cũng có gửi kèm file mẫu đính kèm theo.

Code cho bạn:

Sub ToDamNgayThang()
    Dim sTXT$, startR&, endR&, dataC&, iRw&, iPt&, iStart&

'--- Thay bằng các số đúng trong dữ liệu của bạn:
    startR = 6: endR = 9    'Thay startR (dong dau) va endR (dong cuoi) cua vung du lieu
    dataC = 1               'Thay dataC (cot chua du lieu)
    '--------------------------------------------------------

For iRw = startR To endR
        sTXT = Cells(iRw, dataC).Text
        iStart = 1
        Do
            iPt = InStr(iStart, sTXT, "/")
            iStart = iPt - 2
            Cells(iRw, dataC).Characters(Start:=iStart, Length:=10).Font.Bold = True
            iStart = iPt + 4
        Loop Until InStr(iStart, sTXT, "/") = 0
    Next
End Sub

www.giaiphapexcel.com/diendan/threads/xin-h%C6%B0%E1%BB%9Bng-d%E1%BA%ABn-t%E1%BA%A1o-marco-in-%C4%91%E1%BA%ADm-ng%C3%A0y-th%C3%A1ng-trong-1-%C3%B4.166219/