Nhờ viết code cho File Excel tính lương.

Liên hệ QC
phuongc5

phuongc5

Thành viên hoạt động
Tham gia
26/10/07
Bài viết
146
Được thích
71
Nghề nghiệp
Kế toán
Chào các thành viên!
Mình tham gia diễn đàn cũng đã lâu nhưng đến bây giờ cũng chưa tự tay mình viết được code (hổ thẹn quá!). Nên mình nhờ việc này rất mong được giúp đỡ chứ không muốn bị nói: trong diễn đàn có nhiều rồi mà (tủi thân lắm).
Trong file đính kèm, tại Sheet!DATA, mình muốn khi nhập tên nhân viên thì ở các cột kế tiếp sẽ hiện số tài khoản, mã số thuế cá nhân, phòng ban (tên NV, phòng ban, số TK, MSTCN đã có tại Sheet!MA). Mình muốn dùng VBA để làm điều này chứ không muốn dùng công thức Vlookup vì nó nặng file và khi lọc nó chậm lắm. Chắc mọi người sẽ nói là tại sao không điền mã số để nó hiện tên nhân viên. Cơ quan mình có hơn 100 người, không ai trùng tên ai, và copy dữ liệu từ các file khác (ngườ khác làm) vào chỉ có tên chứ không có mã nên mình mới làm thế.
Rất mong được giúp đỡ!
Xin chân thành cảm ơn!
 

File đính kèm

  • VD.rar
    1 MB · Đọc: 186
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Góp về cái bạn đã có cái đã

Hàm của bạn có thể rút gọn lại
Mã: 
Function pitfromgross(Gross_Salary, Optional dependance = 0)
    TI = Gross_Salary - 4000000 - dependance * 1600000
    
    If TI < 0 Then
        pitfromgross = 0
    ElseIf TI < 5000000 Then
        pitfromgross = TI * 0.05
    ElseIf TI < 10000000 Then
        pitfromgross = (TI - 5000000) * 0.1 + 250000
    ElseIf TI < 18000000 Then
        pitfromgross = (TI - 10000000) * 0.15 + 750000
    ElseIf TI < 32000000 Then
        pitfromgross = (TI - 18000000) * 0.2 + 1950000
    ElseIf TI < 52000000 Then
        pitfromgross = (TI - 32000000) * 0.25 + 4750000
    ElseIf TI < 80000000 Then
        pitfromgross = (TI - 52000000) * 0.3 + 9750000
    Else
        pitfromgross = (TI - 80000000) * 0.35 + 18150000
    End If
End Function
Như sau:

PHP: 
Function PitFromGross_(Gross_Salary, Optional dependance = 0)
 Const Tr As Double = 10 ^ 6
 
    TI = Gross_Salary / Tr - 4 - dependance * 1.6
    
    If TI < 0 Then
        PitFromGross_ = 0
    ElseIf TI < 5 Then
        PitFromGross_ = TI * 0.05
    ElseIf TI < 10 Then
        PitFromGross_ = (TI - 5) * 0.1 + 0.25
    ElseIf TI < 18 Then
        PitFromGross_ = (TI - 10) * 0.15 + 0.75
    ElseIf TI < 32 Then
        PitFromGross_ = (TI - 18) * 0.2 + 1.95
    ElseIf TI < 52 Then
        PitFromGross_ = (TI - 32) * 0.25 + 4.75
    ElseIf TI < 80 Then
        PitFromGross_ = (TI - 52) * 0.3 + 9.75
    Else
        PitFromGross_ = (TI - 80) * 0.35 + 18.15
    End If
   PitFromGross_ = PitFromGross_ * Tr
End Function
 
Upvote 0
Tại ô họ tên cần nhập nhấn F4 rồi gõ 1 vài ký tự họ người cần nhập, bạn thử xem.
 

File đính kèm

  • VD.rar
    1 MB · Đọc: 205
