发布网友 发布时间:2022-04-23 16:41
共2个回答
热心网友 时间:2023-10-09 14:52
步骤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] = num
End Sub
步骤5:单击“设计模式”以退出设计模式,再单击“编辑增加”按钮,就会自动编辑增加。
热心网友 时间:2023-10-09 14:52
没有公式,只有用vba ,添加一个按钮,按下按钮给出打印命令,然后编号增加1,这个很简单的!追问具体怎么操作