나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 한울타리 (6650ejrwjr)

추천:  2
파일:     조회:  1940
제목:   select case에대해서 알고싶습니다...
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>
If myws1.Cells(i, 2).Offset(0, 4) = "입고" Then
           
                myws2.Cells(findchk.Row, "g") = myws2.Cells(findchk.Row, "g") + myws1.Cells(i, 2).Offset(0, 1)
           
             Else
           
                myws2.Cells(findchk.Row, "h") = myws2.Cells(findchk.Row, "h") + myws1.Cells(i, 2).Offset(0, 1)
           
             End If

항목을 추가하려면 어케해야하는지여.... 		　
[불량 게시물 신고]  
사내안녕하세요..^^

미흡하지만 제가 답변을..

그 파일을 올려주시면 고수님들께서 답변을 해주실 것입니다..^^

..도움이 되셨기를..		08-14 (14:17)
ⓧ삭제 ■신고
놀란토끼안녕하세요? 아래처럼 사용하면 됩니다.

Select Case myws1.Cells(i, 2).Offset(0, 4)
   Case "입고"
      원하는 구문
   Case "출고"
     원하는 구문
   Case Else
    '원하는 구문기재
End Select

그리고 조건이 그렇게 많지 않다면 elseif구문을 조금더 추가해도 됩니다.
if 조건 then
  원하는 구문기재
elseif 조건 then
  원하는 구문
else
 원하는 구문
end if		08-14 (17:14)
ⓧ삭제 ■신고
한울타리고맙슴니다....08-14 (17:35)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-08-14(13:42)
최종수정일 : 2003-08-14(13:42)