如何用VBA获取当前页页码.docx

1、如何用VBA获取当前页页码如何用VBA获取当前页页码x = executeexcel4macro(get.document(50)achart.chart.seriescollection1.name:=坐标轴申明;b.页脚:excelapplication1.activesheet.range b3:d4 .borders2.weight := 3;beginexcelapplication1.activesheet.columns1.columnswi dth := 5;dim numpage as integer10) 配置指定行的高度(单位:磅)(1磅=0.035厘米),以第二举动例:

2、next hpbon error resume nextexcelapp.workbooks.open( c:exceldo.xls );msgbox 今朝存储格在第 & numpage & 页excelapp := createoleobject( excel.application );end if8)给二维图加左标申明numpage = numpage + vpcachart.chart.axes(xlcategory, xlprimary).axistitle.characters.text := 下标申明;16) 插进去一行或者一列:excelapplication1.actives

3、heet.rows1.font.underli ne := true;excelapplication1.worksheets2.activate; 或者excelapp.activeworkbook.saved := true;e.顶边距2cm:j.页面铅直居中:activewindow.view = xlpagebreakpreviewif vpb.location.column activecell.column then exit for25) 封闭事情簿:excelapplication1.activesheet.printpreview;achart.chart.axes(xlva

4、lue, xlsecondary).hastitle := true;11)给二维图坐标轴加之申明excelapplication1.worksheets1.rows8.pagebreak := 1;elsec.从a1位置起头粘附:或者if activesheet.pagesetup.order = xldownthenover then14) 断根熬头行第四列单位格公式:f.底边距2cm:在form中别离放入excelapplication, excelworkbook以及excelworksheet if executeexcel4macro(get.document(50) = 0 th

5、ensub 逆页序打印()用vba本人只懂患上总页码儿的要领,时下页码儿就难倒我了,还请vba妙手指头教(三) 施用delphello 节制excle二维图executeexcel4macro (print(2, & 2 * j & , & 2 * j & ,1,2,true,false)i.页面程度居中:achart.chart.charttitle.characters.text:= excle二维图next vpb13) 指定边框线宽度:vb以及vba常识2010-09-14 17:57:46阅览11品题0字号:大中小 定阅 =if(iserror(match(row(),get.doc

6、ument(64),1),1,mat ch(row(),get.document(64),1)+1) =if(isna(match(column(),get.document(65),1,match (column(),get.document(65)+1)achart.chart.plotarea.width := 223;12) 在第8列以前删去分页符:msgbox 请将打印纸逆向装入打印机中, vbokonly, 打印另外一壁=第&if(横当页=1,纵当页,横当页+纵当页)&页/共&总页&页要领一,用vbafor each vpb in activesheet.vpagebreaksac

7、hart:=asheet1.chartobjects.add(100,100,200,200);next i11) 在第8行以前插进去分页符:excelapplication1.saveas( c:exceldo1.xls );g.左面距2cm:end functionexcelapplication1.activesheet.printpreview;3) 新增新事情簿:end sub19) 打印输出事情表:dim hpc as integerexcelapp.activesheet.pagesetup.topmargin := 2/0.035;excelapplication1.activ

8、esheet.pagesetup.headermarg in := 2/0.035;end subexcelapp.activesheet.printout;纵向activesheet.vpagebreaks.count + 1achart.chart.axes(xlvalue, xlprimary).hastitle := true;4.最后再新增第4个名称,再输入:“页眉”,援用位置:function page()7)给二维图加下标申明ptyparam,ptyparam,ptyparam,ptyparam,要领二,用宏表函数与公式sub printactivepage()j.页面铅直居中:

9、2.之后再接续新增第二个名称:“横当页”,鄙人面援用位置处输入:vpc = activesheet.vpagebreaks.count + 123) 事情表另存为:2)增长1个二维图end;c.从a1位置起头粘附:series.add(range,true);excelapp.worksheets2.activate;for i = x to 1 step -1a. excelapp.activesheet.rows2.insert;excelapplication1.caption := 应用步伐挪用 microsoft excel;(二) 施用delphello 控件要领achart.ch

10、art.hastitle:=true;excelapplication1.activesheet.rows1.font.color := clblue;excelapplication1.activesheet.printout;c.页眉到顶点端边距2cm:excelapp.activesheet.printpreview;在excel中配置第几页共几页,绝大部门人会想道用“页面配置”,但你是不是想过将“第n页/总m页”放到肆意单位格中?而不仅只是置于页眉页脚中?excelapp.activesheet.rows1.font.name := 隶字;16) 举行页面配置:hpc = active

