Question

EXCEL VBA 切换按钮（TOGGLEBUTTON)的用法 想在我的窗体界面上使用一个切换按钮实现连续编号功能。

这个是我的界面：

我想在点“确认”录入一条数据后，将切换按钮“连续录入”的ENABLED 属性激活，这时可以点击“连续录入”这个按钮以实现文本框“结算单编号”的连续自动编号功能，直到再次按下“连续录入”按钮。

下面是我给“确认”按钮写的代码，功能是将文本框的数据填到后台数据表中：
Private Sub cmdqr_Click() '确认并录入到汇总表
With Sheet2
i = .UsedRange.Rows.Count + 1 '查找已录入的最后一行 .Range("a" & i).Value = IIf(optxj, "现金", "转账")
...
.Range("e" & i).Value = IIf(optgz, "工资", "津贴") '把单选框结算类型的选择结果赋值给E列

txtjsdh.Value = "" '录入后清空各文本框的内容 txtxm.Value = ""
....

chkgz.Value = False '录入后清空复选框属性
chkgjb.Value = False

End With
End Sub

要使用 切换按钮实现对文本框“结算单编号”的连续自动编号功能要怎么实现呢？

请高手指教。。
在线等

Answer 1

切换按钮？？？ 不懂
不过你可以直接添加一个按钮“自动编号”
代码功能：
1.从数据库取得目前最大编号
2.将最大编号 +1 显示在本窗口中
同时（必须同时）将整春纯个界面的内容输入到数据库里
（可选）如果当前页面想输配首入扒卖咐新内容，就吧内容清空，

Answer 2

CommandButton2.Enabled = True