保存單元格數(shù)據(jù),并打印表格,按alt+F11調(diào)出VBA開發(fā)工具,添加模塊。
站在用戶的角度思考問題,與客戶深入溝通,找到洛川網(wǎng)站設計與洛川網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗,讓設計與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個性化、用戶體驗好的作品,建站類型包括:成都網(wǎng)站設計、成都網(wǎng)站制作、外貿(mào)網(wǎng)站建設、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣、主機域名、虛擬空間、企業(yè)郵箱。業(yè)務覆蓋洛川地區(qū)。Sub PrintPass() '打印票據(jù) Sheets("打印合格證").Select ActiveWindow.SelectedSheets.PrintOut '調(diào)用打印命令打印當前頁 '保存數(shù)據(jù) With Sheets("記錄") x = .Range("a65536").End(xlUp).Row + 1 '取得“記錄”表中最后一個空行的行號(即寫入位置) 'For i = 0 To 2 '商品信息分三行,為了簡化代碼,使用循環(huán)語句 .Cells(x, 1) = [a1] '客戶 .Cells(x, 2) = [b1] '長度 .Cells(x, 3) = [c1] '日期 'Next End With '清除數(shù)據(jù)(單據(jù)編號E2格與有公式的單元格不用清除) Range("a1").ClearContents '最后讓票據(jù)的號碼自動加1 's = Range("e2") '收據(jù)上的當前序號在E2單元格 'Range("e2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4) '打印完畢后讓序號加一(編號的左兩位是字符,右四位是數(shù)字) 'MsgBox "打印并保存完畢", , "提示" End Sub
在A1單元格中回車調(diào)用模塊函數(shù)
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Application.EnableEvents = False Application.OnKey "{Enter}" If Target.Count = 1 And Target.Address = "$A$1" Then If i = 0 Then i = 2 Exit Sub End If bianhao = CStr(Range("A1").Value) ret = MsgBox("要打印" + bianhao + "合格證嗎?", vbExclamation + vbYesNo, "提示") If ret = 6 Then Application.OnKey "{Enter}", "printpass" Call PrintPass End If Else i = 0 End If 'Application.EnableEvents = True End Sub
另外有需要云服務器可以了解下創(chuàng)新互聯(lián)scvps.cn,海內(nèi)外云服務器15元起步,三天無理由+7*72小時售后在線,公司持有idc許可證,提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢,專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應用場景需求。