收据编号如何自动生成

步骤1：单击“开发工具”插入ActiveX控件命令按钮，然后在工作表要放置按钮的地方，按住鼠标左键，划出一个矩形，就插入了一个命令按钮控件。

步骤2：右击命令按钮属性

步骤3：把Caption属性改为要显示的字符，如“编号增加”，再关闭“属性”对话框。

步骤4：右击控件查看代码，Excel会自动打开VBA编辑器，输入代码后关闭VBA编辑器。

Private Sub CommandButton1_Click() Dim num If Len([F2]) = 0 Then num = 1 ElseIf Format(Date,

"yyyymmdd

") = Left([F2], 8) Then num = Right([F2], 2) + 1 Else num = 1 End If num = Format(Date,

"yyyymmdd

") & Format(num,

"00

") [F2] = numEnd Sub

步骤5：单击“设计模式”以退出设计模式，再单击“编辑增加”按钮，就会自动编辑增加。