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

작성자:  

 박혜성 (neo6357)

추천:  2
파일:     조회:  1909
제목:   코드해석좀
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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...): 

* 아래줄에 질문을 작성하세요 >>

여기 아래 구문에서요

Private Sub ComboBox1_Change()
  Dim intA As Integer
  Dim Sht As Worksheet
  Dim Rng As Range
  Dim strA As String
  Set Sht = Worksheets("단가")
  intA = Sht.Range("A1").CurrentRegion.Rows.Count
  strA = Trim(ComboBox1.Value)
  Set Rng = Sht.Range("A2:A" & intA).Find(strA)
  If Not Rng Is Nothing Then
    TextBox2 = Rng.Offset(0, 1)
  Else
    TextBox2 = 0
  End If
End Sub

아홉번째 줄에 있는Set Rng = Sht.Range("A2:A" & intA).Find(strA)에서
"Range("A2:A" & int A)" 요부분이 이해가 안가는데 뭘 의미하는건지 좀 알려주세요
범위설정부분에서 (A2:A" & int A) 이렇게 한것도 이해가 안가고.. ㅡㅡ?
아 힘들다.

부탁드립니다.

그리고 쫄따구님 계시면 좀 부탁드릴게요
 
[불량 게시물 신고]  
신용남안녕하세여..
intA=Sht.Range("A1").CurrentRegion.Rows.Count
이렇게 변수 intA에 행 개수를... 만약 행 개수가 5라면
"A2:A" & intA   << 이거는 "A2:A5" 가 되겠지요
그리고 Find로 변수 StrA 값을 찾는것 같은데요..
실력이 형편 없지만 도움이 되시기를..
08-29 (19:11)
삭제 ■신고
졸따구안녕하세요?

intA = Sht.Range("A1").CurrentRegion.Rows.Count -> 'intA' 변수에 'Sht'워크시트변수의 'A1'를 포함한 현재자료가 들어있는 범위의 줄수를 세어서 대입하라(마지막 행의 번호를 기록)

Set Rng=... 이 부분은 해당시트의 "A2:A" & intA(이 부분은 위의 설명에서 세어놓았던 자료가 들어있는 마지막 행 번호)중에서 'strA'변수의 값을 찾아서 'Rng'라는 Range개체에 대입하라는 뜻입니다.

'CurrentRegion'속성을 알고자 하시면 'A1'셀에 셀 포인터를 놓고 'Ctrl + Shift + *'(8자 위에 있는 별표)를 한꺼번에 눌러보세요.

그럼...
08-29 (19:13)
삭제 ■신고
        
  

작성일 : 2003-08-29(18:32)
최종수정일 : 2003-08-29(18:32)