【正文】 .OnAction = TXT .TooltipText = 單擊此處增添憑證 End With Set Cwbutton = (Worksheet Menu Bar).(Type:=msoControlButton) With Cwbutton .Style = msoButtonIconAndCaption .FaceId = 26 .Caption = 查看憑證 .OnAction = .TooltipText = 單擊此處查看憑證 End With End Sub ③ 保存 EXCEL 文件并退出即完成整個(gè)憑證的定義了。 總行數(shù) )) 貸方金額 = (Range(H4:H amp。 [ amp。 在 VBA 中編寫宏程序。 在 EXCEL 文件中新建一工作表，更名為工資分配，然后在第 5行中依次錄入制單日期、憑證類別、憑證號(hào)、附單據(jù)數(shù)、摘要、科目編碼、金額借方、金額貸方??部門編碼、項(xiàng)目編碼等（詳見圖 1，注意表格列次）。 將自編軟件的工資分配表復(fù)制到表格中，表頭項(xiàng)目必須控制在 CE列（紅豎線分隔線）開始，第 5行前的區(qū)域內(nèi)；表體項(xiàng)目需控制從第 6 行開始， CE 列開始的區(qū)域內(nèi)（詳見圖 2）。 Sub 查看憑證 () 39。 DateS, vbOKCancel, 用友轉(zhuǎn)賬 ) If aa 1 Then Exit Sub Open d:\mydocu~1\ For Output As 55 Print 55, 填制憑證 ,V800 For j = 6 To 總行數(shù) If Cells(j, 7) 0 Or Cells(j, 8) 0 Then 39。 Chr(10) amp。 ① 每次將自編程序中的工資分配表的數(shù)據(jù)進(jìn)行選擇性粘貼覆蓋到數(shù)據(jù)區(qū)后，即可按“用友轉(zhuǎn)賬”按鈕，在彈出窗口（見圖 4）中點(diǎn)擊確定即可輸出憑證文件到“ D： \My Documents