求助VBA代码

gbr123456789

请教大师帮忙修改，谢谢！
现在只能删除姓名单元格，我想要把姓名列里指定的名字（包括重复）的整行都删除，谢谢！

liulang0808

Private Sub CommandButton1_Click()
Dim Ran As Object
x = 0
str1 = ComboBox1.Text
If Len(str1) > 0 Then
l1:
    Set Ran = Sheets("数据库").Range("B:B").Find(str1, LookAt:=xlWhole) '查找与输入名称相同的单元格
      If Ran Is Nothing Then
        If x = 0 Then
          MsgBox "您输入的名称不存在"
        Else
            MsgBox ComboBox1.Text & ":相关数据已经删除"
        End If
        Else
           Application.DisplayAlerts = False '临时关闭EXCEL 系统提示
             Ran.EntireRow.Delete '删除单元格
             x = x + 1
           Application.DisplayAlerts = True 'EXCEL 系统提示
           GoTo l1
      End If
End If
End Sub

gbr123456789

liulang0808 发表于 2020-3-8 09:47
Private Sub CommandButton1_Click()
Dim Ran As Object
x = 0

谢谢大师！刚学了

1055751654

这个下拉框怎么弄的，代码在哪呀？代码弄的吗,我弄的咋没勾勾，工具箱里也没这个三角形的，晕倒，知道了，复合框来的

wodewan

1055751654 发表于 2020-3-8 10:53
这个下拉框怎么弄的，代码在哪呀？代码弄的吗,我弄的咋没勾勾，工具箱里也没这个三角形的，晕倒，知道了， ...

不知道是不是说的Dropbuttonstyle这个属性，如果是的话，选中后，可以在属性对话框中设置的，如下图。

1055751654

wodewan 发表于 2020-3-8 12:02
不知道是不是说的Dropbuttonstyle这个属性，如果是的话，选中后，可以在属性对话框中设置的，如下图。

我的碗老师，我在捣鼓楼主的姓名是怎么装进下拉列表的，捣鼓了一上午还没捣鼓懂，看了下王佩丰老师的视频是写了句additem装进去的

wodewan

1055751654 发表于 2020-3-8 12:37
我的碗老师，我在捣鼓楼主的姓名是怎么装进下拉列表的，捣鼓了一上午还没捣鼓懂，看了下王佩丰老师的视频 ...

我知道的有三种方法供参考（注意，用Rowsource时，不能再用代码方式，否则会出错，用代码时删掉Rowsource里的地址）第一种最简单的就是在属性对话框种的Rowsource中写入数据源地址。
第二种就是你说的additem
Private Sub UserForm_Initialize()
arr = Range("b2:b35")
For i = 1 To UBound(arr)
ComboBox1.AddItem arr(i, 1)
Next
End Sub

第三种就是用list属性
Private Sub UserForm_Initialize()
arr = Range("b2:b35")
ComboBox1.List = arr
End Sub

1055751654

wodewan 发表于 2020-3-8 12:59
我知道的有三种方法供参考（注意，用Rowsource时，不能再用代码方式，否则会出错，用代码时删掉Rowsource ...

谢谢老师，老师咋啥都懂，花送完了