農(nóng)戶信用信息 excel vba code

《農(nóng)戶信用信息 excel vba code》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、農(nóng)戶信用信息excelvbacodeDimiAsIntegerWorksheets("Sheet1").ActivateFori=1To14Range(Cells(i,1),Cells(i,2)).SelectSelection.CreateNamesTop:=False,Left:=True,Bottom:=False,Right:=FalseNextiEndSubPrivateSubBatchPrintCmdBtn_Click()'批量打印IDnofound=0printcount=0myRow=Sheets("農(nóng)戶數(shù)據(jù)庫").[A65535].End(xlUp).Row'從

2、下向上找表格Sheet1--A列第一個(gè)非空行，然后取行號(hào)startRow=Sheets("批量打印").[K4]'起始記錄號(hào)endRow=Sheets("批量打印").[K5]'結(jié)束記錄號(hào)'Cells(6,11).Value=0IfstartRow>=1AndstartRow<=endRowAndendRow

3、,11).Value=0ForR=startRowToendRow'循環(huán)打印庫Application.StatusBar="請(qǐng)耐心等候,按“ESC”中斷,正在打印記錄"&R&"..."Cells(4,11).Value=R'改變單元格行1列9的數(shù)值,該值決定了打印的序號(hào)行'批量打印Application.Caption="農(nóng)戶基本情況檔案"&RSheets("批量打印").PrintOut'打印工作表“農(nóng)戶基本情況檔案表”printcount=printcount+1Cells(6,11).Value=printcount'打印記錄數(shù)DoEventsNextElse'用戶按下“取

4、消”End'結(jié)束打印EndIfElseMsgBox"起始記錄號(hào)或結(jié)束記錄輸入有誤!，超始記錄號(hào)應(yīng)大于1，小于總記錄數(shù)"'超始記錄號(hào)/結(jié)束記錄號(hào)值超出數(shù)據(jù)范圍則結(jié)束,彈出錯(cuò)誤提示.EndIfEndSub============================================================'該代碼僅僅適用于我社的數(shù)據(jù)，如果非授權(quán)人員自行運(yùn)行或修改造成數(shù)據(jù)丟失或破壞由自行負(fù)責(zé)DimDBstartrowAsIntegerDimmyRowAsInteger,RAsInteger,MAsInteger'定義變量DimstartRowAsInteger,end

5、RowAsIntegerDimPrintFlagDimprintcountAsInteger'打印的記錄個(gè)數(shù)DimIDnofoundAsInteger'身份證在公安戶口查不到記錄數(shù)DimitemCountAsInteger'農(nóng)戶數(shù)據(jù)庫字段個(gè)數(shù)Dimaddress1AsStringDimmoneyAsIntegerDimmoney1AsIntegerDimconfigrowAsIntegerDimchunbieAsStringPrivateSubCreateDBCmdBtn_Click()SetMySheet=Sheets("農(nóng)戶基本情況檔案表")SetMysheetconfig=

6、Sheets("config").[$A$1]IDnofound=0printcount=0myRow=Sheets("jh").[A65535].End(xlUp).Row'從下向上找表格Sheet1--A列第一個(gè)非空行，然后取行號(hào)startRow=Sheets("農(nóng)戶基本情況檔案表").[K4]'起始序號(hào)endRow=Sheets("農(nóng)戶基本情況檔案表").[K5]'結(jié)束序號(hào)'Cells(6,11).Value=0IfstartRow>=1AndstartRow<=endRowAndendRow

7、("你確定要開始批量生成數(shù)據(jù)嗎?",vbOKCancel)'跳出"打印開始"對(duì)話框,點(diǎn)"確定"開始IfPrintFlag=vbOKThen'用戶按下“確定”if2Cells(6,11).Value=0Cells(7,11).Value=0IfmyRow>25000EqvmyRow<27000Then'if3IfSheets("農(nóng)戶基本情況檔案表").[L10]<11ThenSheets("農(nóng)戶基本情況檔案表").[L10]=Sheets("農(nóng)戶基本情況檔案表").[L10]+1A