如果包含並且如果不包含冒號，請選擇編號

如果字符串中存在冒號，我有一個返回數字的IF語句。有時候字符串不包含冒號符號。我正在尋找一個else語句，如果字符串中沒有冒號，將選擇唯一的數字「45061」。A =當字符串有冒號時有效，但如果字符串沒有冒號結腸。如果包含並且如果不包含冒號，請選擇編號

String/Text = OM_Account_Master_Slave~Account CP~3712011:Shared-001

String/Text = OM_Account_Master_Slave~Account CP~45061Shared-001

if(contains,":",Substring(Abbrev(),1,Subtract(Length(Abbrev()),11)))

結果= 3712011：共享-001

if(contains,":",Substring(Abbrev(),1,Subtract(Length(Abbrev()),11))) 
else

來源

2016-07-22 Cheslin

這與excel-vba有什麼關係？無論哪種方式，您是否可以避免使用「〜」的實例或對「〜」字符串進行反向搜索，然後存儲該號碼直至遇到字母？ – tjb1

考慮以下用戶定義函數：

Public Function GetNumber(r As Range) As Variant 
    Dim v As String, capture As Boolean 
    Dim i As Long, t As String 

    v = r.Value 
    GetNumber = "" 
    If v = "" Then Exit Function 
    t = "" 
    capture = False 

    For i = 1 To Len(v) 
     m = Mid(v, i, 1) 
     If IsNumeric(m) Then 
      t = t & m 
      capture = True 
     Else 
      If capture Then Exit For 
     End If 
    Next i 

    If Len(t) > 0 Then 
     GetNumber = CLng(t) 
    End If 
End Function