Phải đứng trên trang họ "T" mà bạn muốn ẩn dòng trống.
Chuyện gì sẽ diễn ra nếu ta không cung cấp cho hàm VLOOKUP() trị cần đi tìm? (Ở đây sẽ là Mã NV trống)
cái này đúng là mình chưa có nghĩ tới
Theo mình thấy thì vẫn phải lập hàm, cái macro này chỉ thay cho việc sao chép công thức ở 2 ô AJ8;AK8 xuống dưới phải không bạn
Sub an_dong_luong()'
' an_dong_luong Macro
'
'
Range("E4:E5").Select
Range("B4:N5").Select
Selection.AutoFilter
ActiveSheet.Range("$B$4:$N$50").AutoFilter Field:=4, Criteria1:="<>0", _
Operator:=xlAnd
Range("N7").Select
End SubViết hàm tự tạo thay cho hàm VLOOKUP() lồng nhau đó cũng được; Nhưng:
Nhìn mấy cái hình chưa thể nói lên điều gì để bắt tay vô hướng dẫn hay giúp bạn được gì
Tùy thuộc vô cấu trúc trang tính nữa; Ví dụ các bảng họ "T" thì không có dòng trống xen kẻ. Như vậy chi3 việc tìm dòng cuối có dữ liệu cho ẩn đến dòng chứa dữ liệu cuối (tạm gọi là footer) mà thôi;
- Thật xin lỗi bạn vì để bạn nhắc thêm lần nữa về tầm quan trọng của mã NV trong CSDL. Mình hoàn toàn hiểu điều này và bảng tính lập ra chỉ để in ấn báo cáo, bên thuế họ đòi bảng công, bảng lương phải thể hiện rõ tên họ. Làm theo IZO thì mình rất khoái
Trang tính của mình xen kẽ, mình dùng thử macro này thấy cung ổn
cám ơn bạn chỉ bảo, mình hiểu rồi, mình sẽ cố gắng.
Cám ơn bạn đã giúp đỡ. Bạn nói đúng, muốn nắm được thì phải thử thôi...
) . Ý tưởng của mình là tạo thêm cột mức lương cho mỗi nhân viên ở trang DATA, sau đó khi chạy macro thì ở trang CTLg xuất hiện mức lương tương ứng cho mỗi nhân viên .
dArr(W, 3) = Sheets("FuTro").Range("DGCg")
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [O2]) Is Nothing Then
Dim ShName As String
Dim Sh As Worksheet, Arr(), Rng As Range, sRng As Range '*'
Dim J As Long, Rws As Long, W As Long
ShName = "T" & Right("0" & Target.Value, 2)
Set Sh = ThisWorkbook.Worksheets(ShName)
Rws = Sh.[c8].CurrentRegion.Rows.Count
Arr() = Sh.[c8].Resize(Rws, 33).Value
ReDim dArr(1 To SNV, 1 To 4)
[b6].Resize(SNV, 4).Value = dArr()
Rows("6:" & SNV).Hidden = False
With Sheets("Data") '**'
Set Rng = .Range(.[b4], .[b4].End(xlDown))
End With '**'
For J = 1 To UBound(Arr())
If Arr(J, 1) = "" Then Exit For
If Arr(J, 33) > 0 And Arr(J, 33) < 53 Then
W = W + 1: dArr(W, 1) = W
dArr(W, 2) = Arr(J, 1): dArr(W, 4) = Arr(J, 33)
Set sRng = Rng.Find(Arr(J, 1), , xlFormulas, xlWhole) '**'
If Not sRng Is Nothing Then
dArr(W, 3) = sRng.Offset(, 14).Value
End If '**'
End If
Next J
If W Then
[b6].Resize(W, 4).Value = dArr()
Rows(W + 6 & ":" & SNV).Hidden = True
End If
End If
End Sub
. Cám ơn bạn rất nhiều.
Cám ơn bạn nhắc nhở, mình sẽ cẩn thận hơn với CSDL
Private Sub Worksheet_Activate()
Dim Sh As Worksheet, Cls As Range, Rng As Range, sRng As Range
Dim Rws As Long, Thg As Byte, Tmp As Double
Application.ScreenUpdating = False
For Each Cls In Range([c7], [c7].End(xlDown))
For Each Sh In ThisWorkbook.Worksheets
If Left(Sh.Name, 1) = "T" And IsNumeric(Right(Sh.Name, 2)) Then
Thg = CByte(Right(Sh.Name, 2))
Rws = Sh.[c8].CurrentRegion.Rows.Count
Set Rng = Sh.[c8].Resize(Rws)
Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Tmp = 0
Else
Tmp = Sh.Cells(sRng.Row, "AI").Value
End If
Cls.Offset(, Thg).Value = Tmp
End If
Next Sh
Next Cls
Randomize
Application.ScreenUpdating = True
[d6].Resize(, 12).Interior.ColorIndex = 34 + 9 / Rnd() \ 1
End Sub
), sau đó mở trang 'Luong" thì phát sinh lỗi ở dòng:
mình đã sửa rồi bạn, vụ tô màu đúng là vui thật
