Xin hướng dẫn tô màu cho các ô có giá trị là ngày Chủ nhật

[van_utc]

Em đang thực hành theo bài hướng dẫn làm bảng chấm công trên diễn đàn:
Tại dòng ngày (Từ 1 đến 31) em đặt công thức "=IF(WEEKDAY(NGAYDAUTHANG)=1,TRUE,FALSE)" theo hướng dẫn nhưng thấy có báo lỗi (lỗi hiện ra: bôi đen vùng "TRUE,FALSE".
Các anh chị giúp em khắc phục lỗi này nhé.
Em cảm ơn nhiều!

 

[BNTT]

Cái bảng chấm công mà bạn đang làm theo đó, nó như thế nào? Ở đâu?

 

[van_utc]

Cái bảng chấm công mà bạn đang làm theo đó, nó như thế nào? Ở đâu?

Em làm theo bài viết trên diễn đàn.

 

[ndu96081631]

Em làm theo bài viết trên diễn đàn.

Lý ra bạn nên đưa file Excel mà bạn đang làm sai lên đây thì dể hướng dẩn hơn!

 

[nguyentranduc1978]

em đang thực hành theo bài hướng dẫn làm bảng chấm công trên diễn đàn:
Tại dòng ngày (từ 1 đến 31) em đặt công thức "=if(weekday(ngaydauthang)=1,true,false)" theo hướng dẫn nhưng thấy có báo lỗi (lỗi hiện ra: Bôi đen vùng "true,false".
Các anh chị giúp em khắc phục lỗi này nhé.
Em cảm ơn nhiều!

Anh không nghiên cứu về marco nhưng có file này chắc giúp em được, nếu không cần tô màu vùng mà chỉ cần tô màu chữ thì hình như trong Format cell có thể xử lý được, em tìm hiểu thêm vì lâu ngày anh cũng không nhớ cú pháp và tùy chọn này. Anh upload file lên không được, lâu ngày không lên mạng nên thành gà rồi, em gửi email anh send file cho

 

[viendo]

Em làm theo bài viết trên diễn đàn.

Thử file này xem có theo ý bạn không, có gì thì làm tiếp.

 

[ndu96081631]

Đại khái thế này đây ---> Bạn xem file nhé

 

[cop_kh]

Đại khái thế này đây ---> Bạn xem file nhé

Bác làm hay thế thì không dùng từ đại khái được, rất đáng để học hỏi.
Tuy nhiên cũng nhờ Bác làm cao hơn tí nữa cho anh em học hỏi thêm để tránh tình trạng tháng 30 ngày hay 28, 29 ngày (tháng 2) không thể hiện trên bảng cho Pro tí Bác nhé.

 

[viendo]

Bác làm hay thế thì không dùng từ đại khái được, rất đáng để học hỏi.
Tuy nhiên cũng nhờ Bác làm cao hơn tí nữa cho anh em học hỏi thêm để tránh tình trạng tháng 30 ngày hay 28, 29 ngày (tháng 2) không thể hiện trên bảng cho Pro tí Bác nhé.

Anh NDU đang bận nên tôi làm tạm thế này nhé

 

[ndu96081631]

Anh NDU đang bận nên tôi làm tạm thế này nhé

Đã muốn "nâng cao" rồi thì cố thêm 1 chiêu nữa: Dùng Conditional Formating, xóa luôn màu ở những phần không có ngày (đoạn cuối tháng ấy) ---> Tức là:
- CN tô màu khác
- Những cell nào không có ngày thì không tô màu

 

[thiennx]

Đọc bài tô màu của các bác, em làm bảng tô màu chấm công cho phòng em như sau. Nhưng nhờ các cao thủ chỉ dẫn làm thế nào để với tháng 2 có 28 ngày hoặc tháng 4 có 30 ngày thì những cột cuối (AG,AH,AI) không có dữ liệu sẽ ẩn đi tự động.

 

[ndu96081631]

Đọc bài tô màu của các bác, em làm bảng tô màu chấm công cho phòng em như sau. Nhưng nhờ các cao thủ chỉ dẫn làm thế nào để với tháng 2 có 28 ngày hoặc tháng 4 có 30 ngày thì những cột cuối (AG,AH,AI) không có dữ liệu sẽ ẩn đi tự động.

Nếu dùng công thức thì ta chỉ có thể làm cho các cell không có ngày ẩn đi bằng cách tô nó màu trắng chứ không thể "ẩn" được ---> Muốn thế bạn phải dùng VBA thôi (sẽ làm cho các cột không có ngày ẩn đi)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Union([U2], [Y2]), Target) Is Nothing Then
    With Range("E4:AI5")
      .EntireColumn.Hidden = True: .ClearContents
      With .Resize(1, Day(DateSerial([Y2], [U2] + 1, 0)))
        .FormulaR1C1 = "=DATE(R2C25,R2C21,COLUMN()-4)"
        .Value = .Value: .EntireColumn.Hidden = False
      End With
    End With
  End If
End Sub

 

[ChanhTQ@]

Trong khi chờ đợi, xài đỡ con macro này (bỏ nó vô SheetName)

Em làm bảng chấm công như sau. Nhưng nhờ chỉ dẫn làm thế nào để với tháng 2 có 28 ngày hoặc tháng 4 có 30 ngày thì những cột cuối (AG,AH,AI) không có dữ liệu sẽ ẩn đi tự động.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

 If Not Intersect(Target, Union([U2], [Y2])) Is Nothing Then
    Application.ScreenUpdating = False
    Cells.EntireColumn.Hidden = False
    Select Case [U2].Value
    Case 4, 6, 9, 11
        Columns(35).Hidden = True
    Case 2
        If [Y2].Value Mod 4 = 0 Then
            Range("AH1:AI1").EntireColumn.Hidden = True
        Else
            Range("AG1:AI1").EntireColumn.Hidden = True
        End If
    End Select
 End If
End Sub

 

[thiennx]

cam on cac chuyen gia
em cung biet la phai dung VBA moi giai quyet duoc van de nay, nhung mon VBA thi em mu tit