求一个没有出现数字的自定义函数

jinru

求一个没有出现数字的自定义函数，
见附件，谢谢！！！
没出现过的数字的自定义函数.rar (2.83 KB, 下载次数: 24)

2012-2-17 20:20 上传

点击文件名下载附件

hrpotter

1. Sub 提取()
   
2.     Dim i, j, k, l As Byte
   
3.     Dim d As Object
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     Dim ar, br()
   
6.     ar = Range("a2:e" & Range("e65536").End(xlUp).Row)
   
7.     ReDim br(1 To UBound(ar), 1 To 10)
   
8.     For i = 1 To UBound(ar)
   
9.         For k = 1 To 5
   
10.             d(Val(ar(i, k))) = ""
    
11.         Next
    
12.         For j = 0 To 9
    
13.             If Not d.exists(j) Then
    
14.                 l = l + 1
    
15.                 br(i, l) = j
    
16.             End If
    
17.         Next
    
18.         l = 0
    
19.         d.RemoveAll
    
20.     Next
    
21.     Range("g2").Resize(UBound(ar), 10).ClearContents
    
22.     Range("g2").Resize(UBound(ar), 10) = br
    
23. End Sub

复制代码

没出现过的数字的自定义函数.rar (10.09 KB, 下载次数: 4)

2012-2-17 21:29 上传

点击文件名下载附件

happym8888

自定义函数FanX()填充其他单元格的值（只支持一行一行下拉，不支持一次下拉到底）。

1. Public myc, n As Integer
   
2. Public Function FanX(Rng As Range)
   
3. For n = 0 To 9
   
4. For Each c In Rng
   
5. If n = --c.Value Then GoTo 100
   
6. Next
   
7. FanX = n: Exit For
   
8. 100:
   
9. Next n
   
10. Set myc = New css
    
11. Set myc.sht = ActiveSheet
    
12. End Function
    
13. 
    

复制代码

1. Public WithEvents sht As Worksheet
   
2. Private Sub sht_Change(ByVal Target As Range)
   
3. Dim i As Integer, x As Integer, y As Integer
   
4. On Error GoTo ren
   
5. Set myc.sht = Nothing
   
6. Set myc = Nothing
   
7. For i = n + 1 To 9
   
8. For c = 1 To 5
   
9. a = --Cells(Target.Row, c)
   
10. If i = --Cells(Target.Row, c) Then GoTo 100
    
11. Next
    
12. x = Target.Column: y = Target.Row
    
13. k = k + 1
    
14. Cells(y, x + k) = i
    
15. 100:
    
16. Next i
    
17. ren:
    
18. End Sub
    

复制代码

自定义函数操作其他单元格.rar (10.1 KB, 下载次数: 5)

2012-2-18 13:00 上传

点击文件名下载附件

fjmxwrs

1. Function Wicux(Rng As Range, i As Long)
   
2.     Dim x%, arr, arr1
   
3.     Dim Dic As Object
   
4.     Set Dic = CreateObject("scripting.dictionary")
   
5.     arr = Rng
   
6.     For x = 0 To 9
   
7.         Dic(x) = x
   
8.     Next x
   
9.     For x = 1 To UBound(arr, 2)
   
10.         If Dic.exists(Val(arr(1, x))) Then Dic.Remove Val(arr(1, x))
    
11.     Next x
    
12.     arr1 = Dic.keys
    
13.     Wicux = ""
    
14.     If i <= Dic.Count Then Wicux = arr1(i - 1)
    
15. End Function

复制代码

自定义函数，右拉下拉完成
如附件所示
没出现过的数字的自定义函数.zip (10.29 KB, 下载次数: 5)

2012-2-18 05:18 上传

点击文件名下载附件

variable

学习                        

上清宫主

第一次写这样的“数组函数”

jinru

谢谢fjmxwrs 和上清宫主 及happym8888
谢谢谢谢谢谢谢谢谢谢