[已解决]请高手帮忙下通过指定名字删除指定工作表

qiongmei

我附件上的工作表，我想实现以下功能：1、当我在界面工作表中点a列的任一个单元格中，他会进入和a列中同名字的工作表中，例如我点士大夫的时候他会进入到士大夫的工作表中。2、当点删除姓名的窗体，在删除窗体的输入栏中输入所需要的姓名，他则会删除界面a列中这个名字所在的单元格和工作簿中以这个名字命名的工作表。再次谢谢高手们的帮忙。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-11 10:21

回复 qiongmei 的帖子

3楼没有问题

现在帮你优化了一下代码！

1. Private Sub CommandButton1_Click()
   
2. Dim Ran As Object '定义一个单元格对象
   
3. If Len(TextBox1.Text) > 0 Then
   
4. Set Ran = Sheets("界面").Range("A:A").Find(TextBox1.Text, LookAt:=xlWhole) '查找与输入名称相同的单元格
   
5. If Ran Is Nothing Then '是否找到单元格
   
6. MsgBox "您输入的名称不存在"
   
7. Else
   
8. Application.DisplayAlerts = False '临时关闭EXCEL 系统提示
   
9. Sheets(TextBox1.Text).Delete '删除工作表
   
10. Ran.Delete '删除单元格
    
11. Application.DisplayAlerts = True 'EXCEL 系统提示
    
12. Unload Me
    
13. End If
    
14. End If
    
15. End Sub

复制代码

跳转到最佳答案楼层

mxg825

回复 qiongmei 的帖子

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next '忽略空单元格与删除的工作表
   
3. If Target.Column = 1 Then
   
4. Sheets(Target.Text).Select
   
5. End If
   
6. End Sub

复制代码

1. Sub Macro2() '删除
   
2. If ActiveCell.Column > 1 Then Exit Sub
   
3. Application.DisplayAlerts = False '临时关闭EXCEL 系统提示
   
4. Sheets(ActiveCell.Text).Delete
   
5. ActiveCell.Delete
   
6. Application.DisplayAlerts = True 'EXCEL 系统提示
   
7. End Sub
   

复制代码

qiongmei

谢谢mxg825师傅，你提供的代码很好，但是由于我不注意，第二个问题犯个逻辑错误，但是您一样把他弄执行了，能否请您就第二个问题在帮忙修改下：2、当点删除姓名的窗体，在删除窗体的输入栏中输入所需要的姓名，他则会删除界面a列中这个名字所在的单元格和工作簿中以这个名字命名的工作表。，附件我已改，能否再次麻烦您看下。再次谢谢您的帮忙。

mxg825

回复 qiongmei 的帖子

1. Private Sub CommandButton1_Click()
   
2. Dim x&
   
3. 
   
4. With Sheets("界面")
   
5. If Application.CountIf(.Range("A:A"), TextBox1.Text) > 0 And Len(TextBox1.Text) > 0 Then
   
6. x = Application.Match(TextBox1.Text, .Range("A:A"), 1)
   
7. Application.DisplayAlerts = False '临时关闭EXCEL 系统提示
   
8. Sheets(TextBox1.Text).Delete
   
9. .Cells(x, 1).Delete
   
10. Application.DisplayAlerts = True 'EXCEL 系统提示
    
11. Else
    
12. MsgBox "您输入的名称不存在"
    
13. End If
    
14. End With
    
15. End Sub

复制代码

qiongmei

mxg825 师傅您好，界面a列同名字的单元格没有删除，能否再请您帮忙修改下，由于本人实在是愚蒙，看了半天也不知道要如何修改，再次谢谢您的帮忙。

mxg825

回复 qiongmei 的帖子

3楼没有问题

现在帮你优化了一下代码！

1. Private Sub CommandButton1_Click()
   
2. Dim Ran As Object '定义一个单元格对象
   
3. If Len(TextBox1.Text) > 0 Then
   
4. Set Ran = Sheets("界面").Range("A:A").Find(TextBox1.Text, LookAt:=xlWhole) '查找与输入名称相同的单元格
   
5. If Ran Is Nothing Then '是否找到单元格
   
6. MsgBox "您输入的名称不存在"
   
7. Else
   
8. Application.DisplayAlerts = False '临时关闭EXCEL 系统提示
   
9. Sheets(TextBox1.Text).Delete '删除工作表
   
10. Ran.Delete '删除单元格
    
11. Application.DisplayAlerts = True 'EXCEL 系统提示
    
12. Unload Me
    
13. End If
    
14. End If
    
15. End Sub

复制代码