有一工资计算表，计算结果要求用VBA来完成

lsc900707

a18b88 发表于 2018-3-28 17:49
谢谢您版主，我这下载完还是不能解压，提示：没有找到压缩文件

我在单位上发的帖，回到家看你的信息后测试下载解压正常的！

a18b88

谢谢您lsc900707版主！谢谢您的一次次的回复，真诚的感谢！可否把代码直接贴出来，我把代码直接复制到工作表里就行了。

lsc900707

a18b88 发表于 2018-3-29 05:15
谢谢您lsc900707版主！谢谢您的一次次的回复，真诚的感谢！可否把代码直接贴出来，我把代码直接复制到工作 ...

代码放模块里就好：

1. Sub gj23w98()
   
2.     r = Cells(Rows.Count, 4).End(3).Row
   
3.     arr = Range("a4:s" & r)
   
4.     For i = 1 To UBound(arr)
   
5.         If Len(arr(i, 4)) Then
   
6.            arr(i, 7) = arr(i, 5) * arr(i, 6)
   
7.            arr(i, 10) = arr(i, 8) * arr(i, 9)
   
8.            arr(i, 13) = arr(i, 11) * arr(i, 12)
   
9.            arr(i, 19) = arr(i, 7) + arr(i, 10) + arr(i, 13) + arr(i, 14) + arr(i, 15) - (arr(i, 16) + arr(i, 17) + arr(i, 18))
   
10.         End If
    
11.     Next
    
12.     Range("a4:s" & r) = arr
    
13. End Sub
    

复制代码

a18b88

做好了，谢谢您 lsc900707版主。