在另一个子例程中运行一个子例程-编译错误：参数不是可选的

由 sit_in发布于 2020-05-09 13:35:34

Sub StoreQA(ShapeClicked As Shape)
MsgBox "yeee"
End Sub

Sub ThisIsToBeRun()
StoreQA
End Sub

I get Compile Error: Argument not optional. I tried mentioning StoreQA(ShapeClicked As Shape) but that didn't help either.

自娱自乐

2020-05-09 13:35:34

参数不可选

You are defining a parameter here, named ShapeClicked:

Sub StoreQA(ShapeClicked As Shape)

Because the parameter isn't Optional, an argument must be provided for this parameter by any code that means to invoke this StoreQA procedure:

' gets the first Shape in Sheet1 (assumes it exists), then passes it to StoreQA:
StoreQA Sheet1.Shapes(1)

如果不需要该参数，请将其删除：

Sub StoreQA()

If it's needed in some places but not in others, consider making it Optional:

Sub StoreQA(Optional ByVal ShapeClicked As Shape)

然后，您可以合法地调用该过程而无需提供任何参数：

StoreQA '<~ compiles fine now

可选注意事项

If the StoreQA procedure receives an Optional parameter, it needs to verify whether it received a valid object reference before using it - otherwise expect problems:

Sub StoreQA(Optional ByVal ShapeClicked As Shape)
    If ShapeClicked Is Nothing Then
        ' argument was not provided *or 'Nothing' was supplied*
        ''Debug.Print ShapeClicked.Name '<~ error 91
    Else
        ' ShapeClicked is holding a valid Shape object reference
        Debug.Print ShapeClicked.Name
    End If
End Sub

If Optional parameters are declared As Variant (explicitly or not), then you can use the IsMissing function to verify whether an optional parameter was supplied - useful when Nothing is also a valid, useful value to receive (for object references anyway - for plain value types it can remove the need to resort magic/hard-coded "invalid" values):

Sub StoreQA(Optional ByVal ShapeClicked As Variant)
    If IsMissing(ShapeClicked) Then '<~ only valid with an Optional+Variant parameter
        ' argument was not provided
        ''Debug.Print ShapeClicked.Name '<~ error 91
    ElseIf Not ShapedClicked Is Nothing Then
        ' ShapeClicked is holding a valid Shape object reference
        Debug.Print ShapeClicked.Name
    Else
        ' 'Nothing' was explicitly supplied
        '...
    End If
End Sub

sit_in

这家伙很懒，什么都没留下

积分
0
话题
0
评论
3339
注册排名
1720