Các bạn mình giúp làm cách nào để những dòng cùng ngày ở bên dưới chỉ hiện lên ""

[baquy]

Mình có gửi file đính kèm. Mong các bạn xem và giúp đỡ. Cảm ơn các bạn!

 

[SA_DQ]

Bạn thử với macro này xem sao

Option Explicit
Sub gpeFormatDate()
 Dim Rng As Range, Cls As Range
 
 For Each Cls In Range([A4], [A65500].End(xlUp))
    If Cls.Value = Cls.Offset(-1).Value Then
        Cls.NumberFormat = "''"
    Else
        Cls.NumberFormat = "dd/mm"
    End If
 Next Cls
End Sub

(Với dữ liệu ngày tháng trên cột 'A'. bắt đầu từ [A3])

 

[baquy]

Cảm ơn Bạn SA_DQ!
Mình có làm theo cách của Bạn thì những ngày trùng ở dưới có hiện lên "".
Nhưng khi bấm vào "" (Ví dụ bấm vào ngày 26/03/2011 chẳng hạn, thì ở trong những ô trùng ngày 26/03/2011 nó lại là số 40628 , mình muốn những ô trùng ngày 26/03/2011 hiện lên "" nhưng khi bấm vào các ô trùng đó nó vẫn là ngày 26/03/2011). Mong các Bạn giúp đỡ. Cảm ơn các Bạn nhiều!

 

[baquy]

Các bạn có cách nào ko giúp mình với.

 

[dhn46]

Bạn thêm code sau vào sheet có dữ liệu

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range([A4], [A65500].End(xlUp))) Is Nothing Then
        Target.NumberFormat = "dd/mm"
    End If
End Sub

 

[baquy]

Cảm ơn Bạn! Mình cho code của bạn vào nhưng thấy nó thay đổi gì cả. Mong bạn xem lại giúp mình.

 

[dhn46]

Đầu tiên là code của bác SA-DQ với 1 nút lệnh, tiếp theo là bạn thử kick đúp vào ô vừa chuyển định dạng "" xem.

 

[baquy]

Có cách nào để unhide 1 cái là nó trở lại định dạng ngày 1 loạt ko bạn. Hiện tại mình thấy phải nháy đúp vào "" nó mới hiện lại ngày. Nếu mà 1 năm nháy ko nổi.

 

[dhn46]

Thì bạn chọn toàn bộ khối đó, chọn định dạng format là dd\mm là xong.

 

[hienhoanghuy]

bạn thử xem file đinh kèm nay nhe

 

[tintam7251]

Xin phép mượn file của dhn46, mình chỉnh lại một tí