函数里面如何遍历

sxfxtf

最近想写写面像对象,开始练起了自定义函数FUNCTION
想实现效果是,定义一个区间写入数组,然后一个个元素拿出来做匹配,如果符合条件则留下,如果不符合条件则为0.
但是总是提示参数不可选.烦请指正下

1. Sub detention()
   
2. Call judge(Range("k1:k5"))
   
3. End Sub
   
4. 
   
5. Function judge(rng As Range) As String
   
6. For Each STR In Application.Transpose(rng)
   
7. If STR = "D20" Or STR = "22GP" Or STR = "22G1" Then
   
8. STR = "D20"
   
9. ElseIf STR = "D40" Or STR = "42GP" Then
   
10. STR = "D40"
    
11. ElseIf STR = "D40H" Or STR = "45GP" Or STR = "40HC" Then
    
12. STR = "D40H"
    
13. ElseIf STR = "D45H" Or STR = "45HC" Then
    
14. STR = "D45H"
    
15. Else
    
16. STR = "请查看箱型是否错误"
    
17. End If
    
18. Next
    
19. STR = judge
    
20. End Function

复制代码

活在理想的世界

自定义函数一般是先写一个SUB，然后把这个SUB改成Function过程。

你可以先写一个SUB，看看。

一般这种遍历都是在数组里面完成的。

活在理想的世界

你的这个判断用的太多了，根据经验一个自定义函数是不可能有这么多的判断过程的。

活在理想的世界

或者你模拟一个附件，让别人帮你谢谢看，而不是贴一段代码讲一个故事，然后要别人把你的想法用代码写出来，毕竟你讲的跟别人理解的不一定是一回事。

sxfxtf

活在理想的世界 发表于 2018-7-1 16:44
自定义函数一般是先写一个SUB，然后把这个SUB改成Function过程。

你可以先写一个SUB，看看。

sub function 我懂.就是如何把一个数组作为实参传导进去搞不定

不知道为什么

sxfxtf 发表于 2018-7-1 17:26
sub function 我懂.就是如何把一个数组作为实参传导进去搞不定

其它不说，你最后一句赋值就错了

活在理想的世界

sxfxtf 发表于 2018-7-1 17:26
sub function 我懂.就是如何把一个数组作为实参传导进去搞不定

我不是说了吗？如果不知道怎么做，那么你可以模拟个附件出来，让别人写一个给你看，然后你再研究。

duquancai

function不是那么简单的！！！很重要但是也是很深奥！！！
1.形参、实参

2.实参向形参传递过程（值传递、指针传递、VBA不支持的回调函数）

3.函数内部的变量（局部变量、静态变量）以及全局变量

4.函数的返回值（返回单一的值、返回指针、用参数返回）及没有返回值

等等还有其它如：函数的定义、函数过程实现、函数的调用（包括函数递归调用！）

这些相关概念一时半会恐怕搞不清楚吧！

一把小刀闯天下

'可能是这意思？

Option Explicit

Sub detention()
  Dim arr
  arr = [k1:k5]: Call judge(arr)
  [k1].Offset(, UBound(arr, 2)).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End Sub

Function judge(arr)
  Dim i, j
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
    If arr(i, j) = "D20" Or arr(i, j) = "22GP" Or arr(i, j) = "22G1" Then
      arr(i, j) = "D20"
    ElseIf arr(i, j) = "D40" Or arr(i, j) = "42GP" Then
      arr(i, j) = "D40"
    ElseIf arr(i, j) = "D40H" Or arr(i, j) = "45GP" Or arr(i, j) = "40HC" Then
      arr(i, j) = "D40H"
    ElseIf arr(i, j) = "D45H" Or arr(i, j) = "45HC" Then
      arr(i, j) = "D45H"
    Else
      arr(i, j) = "请查看箱型是否错误"
    End If
  Next j, i
End Function

sxfxtf

活在理想的世界 发表于 2018-7-1 18:12
我不是说了吗？如果不知道怎么做，那么你可以模拟个附件出来，让别人写一个给你看，然后你再研究。

我先做个面向过程的SUB出来再上传