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