Tự tô màu

[Quynhau]

Anh chị chỉ giúp em cách tự tô màu các ngày chủ nhật và ngày lễ như File em gửi ạ

 

[huonglien1901]

Anh chị chỉ giúp em cách tự tô màu các ngày chủ nhật và ngày lễ như File em gửi ạ

Bạn quét chọn từ vùng A11:S42
Vào Home-Conditional Formating-Manage rule sau đó bạn gõ công thức sau:

=OR($I11="chủ nhật",$I11="nghỉ lễ")

 

[dazkangel]

Anh chị chỉ giúp em cách tự tô màu các ngày chủ nhật và ngày lễ như File em gửi ạ

File của bạn có nhiều điều khó hiểu, ngày tháng sao lại để là chuỗi đã vậy còn là 01.05.2018 nên là dạng số định dạng là 01/05/2018 hoặc 01-05-2018.
Hơn nữa chủ nhật bạn liệt kê ra là hoàn toàn sai với thời gian thực.
Gửi bạn cách làm của tôi:

 

[Quynhau]

Dạ mình cám ơn nhiều ạ. Nhân tiện cho mình hỏi nếu muốn tụ động cập nhật
ra chữ nghỉ lễ, chủ nhật mà ko cần tự đánh ra ko bạn

 

[phulien1902]

Dạ mình cám ơn nhiều ạ. Nhân tiện cho mình hỏi nếu muốn tụ động cập nhật
ra chữ nghỉ lễ, chủ nhật mà ko cần tự đánh ra ko bạn

Bạn thử với sự kiện ClickDouble

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [a11:A1000]) Is Nothing Then
        If Target = #1/1/2018# Then Target.Offset(, 9) = "T" & ChrW(7871) & "t d" & ChrW(432) & ChrW(417) _
        & "ng l" & ChrW(7883) & "ch"
        '!-- Bo sung them cac ngày dac biet vao day
        If Target.Offset(, 19) = "Saturday" Then
            Target.Offset(, 9) = "Th" & ChrW(7913) & " 7"
        ElseIf Target.Offset(, 19) = "Sunday" Then
            Target.Offset(, 9) = "Ch" & ChrW(7911) & " nh" & ChrW(7853) & "t"
        End If
    End If
End Sub

 

[Quynhau]

Bạn thử với sự kiện ClickDouble

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, [a11:A1000]) Is Nothing Then
        If Target = #1/1/2018# Then Target.Offset(, 9) = "T" & ChrW(7871) & "t d" & ChrW(432) & ChrW(417) _
        & "ng l" & ChrW(7883) & "ch"
        '!-- Bo sung them cac ngày dac biet vao day
        If Target.Offset(, 19) = "Saturday" Then
            Target.Offset(, 9) = "Th" & ChrW(7913) & " 7"
        ElseIf Target.Offset(, 19) = "Sunday" Then
            Target.Offset(, 9) = "Ch" & ChrW(7911) & " nh" & ChrW(7853) & "t"
        End If
    End If
End Sub

[/QUOTE
Mình copy code bạn qua vẫn ko được

 

[phulien1902]

Không được nghĩa là thế nào? Không áp dụng được?
Bạn xem File đính kèm sẽ hiểu.

 

[dazkangel]

Dạ mình cám ơn nhiều ạ. Nhân tiện cho mình hỏi nếu muốn tụ động cập nhật
ra chữ nghỉ lễ, chủ nhật mà ko cần tự đánh ra ko bạn

muốn tôi trả lời thì nhấn trả lời chứ không thì ai biết mà giúp, nếu muốn dùng công thức thì chiều tôi sẽ làm, giờ đang bận.

 

[Quynhau]

muốn tôi trả lời thì nhấn trả lời chứ không thì ai biết mà giúp, nếu muốn dùng công thức thì chiều tôi sẽ làm, giờ đang bận.

Dạ cám ơn bạn trước nha

 

[dazkangel]

Dạ cám ơn bạn trước nha

Thử:

=IF(COUNTIF('THÔNG TIN'!A$6:A$10,A11),"Nghỉ lễ",IF(WEEKDAY(A11)=1,"Chủ nhật",""))

 

[huonglien1901]

Thử:

=IF(COUNTIF('THÔNG TIN'!A$6:A$10,A11),"Nghỉ lễ",IF(WEEKDAY(A11)=1,"Chủ nhật",""))

Em nghĩ ra cách làm khác cũng giống Anh đó. Tối em về em gửi bài lên.

 

[Quynhau]

Thử:

=IF(COUNTIF('THÔNG TIN'!A$6:A$10,A11),"Nghỉ lễ",IF(WEEKDAY(A11)=1,"Chủ nhật",""))

Dạ em cám ơn anh chị nhiều ạ ! Cám ơn anh dazkangel nha, em làm theo anh được rồi