Private Sub Command1_Click()
Dim a As Long, m As Long
m = 100
a = 10
mysub1 m, 3   '有参数
mysub1 a     '没有参数
End Sub

Private Sub mysub1(ByVal n As Long, Optional val)   '这里怎么把 ByVal n As Long 改成 ByRef n As Long 效果一样?
n = n + 9
Dim s As String
If IsMissing(val) Then
s = "not pass 没有参数"
Else
s = "ok 有参数"
End If
MsgBox n & "," & s
End Sub

Private Sub mysub1(n As Long, Optional val)     '这里怎么把 ByVal n As Long 改成 ByRef n As Long 效果一样?

ByVal是传递值，源数据不会被修改，你可以把这个值当作自己的局部变量来使用，ByRef是传递地址，源数据可能被修改，你对这个变量的操作将对你传入的那个变量产生影响，就像指针的感觉。  
看看下面的例子：
Private Sub Command3_Click()
 
A = 1
B = 2

Call AAA(A, B)
Print A, B  '得到的结果是2    3  (形参的改变影响到了实参)
Call BBB(A, B)
Print A, B '得到的结果跟上面的一样,2    3(形参的改变并没有影响到这个实参)
 
End Sub

Sub BBB(ByVal I As Integer, ByVal J As Integer)
I = I + 1
J = J + 1
End Sub
Sub AAA(I As Integer, J As Integer) '默认,则按址传递
I = I + 1
J = J + 1
End Sub

解释的很清楚~！

支持一下，

谢谢。