이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
![[레벨:3]](http://abyul.com/zbxe/modules/point/icons/default/3.gif "포인트:820point (1%), 레벨:3/30"){kind=icon}
엑셀대단해한가지 더 있습니다.변수 처리에 관한 것인데요, 예를 들어 아래와 같은 경우에 가능한 방법이 있는지 알고 싶네요.
아래와 같은 문자열이 있습니다.Project_No = "P2012001" AND Section = "Airframe"
이걸 파싱하여 각 컬럼명과 조건문, 비교연산자, 논리연산자 등으로 구분하여 배열에 넣고 If Project_No = "P2012001" AND "Section = "Airframe" then ' 기능구현End if이런 식으로 If 문이 작동할 수 있도록 조건문을 변수화 하고 싶습니다만 가능한 방법이 있을까요?아별님의 고견을 부탁 드립니다.
감사합니다.
아래와 같은 문자열이 있습니다.Project_No = "P2012001" AND Section = "Airframe"
이걸 파싱하여 각 컬럼명과 조건문, 비교연산자, 논리연산자 등으로 구분하여 배열에 넣고 If Project_No = "P2012001" AND "Section = "Airframe" then ' 기능구현End if이런 식으로 If 문이 작동할 수 있도록 조건문을 변수화 하고 싶습니다만 가능한 방법이 있을까요?아별님의 고견을 부탁 드립니다.
감사합니다.
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:142053point, 레벨:30/30"){kind=icon}
아별
엑셀대단해님..
문자열을 분리해서 코드로 반영하기 위해서는 각 문자열별로 조건문을 만들어줘야합니다.
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
되도록이면 엑셀 파일을 첨부해주시기 바랍니다.
감사합니다.