셤보러 가셨나 모르겠네요.. 사원등급if문할때
if 사원등급="A" and 사원등급="B" then

이렇게 따로 해줘야 하더라구여

글구 select문 마지막에도..
case else를 해주시는게 좋을거 같은데여^^

저도 오늘 오후 셤이라서..
잘 보세염^^

>>If 사원등급부분에 자꾸 런타임 오류 13이 나요..
>>빨리좀 답해주세요..
>>이제 곧 셤보러가야하는데..ㅜ.ㅜ
>>
>>
>>Option Explicit
>>
>>Sub Main()
>>Dim 인수1, 인수2, i, 버퍼 As Variant
>>Dim 거래등급, 할인포인트, 사원등급, 이익포인트, 합계 As Variant
>>
>>인수1 = Val(Left(Command, InStr(Command, " ")))
>>인수2 = Val(Mid(Command, InStr(Command, " ")))
>>
>>
>>Open "c:\c_it\data\abc2125.txt" For Input As #1
>>
>> For i = 1 To 인수2
>> Line Input #1, 버퍼
>> If i >= 인수1 Then
>>
>> 사원등급 = Trim(Mid(버퍼, 23, 1))
>> 거래등급 = Trim(Mid(버퍼, 13, 1))
>> 이익포인트 = Val(Mid(버퍼, 24, 3))
>>
>> Select Case 거래등급
>> Case "A"
>> 할인포인트 = 5
>> Case "B"
>> 할인포인트 = 15
>> Case "C"
>> 할인포인트 = 20
>>
>> End Select
>>
>> If 사원등급 = "A" And "B" Then
>>
>> 합계 = 합계 + 이익포인트 + 할인포인트
>>
>> End If
>>
>> End If
>>
>>
>>
>> Next i
>>
>>
>>Close #1
>>
>>
>>Open "c:\c_it\data\ans4.txt" For Output As #2
>>Print #2, 인수1, 인수2, 합계
>>
>>
>>
>>
>>Close #2
>>
>>
>>End Sub
>>