返回目录:excel表格制作
按知Alt+F11,左边选 ThisWorkbook ,在右边窗口粘上下面的代码,
把你的“单据编号:RY-20100000”单元格位置放在代码:
Set a = Sheets("Sheet2").[A1]
在打印前就道会询问是否更新单据编号,回答"是"会更新编号,然后打开打印对话框。回答"否"不会更新编号,可还会打专开打印对话框。回答"取消"会取消打印。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Set a = Sheets("Sheet2").[A1]
confirm = MsgBox("自动更新单据编号?属", vbYesNoCancel)
If confirm = 2 Then Cancel = True: Exit Sub
If confirm = 6 Then
a.Value = "单据编号:RY-201" & WorksheetFunction.Text(Right(a.Value, 5) + 1, "00000")
End If
End Sub
操作步骤如下:
1.首先要有一个对照表,这是Sheet2中的一个名称编码对照表
2.在Sheet1中的商品编码列输入如copy下公式:
=IFERROR(VLOOKUP(A2,Sheet2!A:B,2,0),"")
然后往下拖动到需要自动生成编码的区域
3.这样,只要A列输入商品名称,编码就自zhidao动生成了。
D2公式下百拉:
=IF(I2="","",IF(F2="软",2,(F2="硬")*1)&IF(G2="双面胶度专",2,(G2="单面胶")*1)&IF(H3="白","B",IF(H3="黑","H","Q"))&I2)
或者:属
=IF(I2="","",MATCH(F2,{"不适用";"硬";"软"},)-1&MATCH(G2,{"无";"单面胶";"双面胶"},)-1&VLOOKUP(H2,{"白","B";"黑","H";"其他","Q"},2,)&I2)
1.首先打开Excel 2007,创建如图所示的内容。当然大家也可以根据自己的实际情况来选择练习的内容。在此为了讲解上的需要,特制作两列,第一列就“序号”,第二列是“名称”。
2.然后依次在“序号”的下面的单元格中输入"1”和"2".接着选中这两个单元格,将鼠标放到被选中的单元格的右下角,当鼠标变成"黑色十字"光标时,按时鼠标左键不放,同时拖动到内容的最后一行再释放鼠标.就会发现所有序号下面的单元格自动完成填充.
3.在序号在"3"的行上右击,选择"插入"选项来插入新行, 接着选择“序号”行下面"1"和"2"这两个单元格,将鼠标放到被选中的单元格的右下角,当鼠标变成"黑色十字"光标时,按时鼠标左键不放,同时拖动到内容的最后一行再释放鼠标.就会发现所有序号下面的单元格自动完成序号的填充.
4.如果记录行数较多时,这种生成序号的方式就显得麻烦,一种比较好的办法就是利用公式来实现.首先删除序号列下面的所有内容,并在序号列的下面第一个单元格中输入公式"=Row()-1".
5.将鼠标放到该单元格的右下角,当鼠标变成"黑色十字"光标时,按时鼠标左键不放,同时拖动到内容的最后一行再释放鼠标.就会发现所有序号下面的单元格自动完成填充.
6.在序号为“3”所在的行上右击,从弹出的菜单中选择“删除”选项,在弹e799bee5baa6e997aee7ad94e58685e5aeb9335出的窗口中选择“整行”,就会发现所有序号自动生成并有序。
7.在序号为“3”所在的行上右击,从弹出的菜单中选择“插入”选项,在弹出的窗口中选择“整行”。
8.最后将序号为“3”的单元格公式复制到下面,就会发现所有序号列单元格又有序排列啦。