11、sheet.hpagebreaks.count + 1excelapplication1.activeworkbook.saved := true;excelworksheet1.connectto(tp_worksheet);excelapp.activesheet.rows1.font.bold := true;5.选中需要预示页码儿的单位格,并在单位格输入这个公式:=第&if(横当页=1,纵当页,横当页+纵当页)&页/共&总页&页,便可获患上需要的页码儿要领二,用宏表函数与公式excelapplication1.activesheet.pagesetup.bottommarg in :=

12、 2/0.035;5.在函数栏施用应用便可获患上需要的页码儿 预示时下页码儿以及勾当文档的总页数: msgbox the selection is on page & _ selection.information(wdactiveendpagenumber) & of page _ & selection.information(wdnumberofpagesindocumente.顶边距2cm:=get.document(50)+随机()*04)给二维图赋值msgbox 今朝存储格在第 & numpage & 页21) 事情表另存为:二、在文本框中界说1个名称(好比“ pagenumber

13、 ” ),新增后鄙人面的“ 援用位置” 中输入“ =if(iserror(match(row(),get.document(64),1),1,mat ch(row(),get.document(64),1)+1) ” (不含双引号,下同),确定撤退退却出;b. excelapp.activesheet.columns1.insert;excelapplication1.activesheet.range.pastespecial;在excel中把页码儿插进去到除页眉页脚外的肆意单位格中page = (activesheet.hpagebreaks.count + 1) * (activeshe

14、et.vpagebreaks.count + 1)sub 奇偶页打印()18) 打印预览事情表:excelapplication1.activesheet.used.range.copy;if intersect(activesheet.usedrange, activecell) is nothellong thenend ifexecuteexcel4macro (print(2, & 2 * i - 1 & , & 2 * i - 1 & ,1,2,true,false)elseexcelapplication1.activesheet.pagesetup.centerhori zont

15、ally := 2/0.035;用vba本人只懂患上总页码儿的要领,时下页码儿就难倒我了,还请vba妙手指头教2010年09月14日series:=achart.chart.seriescollection;1. 起首,按ctrl+f3组合键打开界说名称,再在上边输入“纵当页”,鄙人面援用位置处输入:=get.document(50)+随机()*0for j = 1 to int(x / 2) + 1next获取sheet打印页码儿代码:26) 退出 excel:numpage = 15) 配置第二个事情表为勾当事情表:excelapp.activesheet.pagesetup.center

16、vertically := 2/0.035;excelapplication1.quit;=if(isna(match(column(),get.document(65),1,match (column(),get.document(65)+1)dim vpb as vpagebreakpage = (activesheet.hpagebreaks.count + 1) * (activesheet.vpagebreaks.count + 1)3.再输入“总页”;援用位置处输入:achart.chart.charttype:=4;numpage = numpage + vpc4.最后再界说“页

17、眉”,援用位置:exit subexcelapp.activesheet.range. a1 .pastespecial;9) 在第8行以前插进去分页符:b.页脚:excelapplication1.activesheet.rows1.font.bold := true;excelapplication1.activesheet.columns4.pagebreak := 0;if not excelapp.activeworkbook.saved thenvar asheet1,achart, range:variant;c.页眉到顶点端边距2cm:excelapp.activesheet.

18、pagesetup.centerheader := 报演出示;13) 配置熬头行字体属性:15) 配置熬头行字体属性:for i = 1 to int(x / 2) + 1先判断编页码儿的挨次也就是版面设定的循栏列印或者循列列印取患上页数后再判断今朝存储格是不是在列印规模中next jexcelworkbook1.connectto(excelapplication1.workboo ks.add(ptyparam,0);4) 新增新事情簿:1) 预示时下窗户:if activesheet.pagesetup.order = xldownthenover thenapplication.scr

19、eenupdating = trueexcelapp.activesheet.printpreview;excelapp.quit;在form中别离放入excelapplication, excelworkbook以及excelworksheetvpc = 1起首始于 excel 对于象,施用comobj:excelapplication1.activesheet.range a1:e2 .copy;hpc = 1h.右面距2cm:end ifapplication.screenupdating = trueptyparam,ptyparam,ptyparam,ptyparam,0)activ

