调用函数和子模块格式的问题

Question

我将整合一些类似于结构的子对象，如下所示：

Private Sub txtToNextLVEXP_Recheck()

    If txtToNextLVEXP.Value Like "ABC" Then
        txtToNextLVEXP.Value = txtToNextLVEXP_Min & " AND " & txtToNextLVEXP_Max
        txtToNextLVEXP_check
    End If

End Sub

和

Private Sub txtTargetLV_Recheck()

    If txtTargetLV.Value Like "ABC" Then
        txtTargetLV.Value = txtTargetLV_Min & " And " & txtTargetLV_Max
        txtTargetLV_check
    End If

End Sub

txtToNextLVEXP_Min，txtToNextLVEXP_Max，txtTargetLV_Min和txtTargetLV_Max是函数； txtTargetLV和txtTargetLV是MSForms.Control； txtToNextLVEXP_check和txtTargetLV_check是子级。

是否可以将它们合并为以下内容？

Private Sub Recheck(target as MSForms.Control)

    If target.Value Like "ABC" Then
        target.Value = (target & "_Min") & " AND " & (target & "_Max")
        target & "_check"
    End If

End Sub

我坚持重命名target_Min，target_max和target_check，请提出建议，非常感谢。

Answer 1

我会选择类似的东西：

Private Sub Recheck(target As MSForms.Control)
Dim strTarget As String
    strTarget = "txtTargetLV"           'or the bellow?
    'strTarget = target.Name

With yourFormName                       'if you are not on userform, you can access controls via userform name, otherwise "Me" will do
    If target.Value Like "ABC" Then
        target.Value = .Controls(strTarget & "_Min").Value & " AND " & .Controls(strTarget & "_Max").Value
        Application.Run (strTarget & "_check")       'If you are trying to call a function based on the name of your control...
    End If
End With

End Sub

我不是100％肯定我了解您要达到的目标，但希望能对您有所帮助。

Answer 2

如果您的功能在用户窗体代码模块中，则可以执行以下操作：

Private Sub cmCheck_Click()
    Recheck Me.txtA
    Recheck Me.txtB
End Sub

Private Sub Recheck(target As MSForms.Control)
    If target.Value Like "*ABC*" Then

        'Use CallByName to run the functions...
        target.Value = CallByName(Me, target.Name & "_Min", VbMethod) & " AND " & _
                       CallByName(Me, target.Name & "_Max", VbMethod) & " (check)"

        CallByName Me, target.Name & "_check", VbMethod

    End If
End Sub

'functions being called start here....
Function txtA_Min()
    txtA_Min = 1
End Function

Function txtA_Max()
    txtA_Max = 10
End Function

Function txtB_Min()
    txtB_Min = 11
End Function

Function txtB_Max()
    txtB_Max = 20
End Function

Answer 3

很抱歉再次困扰您，callbyname函数非常出色，我的程序在与以下程序类似的结构下也可以正常工作：

Public Function InputCorr(Target As MSForms.Control) As Boolean

    If FrmAddRecord1Shown Then
        Target.Value = CallByName(frmAddRecord1, Target.Name & "_Min", VbMethod)
    ElseIf FrmAddRecord2Shown Then
        Target.Value = CallByName(frmAddRecord2, Target.Name & "_Min", VbMethod)
    End If

End Function

但我想进一步缩小它，使其类似于：

Public Function InputCorr(Target As MSForms.Control) As Boolean

    Dim UF As UserForm

    If FrmAddRecord1Shown Then
        set UF = frmAddRecord1
    ElseIf FrmAddRecord2Shown Then
        set UF = frmAddRecord2
    EndIf 

    Target.Value = CallByName(UF, Target.Name & "_Min", VbMethod)

End Function

FrmAddRecord1Shown和FrmAddRecord2Shown为布尔值，表示哪个用户窗体（frmAddRecord1或frmAddRecord2）处于活动状态。

我被困在“ UF”部分。 非常感谢您的真诚帮助。