自定义函数做工资条很简单

搁浅2008

工资条自定义函数.rar (8.28 KB, 下载次数: 87)

2011-5-10 11:37 上传

点击文件名下载附件
第二个里边的那个错误 是因为 第2个参数选到区域小了 没有重新录制

1. Function 工资条(rng As Range, rng2 As Range, rng3 As Range)
   
2.     Dim arr1
   
3.     Dim arr2
   
4.     Dim arr3
   
5.     Dim i As Long
   
6.     Dim x As Long
   
7.     arr1 = rng.Value
   
8.     arr2 = rng2.Value
   
9.     x = rng3.Row
   
10.     If x Mod (UBound(arr1) + 1) = 0 Then
    
11.         工资条 = arr2(x \ (UBound(arr1) + 1), rng3.Column) & ""
    
12.     Else
    
13.         工资条 = arr1(x Mod (UBound(arr1) + 1), rng3.Column) & ""
    
14.     End If
    
15. End Function
    

复制代码

y__zhigang

学习了，多谢楼主。。

sunjing-zxl

下载学习了，给老师顶起

wangchangjun

下载用用。