工资表

小zhi

先交一份工资发放明细的代码。

1. Sub 工资发放明细()
   
2. Dim str As String
   
3. Dim wb As Workbook
   
4. Dim sht, sht1 As Worksheet
   
5. Dim i, n, x, y As Integer
   
6. Dim rng As Range
   
7. str = ThisWorkbook.Path & "" & Year(Now()) & "年" & Month(Now()) - 1 & "月份工资发放明细.xlsx"
   
8. Set wb = GetObject(str)
   
9. Set sht1 = wb.Worksheets(1)
   
10. Set sht = ThisWorkbook.Worksheets(1)
    
11. i = sht.Cells(3, 2).End(xlDown).Row
    
12. x = sht1.Cells(4, 2).End(xlDown).Row
    
13. For n = 3 To i
    
14.     For y = 4 To x
    
15.         If sht.Cells(n, 2).Value = sht1.Cells(y, 2).Value Then
    
16.             If sht.Cells(n, 2).Offset(0, 1).Value = sht1.Cells(y, 2).Offset(0, 1).Value Then
    
17.                 sht1.Cells(y, 2).Offset(0, 2).Value = sht.Cells(n, 2).Offset(0, 31).Value
    
18.             End If
    
19.         End If
    
20.     Next
    
21. Next
    
22. End Sub

复制代码

JULIALCC

朱荣兴 发表于 2015-8-19 22:38
在明细表中点击相应按钮，
我的是03版本，文件后缀为“xls”，其他版本相应修改文件后缀。

万分感谢~~~

ICHENICHEN

朱荣兴 发表于 2015-8-19 22:38
在明细表中点击相应按钮，
我的是03版本，文件后缀为“xls”，其他版本相应修改文件后缀。

感谢，我也看看。