从 ComboBox 选择中解析子字符串

Question

我有一个组合框“Liste_cible”，其值如下：BOCAL 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

MsgBox Me.Liste_cible.Value 工作正常，但我不知道如何获取 argString。

Answer 1

这应该可以解决问题：

argString = Mid(Me.Liste_cible.Value, InStrRev(Me.Liste_cible.Value,"-") + 1)

从 ComboBox 选择中解析子字符串

Parse a substring from ComboBox selection

excel

vba

combobox