[已解决]如何删除对应的行

hytsky

如何在调出来的窗体中当选完所有选项以后点击删除按钮将对应记录整行删除掉,能力有限但是又想实现请高手指导一下,谢谢

最佳答案

月排行榜 / 总排行榜

wayy

2011-11-14 08:18

Private Sub CommandButton1_Click()
For i = [a65536].End(xlUp).Row To 3 Step -1
  If ComboBox4.Text = Cells(i, 1) and  ComboBox5.Text = Cells(i, 2)Then '可以根据这个自己加条件
    Rows(i).Delete
  End If
Next
End Sub

跳转到最佳答案楼层

wayy

Private Sub CommandButton1_Click()
For i = [a65536].End(xlUp).Row To 3 Step -1
  If ComboBox4.Text = Cells(i, 1) and  ComboBox5.Text = Cells(i, 2)Then '可以根据这个自己加条件
    Rows(i).Delete
  End If
Next
End Sub

hytsky

wayy 发表于 2011-11-14 08:18
Private Sub CommandButton1_Click()
For i = [a65536].End(xlUp).Row To 3 Step -1
  If ComboBox4.Text ...

版主帮我看看这个问题，谢谢了http://www.excelpx.com/thread-208646-1-1.html