excel表格送货单号怎么设置打印一份自动递增编号加1？

假设送货单号在A1中，Alt+F11，添加如下代码，就会实现打印一次增加1Private Sub Workbook_BeforePrint(Cancel As Boolean)Range("A1") = Range("A1") + 1End Sub。

Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，是由Microsoft为Windows和Apple Macintosh *** 作系统的电脑而编写和运行的一款试算表软件，最早版本是在1985年开发的。

Microsoft Excel可以进行各种数据的处理、统计分析和辅助决策 *** 作等，具有打开或关闭表格标题行、计算列使用单个公式调整每一行、数据排序和筛选、自定义公式和文本输入等功能。目前，Microsoft Excel被广泛应用于管理、统计财经、金融等众多领域。

软件简介

Microsoft ExcelExcel中大量的公式函数可以应用选择，使用Microsoft Excel可以执行计算，分析信息并管理电子表格或网页中的数据信息列表与数据资料图表制作，可以实现许多方便的功能，带给使用者方便。

与其配套组合的有：Word、PowerPoint、Access、InfoPath及Outlook,Publisher

Excel2013、2010、2007和老一点的Excel2003较为多见，Excel2002版本用的不是很多。比Excel2000老的版本很少见了。最新的版本增添了许多功能。使Excel功能更为强大。

Excel2003支持VBA编程，VBA是Visual Basic For Application的简写形式。VBA的使用可以达成执行特定功能或是重复性高的 *** 作。

SqlServer有3种方式设置自增列，
SSMS中在图形化界面中建表时，设置自动增长的其实值及每次增量
--语句建表时设置自增列，从1开始增长，每次增加1
create table test(col1 int indentity(1,1,))
--修改列为从1开始增长，每次增加10
alter table test alter col1 int indentity(1,10)

答：照下图打开代码窗口

然后把下面代码复制进去即可：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If TargetHasFormula Then Exit Sub
    If VBAIsNumeric(TargetValue) Then
        Target = Target + 1
    End If
End Sub

可以用identity（1，1）是指从1开始,每次增加1如果每次想增加2就是
建表时指定某列为自增长列
create bable [表名] ([列名1] int itentity(1,1),[列名2])

对着你要设置的表右键单击，设计选中你要设置的字段，去下面看列属性，展开表设计器，展开标识规范，（是标识） 的：否改成：是 ，其它不用修改。前提：这个字段是 int 类型的，要不没有自动加1这个说法，字浮串不可能自动加1的。

---