xem phiếu lương

[giangintem]

Chào cả nhà
Mình mới học vba, Mình muốn tạo form xem lương chi tiết từng người, có pass (chỉ xem, không in, không gửi). Nhờ các A/C hướng dẫn hoặc giới thiệu khóa học online về nội dung này. Cám ơn

 

[snow25]

Chào cả nhà
Mình mới học vba, Mình muốn tạo form xem lương chi tiết từng người, có pass (chỉ xem, không in, không gửi). Nhờ các A/C hướng dẫn hoặc giới thiệu khóa học online về nội dung này. Cám ơn

Vậy chỉ cần tạo Form xem phiếu lương rồi lấy dữ liệu từ data vào là được.

 

[Cu Tồ]

Chào cả nhà
Mình mới học vba, Mình muốn tạo form xem lương chi tiết từng người, có pass (chỉ xem, không in, không gửi). Nhờ các A/C hướng dẫn hoặc giới thiệu khóa học online về nội dung này. Cám ơn

Trước khi làm form thì xem làm sao bảo vệ file đã,chứ bạn làm xong rồi vứt cái file ở đấy người ta gửi qua máy khác thì vẫn phá ra xem được dữ liệu bên trong đấy

 

[giangintem]

Mình có đoạn code xem lương. Mình muốn xem lương THAY PrintOut bằng view mà code không chạy được. Nhờ các Anh/Chị hướng dẫn thêm. Cám ơn

Sub PhieuLuong_NoiDung()

Sheet2.Range("F6").Value = Sheet3.Range("E26").Value

Dim dong_BD As Long, dong_KT As Long

dong_BD = Application.WorksheetFunction.Match(Sheet2.Range("I2"), Sheet3.Range("A6:A105"), 0) + 5

dong_KT = Application.WorksheetFunction.CountIf(Sheet3.Range("A6:A105"), Sheet2.Range("I2")) + dong_BD - 1


'MsgBox "dong bat dau la " & dong_BD & "dong ket thuc la " & dong_KT


Dim i As Integer

For i = dong_BD To dong_KT

Sheet2.Range("F6").Value = Sheet3.Range("E" & i).Value

'B4+5

Sheet2.PrintOut

Next i

End Sub