Lần chỉnh sửa cuối:
Upvote 0
HYen17 đã viết:
Hàm của bạn có thể rút gọn lại
Mã: 
Function pitfromgross(Gross_Salary, Optional dependance = 0)
    TI = Gross_Salary - 4000000 - dependance * 1600000
    
    If TI < 0 Then
        pitfromgross = 0
    ElseIf TI < 5000000 Then
        pitfromgross = TI * 0.05
    ElseIf TI < 10000000 Then
        pitfromgross = (TI - 5000000) * 0.1 + 250000
    ElseIf TI < 18000000 Then
        pitfromgross = (TI - 10000000) * 0.15 + 750000
    ElseIf TI < 32000000 Then
        pitfromgross = (TI - 18000000) * 0.2 + 1950000
    ElseIf TI < 52000000 Then
        pitfromgross = (TI - 32000000) * 0.25 + 4750000
    ElseIf TI < 80000000 Then
        pitfromgross = (TI - 52000000) * 0.3 + 9750000
    Else
        pitfromgross = (TI - 80000000) * 0.35 + 18150000
    End If
End Function
Như sau:

PHP: 
Function PitFromGross_(Gross_Salary, Optional dependance = 0)
 Const Tr As Double = 10 ^ 6
 
    TI = Gross_Salary / Tr - 4 - dependance * 1.6
    
    If TI < 0 Then
        PitFromGross_ = 0
    ElseIf TI < 5 Then
        PitFromGross_ = TI * 0.05
    ElseIf TI < 10 Then
        PitFromGross_ = (TI - 5) * 0.1 + 0.25
    ElseIf TI < 18 Then
        PitFromGross_ = (TI - 10) * 0.15 + 0.75
    ElseIf TI < 32 Then
        PitFromGross_ = (TI - 18) * 0.2 + 1.95
    ElseIf TI < 52 Then
        PitFromGross_ = (TI - 32) * 0.25 + 4.75
    ElseIf TI < 80 Then
        PitFromGross_ = (TI - 52) * 0.3 + 9.75
    Else
        PitFromGross_ = (TI - 80) * 0.35 + 18.15
    End If
   PitFromGross_ = PitFromGross_ * Tr
End Function
Nhấp chuột vào đây để mở rộng...
Cái này mình cũng lấy từ diễn đàn xuống (của anh OVerAC) chứ mình đã biết cách viết code đâu. Không có nền tảng tin học, học mấy khoản này thấy khó quá
 
Upvote 0
sealand đã viết:
Tại ô cần nhập nhấn F4 rồi gõ 1 vài ký tự họ người cần nhập, bạn thử xem.
Nhấp chuột vào đây để mở rộng...
Wow, rất pro, cảm ơn anh. Nhưng như thế này thì nhập từng tên một, em muốn copy từ 1 file khác 10 tên nhân viên (hoặc hơn nữa chẳng hạn) để dán vào file này thì vẫn ra kết quả mong muốn cơ. Giúp em tiếp nhé!
 
Upvote 0
phuongc5 đã viết:
Chào các thành viên!
Mình tham gia diễn đàn cũng đã lâu nhưng đến bây giờ cũng chưa tự tay mình viết được code (hổ thẹn quá!). Nên mình nhờ việc này rất mong được giúp đỡ chứ không muốn bị nói: trong diễn đàn có nhiều rồi mà (tủi thân lắm).
Trong file đính kèm, tại Sheet!DATA, mình muốn khi nhập tên nhân viên thì ở các cột kế tiếp sẽ hiện số tài khoản, mã số thuế cá nhân, phòng ban (tên NV, phòng ban, số TK, MSTCN đã có tại Sheet!MA). Mình muốn dùng VBA để làm điều này chứ không muốn dùng công thức Vlookup vì nó nặng file và khi lọc nó chậm lắm. Chắc mọi người sẽ nói là tại sao không điền mã số để nó hiện tên nhân viên. Cơ quan mình có hơn 100 người, không ai trùng tên ai, và copy dữ liệu từ các file khác (ngườ khác làm) vào chỉ có tên chứ không có mã nên mình mới làm thế.
Rất mong được giúp đỡ!
Xin chân thành cảm ơn!
Nhấp chuột vào đây để mở rộng...

Sử dụng sự kiện WorkSheet_Change của cột Tên Nhân viên và câu lệnh WorkSheetFunction.Vlookup trong VBA thay cho hàm Vlookup trong Excel
Thân
 
Upvote 0
XuanThanh đã viết:
Sử dụng sự kiện WorkSheet_Change của cột Tên Nhân viên và câu lệnh WorkSheetFunction.Vlookup trong VBA thay cho hàm Vlookup trong Excel
Thân
Nhấp chuột vào đây để mở rộng...
Như mình đã nói, mình chưa biết viết code, vì thế bạn gợi ý như thế mình không thể phát triển nó ra được. Bạn có thể bớt chút thời gian giúp mình được không?
 
