我有一个组合框" list_cible& quot;值为:local SAP-A246,或PAP-SAP-K207。
我想只使用"-"后面的最后一个数字(A246或K207)来运行另一个子程序。
我正在寻找像SUBTSTR(Me.Liste_cible.Value,”-“,-1)
Private Sub liste_cible_Change()
Dim argString As String
If Not Worksheets("1 - Feuille de Suivi Commercial").Liste_cible.MatchFound And Worksheets("1 -
Feuille de Suivi Commercial").Liste_cible <> "" Then
MsgBox "Saisie impossible, ce partenaire cible n'existe pas !", , "Contrôle"
Worksheets("1 - Feuille de Suivi Commercial").Liste_cible = ""
Else
Worksheets("1 - Feuille de Suivi Commercial").Cells(5, 17) = Worksheets("1 - Feuille de Suivi
Commercial").Liste_cible
MsgBox Me.Liste_cible.Value
argString = SUBTSTR(Me.Liste_cible.Value,”-“,-1) ??
GET_GROUPE_GESTION_CIBLE (argString)
INFO_PROTO1 (argString)
INFO_PROTO2 (argString)
End If
End Sub
Me.Liste_cible消息。值工作正确,但我不知道如何获得argString。
这应该能奏效:
argString = Mid(Me.Liste_cible.Value, InStrRev(Me.Liste_cible.Value,"-") + 1)