Sub test() Dim strTarget As String, strArray As Variant strTarget = "Project_No = ""P2012001"" AND Section = ""Airframe""" strArray = Split(strTarget, """")
If InStr(strTarget, "AND") > 0 Then If Project_No = strArray(1) And Section = strArray(3) Then ' 기능구현 End If ElseIf InStr(strTarget, "OR") > 0 Then If Project_No = strArray(1) Or Section = strArray(3) Then ' 기능구현 End If End If
엑셀대단해님..
문자열을 분리해서 코드로 반영하기 위해서는 각 문자열별로 조건문을 만들어줘야합니다.
if 문자열에 AND가 포함되어 있다면... then
A=B And C=D
End if
아래 코드를 참고하시어 응용하시면 될 것 같습니다.
Sub test()
Dim strTarget As String, strArray As Variant
strTarget = "Project_No = ""P2012001"" AND Section = ""Airframe"""
strArray = Split(strTarget, """")
If InStr(strTarget, "AND") > 0 Then
If Project_No = strArray(1) And Section = strArray(3) Then
' 기능구현
End If
ElseIf InStr(strTarget, "OR") > 0 Then
If Project_No = strArray(1) Or Section = strArray(3) Then
' 기능구현
End If
End If
End Sub
되도록이면 엑셀 파일을 첨부해주시기 바랍니다.
감사합니다.