chứ e ngồi nghịch 1 lúc thì nó càng rối, nếu có thêm đc lịch vào thì tốt quá
E. đã lấy 1 bảng tính công của 1 bạn trong diễn dàn sửa lại ,nhưng có 1 vấn đề là ô tổng cộng ko hiện thị nửa ngày công , ví dụ như 30.5 ngày công thì nó làm tròn thành 31 ngày công , a chị nào giúp e hiện thị được ko ạ và giúp e trình bày lại bảng tính công luôn
Các bạn cho tôi hỏi thêm: lấy file của thầy SA_DQ làm ví dụ
Bạn có thể giúp mình cái VBA để cho ẩn cột được kg!
Gởi bạn
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Ak1]) Is Nothing Then
Dim Cls As Range, Rws As Long
Columns("AF:AH").Hidden = False
Rws = [b6].CurrentRegion.Rows.Count
For Each Cls In [AF5].Resize(, 3)
If Month(Cls.Value) <> Target.Value Then
Cls.Offset(1).Resize(Rws).Clear '<=|'
Cls.EntireColumn.Hidden = True
End If
Next Cls
End If
End SubOoÔ rất tuyệt, cảm ơn 2 ban nhiều
Em dùng code trên & sửa để cho phù hơp với File của em. Sau khi sửa thì code của em nó xóa số liệu trong các cell AG59, AH59 và AI59
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Ak1]) Is Nothing Then
Dim Cls As Range, Rws As Long
Columns("AG:AI").Hidden = False
Rws = [B8].CurrentRegion.Rows.Count
For Each Cls In [AG6].Resize(, 3)
If Month(Cls.Value) <> Target.Value Then
Cls.Offset(2).Resize(Rws).ClearContents '<=|'
Cls.EntireColumn.Hidden = True
End If
Next Cls
End If
End Sub
Rws = [B8].CurrentRegion.Rows.CountRws = [B8].CurrentRegion.Rows.Count - NNếu xóa 2 cell định dạng màu trắng thì N = 2
e trước giờ có dùng tới đâu ,, đến lúc cần thì lại ko bít Cls.Offset(2).Resize(Rws).ClearContentsCls.Offset(2).Resize(Rws - 2).ClearContentsOption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Ak1]) Is Nothing Then
Dim Cls As Range, Sh As Worksheet, Rng As Range, lRg As Range
Dim Rws As Long
Columns("AG:AI").Hidden = False
Rws = [B8].CurrentRegion.Rows.Count
Set Sh = ThisWorkbook.Worksheets("NghiLe")
Set Rng = Sh.Range("NgLe")
Rng.NumberFormat = "mm/dd/yyyy"
[e6].Resize(2, 31).Interior.ColorIndex = 2
For Each Cls In [e6:AI6]
Set lRg = Rng.Find(Format(Cls.Value, "MM/DD/yyyy"), , xlValues, xlWhole)
If Not lRg Is Nothing Then
Cls.Resize(2).Interior.ColorIndex = 3
Else
If Weekday(Cls.Value) = 1 Then
Cls.Resize(2).Interior.ColorIndex = 38
ElseIf Weekday(Cls.Value) = 7 Then
Cls.Resize(2).Interior.ColorIndex = 35
End If
End If
If Cls.Column > 32 And Month(Cls.Value) <> Target.Value Then
Cls.Offset(2).Resize(Rws - 2).ClearContents '<=|'
Cls.EntireColumn.Hidden = True
End If
Next Cls
End If
End Sub
