|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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...):
* 아래줄에 질문을 작성하세요 >>
가르침 감사합니다...
한시간째 시름하고 있습니다....
아까 드린 질문의 코드를 보고 응용할라고 이리저리 돌려봤지만...
잘 안됩니다....
황기성님 말씀대로 도움말을 참조하려고도 해봤지만...이해가...잘 되지 않습니다...
제가 이런 코드를 작성해봤습니다.
Dim mysh1 As Worksheet
Dim ta1 As String
Dim to1 As Long, to2 As long, to3 As integer, i As Long
Dim findch1 As Range
Set mysh1 = Worksheets("D")
to1 = 0
to2 = 0
to3 = mysh1.Range("c3").End(xlDown).Row
ta1 = A.Text
For i = 3 To to3
Set findch1 = mysh1.Range("c:c").Find(what:=ta1)
If findch1 = Cells(i, 3) Then
to1 = Cells(i, 6) + to1
to2 = Cells(i, 19) + to2
Else
Exit Sub
End If
Next i
B.Caption = to1
C.Caption = to2
위 코드의 목적은...
D워크시트 C열에 있는 항목중 A텍스트상자의 내용과 일치하는 F열안에 있는 수량의 합을 B라벨박스,S열안에 있는 수량의 합을 C라벨박스에 각각 나타내고자 함입니다.
잘못된 부분과 제가 이해를 잘 못하고 있는 부분이라고 생각되시는 부분(? 전부다이긴 하지만...)에 대한 조언을 부탁드립니다...
그리고 "a.additem 텍스트박스이름.value"라고 코드를 입력하고 실행했는데... 오류는 안나오지만 추가가 되지는 않습니다. 왜 그럴까요?
안그래도 더운날..... 죄송합니다.... 갑갑하시져? |
|