Upvote 0
phuongc5 đã viết:
Wow, rất pro, cảm ơn anh. Nhưng như thế này thì nhập từng tên một, em muốn copy từ 1 file khác 10 tên nhân viên (hoặc hơn nữa chẳng hạn) để dán vào file này thì vẫn ra kết quả mong muốn cơ. Giúp em tiếp nhé!
Nhấp chuột vào đây để mở rộng...
Không ai hoàn thiện giúp theo yêu cầu của mình sao?
 
Upvote 0
phuongc5 đã viết:
Không ai hoàn thiện giúp theo yêu cầu của mình sao?
Nhấp chuột vào đây để mở rộng...
Theo tôi, bạn nên cắt nhỏ phần yêu cầu của mình ra. Từ Sh nào => Sh nào, nhìn vào nhiều quá, rối.
Còn muốn copy 1 list tên vào Data, sau đó select và điền các thông tin khác thì không khó. Cơ bản là dùng Vlookup sau đó dùng .value=.value.
Bạn hãy cắt ra đi!
 
Upvote 0
ThuNghi đã viết:
Theo tôi, bạn nên cắt nhỏ phần yêu cầu của mình ra. Từ Sh nào => Sh nào, nhìn vào nhiều quá, rối.
Còn muốn copy 1 list tên vào Data, sau đó select và điền các thông tin khác thì không khó. Cơ bản là dùng Vlookup sau đó dùng .value=.value.
Bạn hãy cắt ra đi!
Nhấp chuột vào đây để mở rộng...
Thì yêu cầu của em chỉ là nhập tên ở cột A của Sheet!DATA thì cột B, C, D sẽ tự động được điền vào thôi mà. Anh Sealand đã giúp em rồi, nhưng chỉ là nhập từng tên một thôi, ở đây em muốn khi copy khoảng 10 tên nhân viên ở 1 file khác rồi dán vào cột A, thì tương ứng với các cột B, C, D sẽ điền số liệu vào.
 
Lần chỉnh sửa cuối:
Upvote 0
ThuNghi đã viết:
Theo tôi, bạn nên cắt nhỏ phần yêu cầu của mình ra. Từ Sh nào => Sh nào, nhìn vào nhiều quá, rối.
Còn muốn copy 1 list tên vào Data, sau đó select và điền các thông tin khác thì không khó. Cơ bản là dùng Vlookup sau đó dùng .value=.value.
Bạn hãy cắt ra đi!
Nhấp chuột vào đây để mở rộng...
Thì yêu cầu của em chỉ là nhập tên ở cột A của Sheet!DATA thì cột B, C, D sẽ tự động được điền vào thôi mà (Danh sách tham chiếu thì em để ở Sheet!MA). Anh Sealand đã giúp em rồi, nhưng chỉ là nhập từng tên một thôi, ở đây em muốn khi copy khoảng 10 tên nhân viên, thì tương ứng với các cột B, C, D sẽ điền số liệu vào.
 
Lần chỉnh sửa cuối:
Upvote 0
phuongc5 đã viết:
Thì yêu cầu của em chỉ là nhập tên ở cột A của Sheet!DATA thì cột B, C, D sẽ tự động được điền vào thôi mà (Danh sách tham chiếu thì em để ở Sheet!MA). Anh Sealand đã giúp em rồi, nhưng chỉ là nhập từng tên một thôi, ở đây em muốn khi copy khoảng 10 tên nhân viên, thì tương ứng với các cột B, C, D sẽ điền số liệu vào.
Nhấp chuột vào đây để mở rộng...
Dùng thử code sau.
PHP: 
Sub GanThongSo()
With Application
  .ScreenUpdating = False
End With
Dim endR1 As Long, endR2 As Long
With Sheets("data")
  endR1 = .Cells(65000, 1).End(xlUp).Row 'Ten'
  endR2 = .Cells(65000, 3).End(xlUp).Row 'So TK'
  With .Range("B" & endR2 & ":B" & endR1)
    .FormulaR1C1 = "=VLOOKUP(RC1,MA!R2C1:R147C5,4,0)"
    .Value = .Value
  End With
  With .Range("C" & endR2 & ":C" & endR1)
    .FormulaR1C1 = "=VLOOKUP(RC1,MA!R2C1:R147C5,3,0)"
    .Value = .Value
  End With
  With .Range("D" & endR2 & ":D" & endR1)
    .FormulaR1C1 = "=VLOOKUP(RC1,MA!R2C1:R147C5,2,0)"
    .Value = .Value
  End With
