保存窗体代码为什么不能执行

ablatabliz

各位老师们你们好？
我是一个新手，想做一个转院证管理系统，但是保存代码执行不了，麻烦你们看一下，帮我解决，谢谢

cflood

Private Sub CommandButton1_Click() 'Sheets("门诊结算表")
    With Sheets("统计表")
    '定位工作表中A列第一个空白单元格
    r = .[A65536].End(xlUp).Row + 1
    '将数据写入工作表中
    '员工号
    .Cells(r, 3) = Me.姓名.Value
    '性别
    .Cells(r, 4) = Me.年龄.Value
    '部门
    .Cells(r, 5) = Me.性别.Value
    '清空用户窗体中输入的内容
    Me.姓名.Value = ""
    Me.年龄.Value = ""
    Me.性别.Value = ""
End Sub

ablatabliz

请问一下：1. 保存后编号自动改成为目前的编号怎么写代码。如：我填好了一个编号为050500004801的转院证保存后写编号的自动生成为050500004802
2. 按下打印按钮打印指定的sheet2 工作表的代码怎么写

请教我，谢谢

cflood

worksheets("sheet2").printout
转院证的编号没有相应的控件。

ablatabliz

老师再看一下转院证编号控件重复的话提醒并不能运行的代码我不会写，找了半天找不到请我帮忙一下，
谢谢

cflood

Private Sub CommandButton1_Click() 'Sheets("门诊结算表")
    With Sheets("统计表")
    If Application.WorksheetFunction.CountIf(.Range("A:A"), Me.转院证.Value) = 0 Then
    r = .[a65536].End(xlUp).Row + 1
    .Cells(r, 1) = Me.转院证.Value
    .Cells(r, 2) = Me.医疗证号.Value
    .Cells(r, 3) = Me.姓名.Value
    .Cells(r, 4) = Me.性别.Value
    .Cells(r, 5) = Me.年龄.Value
    .Cells(r, 6) = (Me.[乡]) & Me.[村] & Me.[组].Value
    .Cells(r, 7) = Me.科别.Value
    .Cells(r, 8) = Me.医院.Value
    .Cells(r, 9) = Me.诊断.Value
    .Cells(r, 10) = Me.医师.Value
    .Cells(r, 11) = Me.日期.Value
    End If
    End With
End Sub

ablatabliz

老师请问一下：怎没没有保存不保存的提示呀。请解决一下