作者EricTao ()
看板Visual_Basic
标题[VBA ] [问题] 写在EXCEL的一个比对程式
时间Thu Nov 26 14:13:02 2009
小弟是刚接触VB的新手 有一点C的基础
这个程式的目的是当使用者输入一组乐透号码(6/49)
程式会比对表格中的另一组号码(表格已建立)
一次只比对一组即输出
---以下为程式---
Function Lott(a, b, c, d, e, f, u, v, w, x, y, z)
count = 0
Dim n(12)
n1 = a
n2 = b
n3 = c
n4 = d
n5 = e
n6 = f
n7 = u
n8 = v
n9 = w
n10 = x
n11 = y
n12 = z
For i = 1 To 6
For j = 7 To 12
If n(i) = n(j) Then
count = count + 1
End If
Next j
Next i
Lott(a, b, c, d, e, f, u, v, w, x, y, z) = count
End Function
---
输入端前六码为表格中的号码，後六码为一组固定数字
皆由表格中输入，例: {=Lott(D3:I3,D4:I4)}
不过都是#VALUE! (Q__Q
请问我的程式有什麽错误吗?
再请问 在输入端的12个变数可以直接宣告成Lott(n1,...,n12)吗?
麻烦帮在下看一下，谢谢<(_ _)>
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.119.163.183
1F：推 ClubT:n(0)=a 11/26 14:32
2F：→ EricTao:是说阵列也要从0开始吗? 11/26 15:00
3F：推 sueadolph:有C的底子? 1楼的意思是回答 你给定N阵列值的方式有误 11/26 23:03
4F：→ sueadolph:可以直接宣告成Lott(n1,...,n12)→ 可以，不过学C的应 11/26 23:05
5F：→ sueadolph:该反而不会这种写法吧... 11/26 23:06