|
実際いくつ参照渡しで指定しようとしているのでしょうか?
(配列を使うべきなんじゃ)
Sub hoge(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z)
a = 1
b = 2
c = 3
d = 4
e = 5
f = 6
g = 7
h = 8
i = 9
j = 10
k = 11
l = 12
m = 13
n = 14
o = 15
p = 16
q = 17
r = 18
s = 19
t = 20
u = 21
v = 22
w = 23
x = 24
y = 25
z = 26
End Sub
Sub test()
Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
hoge a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z
Debug.Print a
Debug.Print b
Debug.Print c
Debug.Print d
Debug.Print e
Debug.Print f
Debug.Print g
Debug.Print h
Debug.Print i
Debug.Print j
Debug.Print k
Debug.Print l
Debug.Print m
Debug.Print n
Debug.Print o
Debug.Print p
Debug.Print q
Debug.Print r
Debug.Print s
Debug.Print t
Debug.Print u
Debug.Print v
Debug.Print w
Debug.Print x
Debug.Print y
Debug.Print z
End Sub
|
|