End With
With Application
  .ScreenUpdating = True
End With
 
Upvote 0
Bạn test thử code này nhé:
Mã: 
Sub look_val()
Dim rg As Range
Set rg = Sheet4.Range("A5:D" & Sheet4.[A65536].End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
For Each cel In rg.Cells
If Trim(cel.Text) = "" Then
tim = Sheet4.Cells(cel.Row, 1)
Set cll = Sheet6.Columns("A").Find(what:=tim)
If Not cll Is Nothing Then
Sheet4.Range(cel.Address) = IIf(cel.Column = 2, cll.Offset(, 3), IIf(cel.Column = 3, cll.Offset(, 2), cll.Offset(, 1)))
End If
End If
Next
End Sub
 
Upvote 0
Em đã Test cả 2 code của bác ThuNghi và Sealand, chạy êm ru. Chân thành cảm ơn 2 anh!
---------
Với số liệu hiện tại của em là 2.000 dòng, khi đó code của bác ThuNghi chạy nhanh hơn. Nhưng khi đã điền kín rồi, em xóa thử 1 số dòng ở cột B hoặc C hoặc D thì nó không điền vào nữa, chỉ có dòng cuối cùng nó mới điền. Còn code của bác Sealand thì làm được hết nhưng chậm hơn. Xét về tốc độ: Bác Thunghi 1s, bác Sealand: 10s
 
Lần chỉnh sửa cuối:
Upvote 0
Dẫu sao mình vẫn thích phương thức chọn nhập hơn vì bạn không dùng mã mà dùng tên e sai chính tả hoặc không đồng nhất thì các công thức tổng hợp về sau có vấn đề.
Mình sửa lại Form nhập:
-Bạn có thể tìm bằng nhấn ký tự họ để tìm
-Chọn theo phòng
Cách chọn:
-Nhấn chuột hay phím SpaceBar
-Chọn cả danh sách được lọc nhấn chon All
-Bỏ các lựa chọn nhấn bo chon
Khi chọn xong nhan chấp nhận nhâp (CN nhap)
 

File đính kèm

  • VD1.rar
    1 MB · Đọc: 97
Upvote 0
sealand đã viết:
Dẫu sao mình vẫn thích phương thức chọn nhập hơn vì bạn không dùng mã mà dùng tên e sai chính tả hoặc không đồng nhất thì các công thức tổng hợp về sau có vấn đề.
Mình sửa lại Form nhập:
-Bạn có thể tìm bằng nhấn ký tự họ để tìm
-Chọn theo phòng
Cách chọn:
-Nhấn chuột hay phím SpaceBar
-Chọn cả danh sách được lọc nhấn chon All
-Bỏ các lựa chọn nhấn bo chon
Khi chọn xong nhan chấp nhận nhâp (CN nhap)
Nhấp chuột vào đây để mở rộng...
Bảng sửa đổi này của anh rất đúng ý em rồi. Mình đứng ở Sheet nào để gọi form nhập liệu và bấm chấp nhận thì nó cũng tìm đến dòng cuối cùng của Sheet!DATA để điền vào đó. Cảm ơn anh nhiều nhé!
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

C
  • Question
Hỗ trợ tách dữ liệu từ bảng dữ liệu và nối thành mảng mới
Trả lời
3
Đọc
77
HUONGHCKT
H
ThanhT9
Tìm khoảng cách trong hệ tọa độ
Trả lời
5
Đọc
70
HieuCD
H
M
  • Question
Nhờ Anh/Chị dùng M language chuyển sổ kế toán xuất từ ERP thành sổ kế toán có đối ứng tài khoản từng dòng
Trả lời
4
Đọc
198
viethung78
V
A
[Góc giúp đỡ] Tìm kiếm, lọc và lấy dữ liệu từ nhiều file Word cấu trúc giống nhau vào 1 file excel mẫu
2
Trả lời
21
Đọc
538
Hoàng Tuấn 868
H
J
  • Question
Tự động đổi chữ thường ra chữ hoa sau khi nhập liệu
2
Trả lời
21
Đọc
2K
hcl_pt
H
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

  • Không tìm thấy.
Back
Top Bottom