[已解决]请高手帮忙把这两段代码连起来，谢谢高手的帮忙

qiongmei

我附件上有2个表，表一是个人休假，表二是界面，我想实现的功能是：当我在界面表中的增加姓名窗体中输入姓名的时候，我用这个代码在界面表中的ab列出现名字
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
    If WorksheetFunction.CountIf(Range("ab3:g" & ActiveSheet.Range("ab65536").End(xlUp).Row), TextBox1.Text) = 0 Then
        Range("ab3").Select
        Selection.Insert Shift:=xlDown
        Range("ab3") = TextBox1.Text
    Else
        MsgBox "您输入的姓名已存在", vbOKOnly, "错误"
    End If
Else
    MsgBox "您未输入任何内容"
End If
Unload Me
Range("c8").Select
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
Me.Hide
End Sub

但我想增添多一个功能：他会在个人休假表中b2增添名字，我用以下代码Sub NewSh()
    Sheets("个人休假").Select
    Dim Sh As Worksheet
    If [b2] = "" Then Exit Sub
          For Each Sh In Worksheets
          If Sh.Name = [b2] Then
              MsgBox "工作簿中已有""" & [b2] & """工作表,不能重复添加!"
              Exit Sub
          End If
      Next
    Sheets("个人休假").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = [b2]
   
End Sub
在工作薄中生成一个以增加姓名命名的工作表。另能否在 MsgBox "您输入的姓名已存在", vbOKOnly, "错误"
执行的时候，他会进入这个工作薄中以这重复命名的工作表中，例如工作薄中已经有飞机的工作表，当在增加姓名的窗体中输入飞机的时候，他提示这个“您输入的姓名已存在”，这个时候他会打开飞机的工作表。谢谢高手们的帮忙。

最佳答案

月排行榜 / 总排行榜

zjdh

2011-10-10 14:17

你试试:
员工考勤表.rar (16.67 KB, 下载次数: 12)

2011-10-10 14:52 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

你试试:
员工考勤表.rar (16.67 KB, 下载次数: 12)

2011-10-10 14:52 上传

点击文件名下载附件