在Excel中用宏命令制作打印表單

1、在Excel中用宏命令制作打印表單在Excel中用宏命令制作打印表單2010-07-09 10：18這是一張通過Office辦公軟件Excel電子表格宏制作的單據(jù)打印表，其特點是：操作簡單只用鼠標就可完成打印全過程；"商品單價"表可由廠家提供(或預先做好)，對已做過選擇的內容可進行標記；"銷售單"表可進行快速添加、清除和修改；單據(jù)可選擇性的保存。本表想不到還很實用，只要在"商品單價"表中雙擊就可以把數(shù)據(jù)填入到"銷售表"中，如果把它做一些小的改動就可用在其它的單據(jù)打印上?，F(xiàn)在把制作步驟寫下來，讓朋友對它做進一步的改進

2、。1、第一步：首先新建一個Excel電子表文件，在新建的文件中建立二張名字為"商品單價"和"銷售單"的表。在"商品單價"表中是用來存放廠家提供的商品單價數(shù)據(jù)，只要將廠家的商品單價輸入好即可，廠家的商品未調價就不需做修改(如圖1)。2、第二步：在"銷售單"表中按圖2輸入有關數(shù)據(jù)，部分單元格公式輸入如下。在C1至C3單元格中分別輸入=IF(K15="","",K15)，=IF(L1="","",L1)&IF(K1="&qu

3、ot;,"",K1)，IF(K2="","",K2)在B5至B15單元格中分別輸入=IF(K5="","",K5)，=IF(K15="","",K15)在C5至C15單元格中分別輸入=IF(B5="","",VLOOKUP(B5,spdj,2,FALSE)，=IF(B15="","",VLOOKUP(B15,spdj,2,FALSE)在I5至I15單元格中分別輸入=F5*G5，

4、=F6*G6=F14*G14和=SUM(I5：I14)在單元格G2 G3中分別輸入=TODAY()，=IF(K3="","",K3)在單元格C15中輸入="合計金額大寫)："&TEXT(INT(ABS(I15),"dbnum2g/通用格式")&"元"&TEXT(INT(ABS(I15*10)-INT(ABS(I15)*10,"dbnum2g/通用格式")&"角"&TEXT(INT(ABS(I15*100)-INT(A

5、BS(I15)*10)*10,"dbnum2g/通用格式")&"分整"在單元格C16 C17 G17中分別輸入=IF(K4="","",K4)，=IF(K17="","",K17)，=IF(K16="","",K16)其余的輸入就不用我介紹了。而后創(chuàng)建四個按鈕，點擊"視圖"-"工具欄"-"控件工具箱"-"設計模式"-"命令按鈕"創(chuàng)

6、建完再點"退出命令按鈕"。做一下打印頁面設置，鎖定該表(如圖2)，這樣這張表就做好了。3、第三步：編寫VB代碼。點擊"工具"菜單-"宏"-"Visual Basic編輯器"，在"Visual Basic編輯器"中建立二個窗體為UserForm1,UserForm2,添加控件并設置好屬性(如圖4、圖5)。4、第四步：雙擊工程列表中的Sheet1(商品單價)如圖3，在彈出窗口中編寫如下代嗎：Private Sub Worksheet_BeforeDoubleClick(ByVal Target As

7、 Range,Cancel As Boolean)Set My1=Sheets("商品單價")Set My2=Sheets("銷售單")On Error GoTo mmmm If Selection.Font.ColorIndex=15 Or My1.Cells(Target.Row,8)""Or Target.Row=1 Or Target.Row=2 Then'過濾已選過的數(shù)據(jù)行或行頭Range("I"&Target.Row).Select Exit Sub End If If My1.Cell

8、s(Target.Row,1)=""Then Exit Sub'過濾空行For Q=5 To 14 If My2.Cells(Q,11)=""Then'找銷售單內的空行My2.Cells(Q,11)=My1.Cells(Target.Row,1)'填寫數(shù)據(jù)My2.Cells(Q,12)=Target.Row My1.Range("A"&Target.Row&"：G"&Target.Row).Font.ColorIndex=15'在商品單價表中對已選過的行作標記

9、My1.Cells(Target.Row,8)=""'作標記也可用此代碼My1.Range("I"&Target.Row).Value=""Exit For End If Next QRange("I"&Target.Row).Select If Q=14 Then My2.Select'填滿10行跳轉到銷售單表Exit Sub mmmm：MsgBox"出錯！"End Sub 5、第五步：雙擊列表中的Sheet12(銷售單，在彈出窗口中編寫如下代嗎：'新增

10、表單Private Sub CommandButton1_Click()If MsgBox("確實要新增表單嗎?",vbYesNo,"新增表單")=vbYes Then Set My1=Sheets("商品單價")Set My2=Sheets("銷售單")For E=5 To 14 Sn=My2.Cells(E,12)If Sn""Then'檢測數(shù)據(jù)是否已被清除My1.Range("A"&Sn&"：G"&Sn).Font.C

11、olorIndex=0'清除商品單價表的某行標記My1.Range("H"&Sn).Value=""'清除標記End If Next EMy2.Copy after：=Sheets(1)'復制表單ActiveSheet.Shapes.Range(Array("CommandButton3","CommandButton1","CommandButton2","CommandButton4").Select Selection.Delete

12、9;清除形狀按鈕My2.Select My2.Range("G5：G14,K5：L14").Value=""'清除銷售單表全部數(shù)據(jù)My2.Cells(1,11)=My2.Cells(1,11)+1'增加銷售單編號Range("A1").Select End If End Sub'清除內容Private Sub CommandButton2_Click()X=Selection.Address'所選區(qū)域的單元格絕對地址For I=1 To Len(X)If Mid(X,I,1)="："

13、Then A1=A2：A2=""If Val(Mid(X,I,1)0 Or Mid(X,I,1)="0"Then A2=A2&Mid(X,I,1)'過濾字符只留數(shù)字Next IIf A1=4 Or A1=15 Or A2=4 Or A2=15 Then MsgBox"你選擇的區(qū)域不正確！"&Chr(13)&Chr(13)&"請正確選擇清除區(qū)域！",0,"提示"Else If MsgBox("你選擇的區(qū)域為：第"&A1&&

14、quot;-"&A2&"行"&Chr(13)&Chr(13)&"確實要清除區(qū)域中的數(shù)據(jù)嗎?",vbYesNo,"清除")=vbYes Then Set My1=Sheets("商品單價")Set My2=Sheets("銷售單")For E=A1 To A2 Sn=My2.Cells(E,12)If Sn""Then'檢測數(shù)據(jù)是否已被清除My1.Range("A"&Sn&"：G"&Sn).Font.ColorIndex=0'清除商品單價表的某行標記My1.Range("H"&Sn).Value=""'清除商品單價表的某行標記My2.Range("G"&E&",K"&E&"：L"&E).Value=""'清除銷售表的某行數(shù)據(jù)End If Next EEnd If Range("A1").Select End