在excel中用宏命令制作打印表单

《在excel中用宏命令制作打印表单》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在Excel中用宏命令制作打印表单在Excel中用宏命令制作打印表单2010-07-0910：18这是一张通过Office办公软件Excel电子表格宏制作的单据打印表，其特点是：①操作简单只用鼠标就可完成打印全过程；②"商品单价"表可由厂家提供(或预先做好)，对已做过选择的内容可进行标记；③"销售单"表可进行快速添加、清除和修改；④单据可选择性的保存。本表想不到还很实用，只要在"商品单价"表中双击就可以把数据填入到"销售表"中，如果把它做一些小的改动就可用在其它的单据打印上。现在把制作步骤写下来，让朋友对它做进一步的改进。1、第一步：首先新建一个Excel电

2、子表文件，在新建的文件中建立二张名字为"商品单价"和"销售单"的表。在"商品单价"表中是用来存放厂家提供的商品单价数据，只要将厂家的商品单价输入好即可，厂家的商品未调价就不需做修改(如图1)。2、第二步：在"销售单"表中按图2输入有关数据，部分单元格公式输入如下。在C1至C3单元格中分别输入=IF(K15="","",K15)，=IF(L1="","",L1)&IF(K1="","",K1)，IF(K2="","",K2)在B5至B15单元格中分别输入=IF(K5="","",K5)，…，=IF(K15="","",K15)在C5至C15单元格中分别输入=I

3、F(B5="","",VLOOKUP(B5,spdj,2,FALSE))，…=IF(B15="","",VLOOKUP(B15,spdj,2,FALSE))在I5至I15单元格中分别输入=F5*G5，=F6*G6…=F14*G14和=SUM(I5：I14)在单元格G2G3中分别输入=TODAY()，=IF(K3="","",K3)在单元格C15中输入="合计金额大写)："&TEXT(INT(ABS(I15)),"[dbnum2]g/通用格式")&"元"&TEXT(INT(ABS(I15*10))-INT(ABS(I15))*10,"[dbnum2]g/通用格

4、式")&"角"&TEXT(INT(ABS(I15*100))-INT(ABS(I15)*10)*10,"[dbnum2]g/通用格式")&"分整"在单元格C16C17G17中分别输入=IF(K4="","",K4)，=IF(K17="","",K17)，=IF(K16="","",K16)其余的输入就不用我介绍了。而后创建四个按钮，点击"视图"--"工具栏"--"控件工具箱"--"设计模式"--"命令按钮"创建完再点"退出命令按钮"。做一下打印页面设置，锁定该表(如图2)，这样这张表就做好了。3、第三步：编写VB代码。点击"工具"菜单--"宏"--"Visu

5、alBasic编辑器"，在"VisualBasic编辑器"中建立二个窗体为UserForm1,UserForm2,添加控件并设置好属性(如图4、图5)。4、第四步：双击工程列表中的Sheet1(商品单价)如图3，在弹出窗口中编写如下代吗：PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)SetMy1=Sheets("商品单价")SetMy2=Sheets("销售单")OnErrorGoTommmmIfSelection.Font.ColorIndex=15OrMy

6、1.Cells(Target.Row,8)""OrTarget.Row=1OrTarget.Row=2Then'过滤已选过的数据行或行头Range("I"&Target.Row).SelectExitSubEndIfIfMy1.Cells(Target.Row,1)=""ThenExitSub'过滤空行ForQ=5To14IfMy2.Cells(Q,11)=""Then'找销售单内的空行My2.Cells(Q,11)=My1.Cells(Target.Row,1)'填写数据My2.Cells(Q,12)=Target.RowMy1.Range("A"&Tar

7、get.Row&"：G"&Target.Row).Font.ColorIndex=15'在商品单价表中对已选过的行作标记My1.Cells(Target.Row,8)="√"'作标记也可用此代码My1.Range("I"&Target.Row).Value="√"ExitForEndIfNextQRange("I"&Target.Row).SelectIfQ=14ThenMy2.Select'填满10行跳转到销售单表ExitSubmmmm：MsgBox"出错！"EndSub5、第五步：双击列表中的Sheet12(销售单，在弹出窗口中编写如下代吗：'新增表单P

8、rivateSubCommandButton1_Cl