作者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