Excel Пользовательская функция - поле соответствует определенным критериям

Question

Новое в vba - я стараюсь сделать этот очень длинный оператор if в пользовательской функции. Функция будет проверять, соответствует ли поле правильному формату 2 буквы, 2 числа, знак подчеркивания, 1 буква, 2 числа.

=IF(AND(AND(CODE(MID(A2,1,1))>64,CODE(MID(A2,1,1))<91),AND(CODE(MID(A2,2,1))>64,CODE(MID(A2,2,1))<91),AND(CODE(MID(A2,3,1))>47,CODE(MID(A2,3,1))<57),AND(CODE(MID(A2,4,1))>47,CODE(MID(A2,4,1))<57),CODE(MID(A2,5,1))=95,AND(CODE(MID(A2,6,1))>64,CODE(MID(A2,6,1))<91),AND(CODE(MID(A2,7,1))>47,CODE(MID(A2,7,1))<57),AND(CODE(MID(A2,8,1))>47,CODE(MID(A2,8,1))<57),"Good","Bad Syntax") 

Пример А2 будет AA01_A05

код ниже - крылатый его в конце концов. Любая помощь будет оценена по достоинству.

Function bincheck(strValue As String) As Boolean 

Dim AislePos As Integer, Rackno As Integer, Udr As Integer, ShelfPos As  Integer, BinNo As Integer 
Dim TrueAisle As Boolean, TrueRack As Boolean, TrueUdr As Boolean, TrueShelf As Boolean, TrueBin As Boolean 

For AislePos = 1 To 2 
    Select Case Asc(Mid(strValue, AislePos, 1)) 
     Case 65 To 90 
      TrueAisle = True 
     Case Else 
      TrueAisle = False 
      Exit For 
    End Select 
Next 
For Rackno = 3 To 4 
    Select Case Asc(Mid(strValue, Rackno, 1)) 
     Case 48 To 56 
      TrueRack = True 
     Case Else 
      TrueRack = False 
      Exit For 
    End Select 
Next 
For Udr = 5 To 5 
    Select Case Asc(Mid(strValue, Udr, 1)) 
     Case Is = 95 
      TrueUdr = True 
     Case Else 
      TrueUdr = False 
      Exit For 
    End Select 
Next 
For ShelfPos = 6 To 6 
    Select Case Asc(Mid(strValue, ShelfPos, 1)) 
     Case 65 To 90 
      TrueShelf = True 
     Case Else 
      TrueShelf = False 
      Exit For 
    End Select 
Next 
For BinNo = 7 To 8 
    Select Case Asc(Mid(strValue, BinNo, 1)) 
     Case 48 To 56 
      TrueBin = True 
     Case Else 
      TrueBin = False 
      Exit For 
    End Select 
Next 
Select Case bincheck 
    Case TrueRack = True And TrueAisle = True And TrueUdr = True And TrueShelf = True And TrueBin = True 
bincheck = "Good" 
    Case Else 
bincheck = "Bad" 
End Select 
End Function 

Answer 1

Все это может быть сведено к Как заявление

Function bincheck(strValue As String) As Boolean 
    bincheck = strValue LIKE "[A-Z][A-Z]##_[A-Z]##" 
End Function 

Answer 2

Я, кажется, что последнее утверждение Select Case,

Select Case bincheck 
    Case TrueRack = True And TrueAisle = True And TrueUdr = True And TrueShelf = True And TrueBin = True 
bincheck = "Good" 
    Case Else 
bincheck = "Bad" 
End Select 

... было бы лучше, как,

bincheck = TrueRack And TrueAisle And TrueUdr And TrueShelf And TrueBin 

Вам не нужно проверить, если булева равен правда. Это уже правда или ложно.

Проверка длины строки, переданной в функцию, может быть лучше всего в качестве общего условия «обертывания» If. Если это не выполняется, то ни одно из булевых элементов не будет установлено после значения объявления по умолчанию False (т. Е. Когда они объявлены как логические, они начинают жизнь как False).

Function bincheck(strValue As String) As Boolean 

    Dim pos As Integer 
    Dim TrueAisle As Boolean, TrueRack As Boolean, TrueUdr As Boolean, TrueShelf As Boolean, TrueBin As Boolean 

    If Len(strValue) = 8 Then 
     For pos = 1 To 2 
      Select Case Asc(Mid(strValue, pos , 1)) 
       Case 65 To 90 
        TrueAisle = True 
       Case Else 
        TrueAisle = False 
        Exit For 
      End Select 
     Next 
     For pos = 3 To 4 
      Select Case Asc(Mid(strValue, pos , 1)) 
       Case 48 To 56 
        TrueRack = True 
       Case Else 
        TrueRack = False 
        Exit For 
      End Select 
     Next 
     For pos = 5 To 5 
      Select Case Asc(Mid(strValue, pos , 1)) 
       Case Is = 95 
        TrueUdr = True 
       Case Else 
        TrueUdr = False 
        Exit For 
      End Select 
     Next 
     For pos = 6 To 6 
      Select Case Asc(Mid(strValue, pos , 1)) 
       Case 65 To 90 
        TrueShelf = True 
       Case Else 
        TrueShelf = False 
        Exit For 
      End Select 
     Next 
     For pos = 7 To 8 
      Select Case Asc(Mid(strValue, pos , 1)) 
       Case 48 To 56 
        TrueBin = True 
       Case Else 
        TrueBin = False 
        Exit For 
      End Select 
     Next 
    End If 

    bincheck = TrueRack And TrueAisle And TrueUdr And TrueShelf And TrueBin 

End Function 

Answer 3

Если вы хотите, чтобы функция возвращала текст, например, как «хорошо» или «плохо», то вы первая линия должна быть

Function bincheck(strValue As String) As String 

Если вы хотите вернуть двоичное значение (в качестве имени переменной предполагает), то вы можете оставить первую строку как

Function bincheck(strValue As String) As Boolean 

Но переменная bincheck в конце должна быть скорректирована, чтобы вернуть двоичное значение, такое как True или False:

bincheck = True 
    Case Else 
bincheck = False 

Но имя функции является bincheck это может раздражать, и я хотел бы предложить альтернативное название для функции, такие как:

Function IsTheStringFormattedCorrectly(strValue As String) As Boolean 

Затем возвращаемое значение True или False может быть лучше понимать.