|
|
|
|
|
|
사용자 폼에서...
텍스트박스에 있는 내용을 d열에서 찾아서... 내용이 동일하면 지우려 합니다..
단 내용만 지우는게 아니라... 열자체를 지우려합니다....
코드가 어떻게 되는지 알려주셨음 합니다.
여러분들의 많은 지식 부탁드립니다.
항상행복한 미소가 함께하길....
==============[궁그미님 글에 대한 답변입니다]==============
안녕하세요
텍스트박스의 이름은 'txt1', 버튼의 이름은 'btn1', 작업하려는 시트이름은 'Data1'라고하고 'txt1'에 내용을 입력하고 'btn1'를 클릭하면 해당내용을 'Data1'의 'D'열에서 찾아서 해당열 전체를 삭제하는 클릭이벤트 프로시저입니다.
Sub btn1_Click()
Dim strA As String
Dim Sht As WorkSheet
Dim Rng As Range
Dim YesOk As Boolean
strA = txt1.Value
Set Sht = WorkSheets("Data1")
For Each Rng In Sht.Range("D:D").SpecialCells(xlTextValues)
If Rng = strA Then
Rng.EntireRow.Delete
YesOk = True
End If
Next Rng
If YesOk = False Then
Msgbox "원하는 자료가 없어서 삭제할 수 없읍니다."
End If
End Sub |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2003-08-14(10:08)
최종수정일 : 2003-08-14(10:08) |
|
|
|
|