[已解决]如何让函数带上参数

linbohen

请各位看看，如何让这个函数带上如图红色框里的参数，实现任意工作表里任意列的统计。谢谢。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-6-27 12:49

1. Function tongji(sht1 As Worksheet, sht2 As Worksheet, col2 As Long)
   
2.     Dim Sheet1 As Worksheet, Sheet2 As Worksheet
   
3.     Dim mycol As Integer, cheng As Integer
   
4.     tongji = " "
   
5.     If col2 <= 0 Or col2 > Columns.Count Then Exit Function
   
6.    
   
7.     For mycol = 1 To 500
   
8.         If Sheet1.Cells(mycol, col2).Value <> " " Then
   
9.             cheng = sht1.Cells(mycol, col2).Value * sht1.Cells(mycol, 3).Value
   
10.             tongji = tongji & " " & sht1.Cells(mycol, 1).Value & sht1.Cells(mycol, col2).Value & "*" & sht1.Cells(mycol, 3).Value & "=" & CStr(cheng)
    
11.         End If
    
12.     Next mycol
    
13. End Function

复制代码

楼主自己测试吧。

跳转到最佳答案楼层

hwc2ycy

你的函数返回结果也不需要用？
那这统计有何用？
另外sheet2也没见有用到。

hwc2ycy

1. Function tongji(sht1 As Worksheet, sht2 As Worksheet, col2 As Long)
   
2.     Dim Sheet1 As Worksheet, Sheet2 As Worksheet
   
3.     Dim mycol As Integer, cheng As Integer
   
4.     tongji = " "
   
5.     If col2 <= 0 Or col2 > Columns.Count Then Exit Function
   
6.    
   
7.     For mycol = 1 To 500
   
8.         If Sheet1.Cells(mycol, col2).Value <> " " Then
   
9.             cheng = sht1.Cells(mycol, col2).Value * sht1.Cells(mycol, 3).Value
   
10.             tongji = tongji & " " & sht1.Cells(mycol, 1).Value & sht1.Cells(mycol, col2).Value & "*" & sht1.Cells(mycol, 3).Value & "=" & CStr(cheng)
    
11.         End If
    
12.     Next mycol
    
13. End Function

复制代码

楼主自己测试吧。

linbohen

tongji(sheet1,2)
这样调用对么？
为什么显示#VALUE!