|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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 CommandButton1_Click()
'Dim a
'a = 2
'With Worksheets("sheet2")
'Do While .Cells(a, 1).Value <> ""
'If ListBox1.Value = .Cells(a, 1).Value Then
'.Rows(a).Delete
'End If
'a = a + 1
'Loop
'End With
Dim i As Integer
With Me.ListBox1
i = .ListIndex
If i = -1 Then
MsgBox "목록상자에서 삭제할 아이템을 선택하십시오!", vbExclamation, "MagicSheet & 엑사모"
Else
i = i + 1
Range(.RowSource).Cells(i, 1).EntireRow.Delete
End If
End With
End Sub
그럼...행운이 있으시길...! |
|