VBA的坑，坑2，VBA给多个变量赋值，千万不要这样赋值 n1 = n2 = n3 = 1，错误！

1连续声明多个变量的作用域，这样写没问题

Private a1, a2, a3, a4a, a50
Private s1, s2, s3

2 如果是，给多个变量赋值，千万别这样写 ： n1 = n2 = n3 

这样写，一个变量的赋值都不会对，全是错误的

Sub te1()
'坑1， 还有赋值不能多个，只有 private 等范围声明是可以这样的
'ee1 = ee2 = ee3 = 0 '坑？
n1 = n2 = n3 = 1


Debug.Print "n1=" & n1
Debug.Print "n2=" & n2
Debug.Print "n3=" & n3


h1 = 2
h2 = 2
h3 = 2


Debug.Print "h1=" & h1
Debug.Print "h2=" & h2
Debug.Print "h3=" & h3


End Sub

 

3 写个例子试验下

Sub te2()
'重构，重新写

n1 = n2 = n3 = 1
fff1 (n1)
fff1 (n2)
fff1 (n3)

h1 = 2
h2 = 2
h3 = 2
fff1 (h1)
fff1 (h2)
fff1 (h3)

End Sub


Function fff1(a)
   Debug.Print "=" & a
End Function