[已解决]请高手指教一下

zjsxzgx

删除按钮的代码有错  请高手指教一下

fZtsV6w8.rar (15.54 KB, 下载次数: 0)

2010-2-9 13:19 上传

点击文件名下载附件
请高手指教一下

最佳答案

月排行榜 / 总排行榜

喜多多

2010-2-9 14:55

Private Sub CommandButton2_Click()
Dim Xulie As String
    Dim n As Long
    Dim Flag As Boolean   '判断是否找到
    Flag = False
   
    n = 2
    With Sheets("数据库")
         Xulie = Cells(4, 3)
    Do While .Cells(n, 1) <> ""
        If .Cells(n, 1) = Xulie Then
        .Rows(n).Delete Shift:=xlUp
        Range("C4:C17").ClearContents
        Range("C4").Select
        Flag = True
        Exit Do
        End If
        n = n + 1
      Loop
    End With
If Flag = False Then MsgBox "  对不起 没有找到！"
End Sub

[此贴子已经被作者于2010-2-9 14:57:31编辑过]

跳转到最佳答案楼层

喜多多

Sheets("数据库").Select

没有数据库这张表

zjsxzgx

有的啊 ，只不过是隐藏了

喜多多

说错了，汗。没认真看，对不起了。我知道了，要把sheets("数据库").visible=true

zjsxzgx

这样还是无法删除下面的一行东西啊

喜多多

Private Sub CommandButton2_Click()
Dim Xulie As String
    Dim n As Long
    Dim Flag As Boolean   '判断是否找到
    Flag = False
   
    n = 2
    With Sheets("数据库")
         Xulie = Cells(4, 3)
    Do While .Cells(n, 1) <> ""
        If .Cells(n, 1) = Xulie Then
        .Rows(n).Delete Shift:=xlUp
        Range("C4:C17").ClearContents
        Range("C4").Select
        Flag = True
        Exit Do
        End If
        n = n + 1
      Loop
    End With
If Flag = False Then MsgBox "  对不起 没有找到！"
End Sub

[此贴子已经被作者于2010-2-9 14:57:31编辑过]

喜多多

你写的东西不太规范，帮你改一下，思路还是你的