真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

excel創(chuàng)建宏打印-創(chuàng)新互聯(lián)

保存單元格數(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è)上云打造定制,能夠滿足用戶豐富、多元化的應用場景需求。


網(wǎng)站名稱:excel創(chuàng)建宏打印-創(chuàng)新互聯(lián)
文章路徑:http://weahome.cn/article/dpghpd.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220(工作日)

18980820575(7×24)

提交需求

返回頂部