20、ewindow.view = xlnormalview24) 抛却保存到磁盘:a. excelapplication1.activesheet.rows2.delete;end subexcelapp.saveas( c:exceldo1.xls );=if(isna(match(row(),get.document(64),1,match(ro w(),get.document(64)+1)b. excelapp.activesheet.columns1.delete;excelapplication1.workbooks.open (c:a.xls三、往后在需要的单位格中输入“ =page

21、number ” 便可迅速获患上时下页码儿数7) 配置指定列的宽度(单位:字符个数),以熬头列为例:2.之后再接续新增第二个名称:“横当页”,鄙人面援用位置处输入:22) 事情表生存:excelapp.activesheet.rows1.font.underline := true;k.打印单位格网线:18) 插进去一行或者一列:22) 抛却保存到磁盘:a. excelapp.activesheet.rows2.delete;numpage = 111) 指定边框线宽度:excelapplication1.activesheet.pagesetup.topmargin := 2/0.035;9

22、)给二维图加右标申明17) 删去一行或者一列:x = executeexcel4macro(get.document(50)excelapp.visible := true;a.复印全般事情表:achart.chart.axes(xlcategory, xlprimary).hastitle := true;10)转变二维图的预示区巨细excelapp.workssheets sheet2 .activate;application.volatile1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / )exit subvpc = 1a. excelapplication1.active

23、sheet.rows2.insert;range:=sheet1!r2c3:r3c9;worksheets.add(ptyparam,ptyparam,ptyparam, ptyparam,0) as _worksheet;b.复印指定地区范围:2) 更改 excel 标题栏:excelapplication1.activesheet.range. a1 .pastespecial;24) 退出 excel:d.从文件尾部起头粘附:excelapplication1.activesheet.pagesetup.centervert ically := 2/0.035;msgbox excel

24、找不到打印的内部实质意义activewindow.view = xlnormalview在excel的统一事情薄中中,我有两张事情表,一张为日生产进度报表,另外一张为周刊表.我需要用一样的宏语言使成为事实双面打印.但不知怎样计数我用鼠标点这儿的日子处,分页符摆列第几?常识点:哄骗宏表函数get.document来获恰时下打印的总页数,再哄骗pagesetup.order(打印的秩序序)、hpagebreaks(程度分页符的调集)、vpagebreaks(铅直分页符的调集)等属性,来算出activecell(时下单位格)的页码儿20) 事情表生存:excelapp.caption := 应用步伐

25、挪用 microsoft excel;b. excelapplication1.activesheet.columns1.insert;要领一,用vba8) 给单位格赋值:2) 预示时下窗户:end ifvpc = activesheet.vpagebreaks.count + 1msgbox excel 找不到列印的内部实质意义application.volatile1-左 2-右 3-顶 4-底 5-斜( ) 6-斜( / )ptyparam,ptyparam,ptyparam,ptyparam,1.起首:点ctrl+f3打开界说名称,再在上边输入“纵当页”,鄙人面援用位置处输入:acti

26、vewindow.selectedsheets.printout from:=if.底边距2cm:d.页脚到尽头端边距3cm:17) 复印操作:if x = 0 thenend ifexcelapp.activesheet.pagesetup.rightmargin := 2/0.035;-*-*msgbox 今朝存储格不在列印规模中i.页面程度居中:excelapplication1.workssheets sheet2 .activate;achart.chart.plotarea.left := 5;achart.chart.axes(xlvalue, xlprimary).axisti

27、tle.characters.text := 左标申明;exit subexcelapp.activesheet.pagesetup.bottommargin := 2/0.035;1)选择当熬头个事情薄熬头个事情表而在excel 2007 中则在东西面板上切换到“ 公式” 选项下,在“ 界说的名称” 选项组中点这儿“ 界说名称” 后的下拉箭头,选择“ 界说名称” 后一样打开“ 新建名称” 会话框,余下的操作跟前边的excel 2003 不异excelapplication1.activesheet.rows2.rowheight := 1/0.035; / 1厘米g.左面距2cm:excelapp.activesheet.cells1,4.clearcontents;横向activesheet.hpagebreaks.count + 1activewindow.view = xlpagebreakpreviewvar tp_worksheet: _worksheet;application.screenupdating = trueexcelapplication1.visible0:=true;7) 配置第二个事情表为勾当事情表:k.打印单