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

[raikazik]

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.

 

[Hoàng Tuấn 868]

muốn in đậm mỗi ngày tháng thôi

Mục đích là để làm gì bạn nhỉ?

 

[raikazik]

Mục đích là để làm gì bạn nhỉ?

Dữ liệu này là phần tổng hợp thông tin, sau đó mình dùng để trộn qua word trong bảng báo cáo từng cá nhân. Nên cần tô đen ngày tháng cho dễ nhận biết bạn ạ

 

[Maika8008]

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

 

[Hoàng Tuấn 868]

Dữ liệu này là phần tổng hợp thông tin, sau đó mình dùng để trộn qua word trong bảng báo cáo từng cá nhân. Nên cần tô đen ngày tháng cho dễ nhận biết bạn ạ

Hơi khác bài #4 một chút.

 

[raikazik]

Mình cảm ơn mọi người đã giúp ạ!