[用友資料][excel數(shù)據(jù)直接引入u8憑證的方案和樣表]大憑證引入方案-文庫吧
2025-09-06 04:41 本頁面
【正文】 ，直到所有借方科目定義完成后，再定義貸方金額等于工資總合計“ CT27” 元，科目編碼定義為應(yīng)付工資“ 2151”。同樣再進行計提應(yīng)付福利費的科目設(shè)置。 ② 在“ A2”單元格輸入制單日期，也可通過在其他方便操作的單元格錄入后取數(shù)到該單元格，如該單元格為空則取當(dāng)前計算機系統(tǒng)日期。 ③ 在“ B2”單元格輸入憑證類別編碼。 ④ 在“ C2”單元格輸入憑證號，可固定設(shè)置為 999，由憑證引入時系統(tǒng)自動編號。 ⑤ 在“ E2”單元格輸入憑證各分錄的默認(rèn)摘要。若要定義各分錄的摘要，可在 E 列對應(yīng)行中輸入。 ⑥ 在“ B1”單元格中輸入憑證總分錄數(shù)，即定義的最大行數(shù)。 在 VBA 中編寫宏程序。 ① 在 EXCEL 菜單中選擇 [工具 ][宏 ][Visual Basic 編輯器 ] 或者按ALT+F11，在出現(xiàn)的窗口中左窗格展開后雙擊 ThisWorkbook 節(jié)點（見圖 3）。 （圖 3） ② 在右窗格中輸入如下命令語句。 Sub 查看憑證 () 39。調(diào)用 WINDOWS 自帶的記事 本程序查看生成的憑證文件 ,其安裝路徑要根據(jù)實際情況改變。 Shell C:\WINDOWS\ d:\mydocu~1\, vbNormalFocus End Sub Sub 轉(zhuǎn)換為 TXT() Dim str As String, DateS As String Dim 憑證類別 As String, 附件張數(shù) As Integer, 摘要 As String Dim 制單日期 As String, 憑證號 As Integer, 總行數(shù) As Integer 總行數(shù) = Range(B1) 39。未填寫制單日期時，取計算機的系統(tǒng)日期 制單日期 = IIf(Range(A2) = , Year(Now()) amp。 amp。 Month(Now()) amp。 amp。 Day(Now()), Range(A2)) 憑證類別 = Range(B2) 憑證號 = Ra
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1