excel中怎样在保存时单号自动加1？

来源：百度知道 编辑：UC知道 时间：2024/06/11 02:53:15
最近网上的这个东西比较火，我也想知道怎样写一个简单的程序完成这个：比如在sheet1中，其中有一张凭单，上面有单号：1001210，还有具体什么内容，如果在填好了其中的内容后并保存，使单号的1001210自动加1即变成1001211，再保存变成1001212，...。怎样写程序呢，看人家写的挺简单的，请教高手同胞。

假设你的单号在SHEET1的A1
按下ALT+F11,双击左边"工程-VBPORJECT"中的"THISWORKBOOK"
然后在代码框中复制下面代码,退出.

按下保存键,原A1上的数值会自动加1.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Cells(1, 1) = Sheets("Sheet1").Cells(1, 1) + 1
End Sub

假设你的单号在SHEET1的A1
按下ALT+F11,双击左边"工程-VBPORJECT"中的"THISWORKBOOK"
然后在代码框中复制下面代码,退出.

按下保存键,原A1上的数值会自动加1.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Cells(1, 1) = Sheets("Sheet1").Cells(1, 1) + 1
End Sub

假设a1为1001211
侧在A2编辑公式为=IF(B2<>"",$A$1-1+ROW(),"")
然后向下拉到底,
然后你在B例输入东西,A例就会出你说的序号了.