欢迎来到天天文库
浏览记录
ID:14176549
大小:45.00 KB
页数:12页
时间:2018-07-26
《农户信用信息 excel vba code》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、农户信用信息excelvbacodeDimiAsIntegerWorksheets("Sheet1").ActivateFori=1To14Range(Cells(i,1),Cells(i,2)).SelectSelection.CreateNamesTop:=False,Left:=True,Bottom:=False,Right:=FalseNextiEndSubPrivateSubBatchPrintCmdBtn_Click()'批量打印IDnofound=0printcount=0myRow=Sheets("农户数据库").[A65535].End(xlUp).Row'从
2、下向上找表格Sheet1--A列第一个非空行,然后取行号startRow=Sheets("批量打印").[K4]'起始记录号endRow=Sheets("批量打印").[K5]'结束记录号'Cells(6,11).Value=0IfstartRow>=1AndstartRow<=endRowAndendRow3、,11).Value=0ForR=startRowToendRow'循环打印库Application.StatusBar="请耐心等候,按“ESC”中断,正在打印记录"&R&"..."Cells(4,11).Value=R'改变单元格行1列9的数值,该值决定了打印的序号行'批量打印Application.Caption="农户基本情况档案"&RSheets("批量打印").PrintOut'打印工作表“农户基本情况档案表”printcount=printcount+1Cells(6,11).Value=printcount'打印记录数DoEventsNextElse'用户按下“取4、消”End'结束打印EndIfElseMsgBox"起始记录号或结束记录输入有误!,超始记录号应大于1,小于总记录数"'超始记录号/结束记录号值超出数据范围则结束,弹出错误提示.EndIfEndSub============================================================'该代码仅仅适用于我社的数据,如果非授权人员自行运行或修改造成数据丢失或破坏由自行负责DimDBstartrowAsIntegerDimmyRowAsInteger,RAsInteger,MAsInteger'定义变量DimstartRowAsInteger,end5、RowAsIntegerDimPrintFlagDimprintcountAsInteger'打印的记录个数DimIDnofoundAsInteger'身份证在公安户口查不到记录数DimitemCountAsInteger'农户数据库字段个数Dimaddress1AsStringDimmoneyAsIntegerDimmoney1AsIntegerDimconfigrowAsIntegerDimchunbieAsStringPrivateSubCreateDBCmdBtn_Click()SetMySheet=Sheets("农户基本情况档案表")SetMysheetconfig=6、Sheets("config").[$A$1]IDnofound=0printcount=0myRow=Sheets("jh").[A65535].End(xlUp).Row'从下向上找表格Sheet1--A列第一个非空行,然后取行号startRow=Sheets("农户基本情况档案表").[K4]'起始序号endRow=Sheets("农户基本情况档案表").[K5]'结束序号'Cells(6,11).Value=0IfstartRow>=1AndstartRow<=endRowAndendRow7、("你确定要开始批量生成数据吗?",vbOKCancel)'跳出"打印开始"对话框,点"确定"开始IfPrintFlag=vbOKThen'用户按下“确定”if2Cells(6,11).Value=0Cells(7,11).Value=0IfmyRow>25000EqvmyRow<27000Then'if3IfSheets("农户基本情况档案表").[L10]<11ThenSheets("农户基本情况档案表").[L10]=Sheets("农户基本情况档案表").[L10]+1A
3、,11).Value=0ForR=startRowToendRow'循环打印库Application.StatusBar="请耐心等候,按“ESC”中断,正在打印记录"&R&"..."Cells(4,11).Value=R'改变单元格行1列9的数值,该值决定了打印的序号行'批量打印Application.Caption="农户基本情况档案"&RSheets("批量打印").PrintOut'打印工作表“农户基本情况档案表”printcount=printcount+1Cells(6,11).Value=printcount'打印记录数DoEventsNextElse'用户按下“取
4、消”End'结束打印EndIfElseMsgBox"起始记录号或结束记录输入有误!,超始记录号应大于1,小于总记录数"'超始记录号/结束记录号值超出数据范围则结束,弹出错误提示.EndIfEndSub============================================================'该代码仅仅适用于我社的数据,如果非授权人员自行运行或修改造成数据丢失或破坏由自行负责DimDBstartrowAsIntegerDimmyRowAsInteger,RAsInteger,MAsInteger'定义变量DimstartRowAsInteger,end
5、RowAsIntegerDimPrintFlagDimprintcountAsInteger'打印的记录个数DimIDnofoundAsInteger'身份证在公安户口查不到记录数DimitemCountAsInteger'农户数据库字段个数Dimaddress1AsStringDimmoneyAsIntegerDimmoney1AsIntegerDimconfigrowAsIntegerDimchunbieAsStringPrivateSubCreateDBCmdBtn_Click()SetMySheet=Sheets("农户基本情况档案表")SetMysheetconfig=
6、Sheets("config").[$A$1]IDnofound=0printcount=0myRow=Sheets("jh").[A65535].End(xlUp).Row'从下向上找表格Sheet1--A列第一个非空行,然后取行号startRow=Sheets("农户基本情况档案表").[K4]'起始序号endRow=Sheets("农户基本情况档案表").[K5]'结束序号'Cells(6,11).Value=0IfstartRow>=1AndstartRow<=endRowAndendRow7、("你确定要开始批量生成数据吗?",vbOKCancel)'跳出"打印开始"对话框,点"确定"开始IfPrintFlag=vbOKThen'用户按下“确定”if2Cells(6,11).Value=0Cells(7,11).Value=0IfmyRow>25000EqvmyRow<27000Then'if3IfSheets("农户基本情况档案表").[L10]<11ThenSheets("农户基本情况档案表").[L10]=Sheets("农户基本情况档案表").[L10]+1A
7、("你确定要开始批量生成数据吗?",vbOKCancel)'跳出"打印开始"对话框,点"确定"开始IfPrintFlag=vbOKThen'用户按下“确定”if2Cells(6,11).Value=0Cells(7,11).Value=0IfmyRow>25000EqvmyRow<27000Then'if3IfSheets("农户基本情况档案表").[L10]<11ThenSheets("农户基本情况档案表").[L10]=Sheets("农户基本情况档案表").[L10]+1A
此文档下载收益归作者所有