大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
保存单元格数据,并打印表格,按alt+F11调出VBA开发工具,添加模块。
站在用户的角度思考问题,与客户深入沟通,找到洛川网站设计与洛川网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都网站设计、成都网站制作、外贸网站建设、企业官网、英文网站、手机端网站、网站推广、主机域名、虚拟空间、企业邮箱。业务覆盖洛川地区。Sub PrintPass() '打印票据 Sheets("打印合格证").Select ActiveWindow.SelectedSheets.PrintOut '调用打印命令打印当前页 '保存数据 With Sheets("记录") x = .Range("a65536").End(xlUp).Row + 1 '取得“记录”表中最后一个空行的行号(即写入位置) 'For i = 0 To 2 '商品信息分三行,为了简化代码,使用循环语句 .Cells(x, 1) = [a1] '客户 .Cells(x, 2) = [b1] '长度 .Cells(x, 3) = [c1] '日期 'Next End With '清除数据(单据编号E2格与有公式的单元格不用清除) Range("a1").ClearContents '最后让票据的号码自动加1 's = Range("e2") '收据上的当前序号在E2单元格 'Range("e2") = Left(s, 2) & Right("0000" & Right(s, 4) + 1, 4) '打印完毕后让序号加一(编号的左两位是字符,右四位是数字) 'MsgBox "打印并保存完毕", , "提示" End Sub
在A1单元格中回车调用模块函数
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
另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。