EXCEL表格任一单元格内显示其所在页码

合集下载

excel表格中每一行中查找出某指定的数值.

excel表格中每一行中查找出某指定的数值.

竭诚为您提供优质文档/双击可除excel表格中每一行中查找出某指定的数值.篇一:判断题答案1.dotx格式为启用宏的模板格式,而dotm格式无法启用宏F2.word20xx的屏幕截图功能可以将任何最小化后收藏到任务栏的程序屏幕视图等插入到文档中t3.word20xx在文字段落样式的基础上新增了图片样式,可自定义图片样式并列入到图片样式库中F4.woRd中不但提供了对文档的编辑保护,还可以设置对节分隔的区域内容进行编辑限制和保护。

F5.按一次tab键就右移一个制表位,按一次delete键左移一个制表位。

F6.插入一个分栏符能够将页面分为两栏t7.打印时,在word20xx中插入的批注将与文档内容一起被打印出来,无法隐藏。

F8.分页符、分节符等编辑标记只能在草稿视图中查看F9.拒绝修订的功能等同于撤销操作。

F10.可以通过插入域代码的方法在文档中插入页码,具体方法是先输入花括号“{”、再输入“page”、最后输入花括号“}”即可。

选中域代码后按下“shift”+“F9”,即可显示为当前页的页码。

F11.如果删除了某个分节符,其前面的文字将合并到后面的节中,并且采用后者的格式设置。

F12.13.14.15.如果要在更新域时保留原格式,只要将域代码中“\*meRgeFoRmat”删除即可。

t如需对某个样式进行修改,可点击插入选项卡中的“更改样式”按钮F如需使用导航窗格对文档进行标题导航,必须预先为标题文字设定大纲级别。

t书签名必须以字母、数字或者汉字开头,不能有空格,可以有下划线字符来分隔文字。

F16.位于每节或者文档结尾,用于对文档某些特定字符、专有名词或术语进行注解的注释,就是脚注F17.文档的任何位置都可以通过运用tc域标记为目录项后建立目录。

t18.文档右侧的批注框只用于显示批注。

t19.样式的优先级可以在新建样式时自行设置t20.域就像一段程序代码,文档中显示的内容是域代码运行的结果。

t21.在“根据格式设置创建新样式”对话框中可以新建表格样式,但表格样式在“样式”任务窗格中不显示t22.在审阅时,对于文档中的所有修订标记只能全部接受或全部拒绝。

第6章_电子表格_Excel_2003_基本操作new

第6章_电子表格_Excel_2003_基本操作new
第6章 电子表格 Excel 2003 基本操 作
colorzhe@
2003的基础知识 6.1 Excel 2003的基础知识
6.1.1 Excel2003的工作界面 6.1.2 Excel 2003的基本概念
2003的工作界面 6.1 Excel 2003工作界面除了具有与Word 2003相同的标题栏、菜单栏、工具栏等 Excel 2003的工作界面
打印时如何显示页码? 打印时如何显示页码?
2、窗口的拆分有什么作用? 3、如何实现冻结的效果 4、排序(排名)的实现?(rank()函数,已讲) 5、如何实现上次实验中按收入多少进行扣税处理? (if()函数的嵌套)
6.8 高级应用
技巧1 导入外部数据 技巧2 offset()函数的使用 :
OFFSET函数是EXCEL常用函数中有趣而又实用的一个,它以指定的引用为 参照系,通过给定偏移量得到新的引用。其语法如下: OFFSET(reference,rows,cols,height,width) 参数reference为函数引用基点,它必须是单元格引用,而不能是常量数 组。 函数返回的结果最终为一个单元格引用或单元格区域引用。
输入批量数据 在制作电子表格时,通常要在其中输入批量数据。如果一个一个地输入,这将 十分麻烦且浪费时间,因此,用户可采取特定的方法来输入大批量的数据,以提高 工作效率。 1.输入相同数据 如果要输入批量相同数据,可按照以下操作步骤进行: (1)在某个单元格中输入初始数据。 (2)选中包括该初始数据在内的一个单元格区域。
3.输入日期 日期也是数字,但它们有特定的格式,输入时必须按照特定的格式 才能正确输入。输入日期时,应按照yyyy/mm/dd的格式输入,即先输入 年份,再输入月份,最后输入日,如2010/04/21。如果用户要输入当前日 期,按“Ctrl+;”组合键 即可。

excel中如何让合并单元格中的数据不跨页显示或打印?.doc

excel中如何让合并单元格中的数据不跨页显示或打印?.doc

excel中如何让合并单元格中的数据不跨页显示或打印?Excel打印技巧是工作必备,无需理由!今天给大家科普常用的Excel打印技术,希望能在实际工作中帮到你。

1 自定义设置打印区域2 居中打印3 打印行号和列标4 打印报表中的公式5 打印长报表时每页显示标题行6 将大报表缩放打印为一页7 不显示错误值打印8 打印报表中的批注9 打印页眉页脚10 单色打印,不打印报表中的颜色1 自定义设置打印区域当你只想打印表中的一部分内容时,可以自定义打印区域,方法如下。

选中A1:B10单元格区域后,将其设置为打印区域,在打印时就可以只打印它而忽略其他内容了。

2 居中打印当你想让打印的报表居中时,无论是上下居中,还是左右居中,都可以轻松实现。

勾选“水平”可以设置打印左右居中;勾选“垂直”可以设置打印上下居中。

3 打印行号和列标默认情况下,打印的报表都是不带行号和列标的。

如果你想连同行号列标一并打印出来,如下设置即可。

打印行号和列表后,效果如下图所示。

4 打印报表中的公式当报表中有一些公式,需要在打印时显示出来时,先点击【公式】-【显示公式】再打印即可。

打印效果如下图。

5 打印长报表时每页显示标题行如果你遇到过打印出来的多页报表中,只有第一页有标题行,后面的报表都是直接显示数据而不带标题行......是不是看到数据都不知道它的含义是什么?当打印这类长报表时,Excel可以让每一页都自动带上标题行,只需要你告诉她一声~在页面设置里设置顶端标题行以后,你会惊喜的发现,无论报表多大,跨表显示的报表都会自动带好标题行,超给力!6 将大报表缩放打印为一页无论是你为了节省纸张,还是手头只有B5的纸但却要打印A4表格,你都需要缩放打印。

比如这张报表,默认情况下打印效果如下。

这时候如果你还在手动费劲折腾页边距,那就太OUT 啦!Excel早就准备好了智能缩放打印的选项,记住它的位置吧。

设置好以后,大报表妥妥的放在一页里打印了,如下图所示。

Excel单元格中显示该文件夹内的文件数量或名称

Excel单元格中显示该文件夹内的文件数量或名称

Excel单元格中显示该文件夹内的文件数量或名称1.E xcel单元格中显示该文件夹内的文件数量或名称假设这个文件夹是D:\fda1、插入]-[名称]-[定义],或按CTRL+F3,打开excel→名称管理器→定义一个名称→比如:aaa引用位置输入:=FILES("d:\fda\*.*") &T(NOW())2、然后在任一工作表某一单元格输入:=COUNTA(aaa)则返回文件个数。

3、如果在任一工作表某一单元格输入:=if(row(a1)>counta(aaa),"",index(aaa,row(a1)))4、再下拉公式进行填充,则依序填充文件名。

2.E xcel一列中输入文件名,另一列自动生成指定文件夹同名文件超链接A列为输入文件名,B列返回超链接B1中输入:=HYPERLINK("D:\FDA\"&A1,A1)其中"d:\fda\"为指定文件夹路径。

3.E xcel中怎么把行转换成列复制需转换的单元格行,选择性粘勾选“转置”。

在页面投置工作表选项中勾选单色打印,可以不打印底纹图案。

4.E xcel高亮显示光标所在行或列?在Excel中选择菜单“格式——条件格式”命令,弹出“条件格式”对话框。

在“条件”下拉框中选择“公式”并在右侧中输入下面相应的公式,然后点击“格式”按钮,设置相应的格式,完成后,按“确定”按钮。

不过当前单元格编辑过才行,按过回车。

高亮单元格:条件格式:=CELL("address")=ADDRESS(ROW(),COLUMN())高亮行条件格式:=ROW()=CELL("row")或者:=CELL("row")=ROW()高亮行和列条件格式:=(row()=cell("row"))+(column()=cell("col"))高亮当前单元格为止的相应行和列,呈反L形条件格式:=OR(AND(CELL("row")=ROW(),CELL("col")+1>COLUMN()),AND (CELL("col")=COLUMN(),CELL("row")+1>ROW()))高亮当前单元格为止的相应行和列,呈反L形,且当前单元格背景色改变、字体加粗:条件格式:=CELL("address")=ADDRESS(ROW(),COLUMN())”“=OR(AND(CELL ("row")=ROW(),CELL("col")+1>COLUMN()),AND(CELL("col")=COLUMN(),CE LL("row")+1>ROW()))5.E xcel单元格中插入页码方法(以Excel 2003版本为基础,下文中所有“填写”后跟的内容不包括内容最外侧的全角引号)一、定义引用项(以下定义方法通过单击菜单“插入/名称/定义”弹出定义对话框操作)1、定义“页码”:“名称”中填写“页码”,“引用位置”中填写“=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GE T.DOCUMENT(64),1)+1)”2、定义“总页数”:“名称”中填写“总页数”,“引用位置”中填写“=GET.DOCUMENT(50)+RAND()*0”。

excel单元格跨页被分割的解决方法

excel单元格跨页被分割的解决方法

标题:Excel单元格跨页被分割的解决方法在使用Excel进行数据处理和表格编辑的过程中,经常会遇到单元格内容过长,导致在打印或预览时被分割成多个部分显示在不同页码上的情况。

这不仅影响了表格的整体美观性,也给信息查阅和分析带来了困难。

为了解决这一问题,本文将介绍几种常见的Excel单元格跨页被分割的解决方法。

一、合并单元格在Excel表格中,可以通过合并单元格功能将多个单元格合并为一个大的单元格,从而避免单元格内容被分割到不同页码上的情况。

具体操作步骤如下:1. 选中需要合并的单元格,如A1与B1;2. 在“开始”选项卡中的“对齐”组中找到“合并与居中”按钮,点击下拉箭头,选择“合并单元格”;3. 单元格A1与B1被合并成一个大的单元格,内容将不会被分割到不同页码上。

二、调整行高与列宽有时,单元格内容被分割的原因是因为行高或列宽设置不恰当,导致内容无法完整显示在一页内。

可以通过调整行高与列宽来解决跨页被分割的问题。

具体操作如下:1. 选中需要调整的行或列,如点击A列字母标识,整列被选中;2. 在选中的行或列的边框处双击鼠标,此时Excel将自动调整行高或列宽,使内容完整显示在一页内。

三、设置打印选项在进行打印之前,可以通过设置打印选项来避免单元格内容被分割到不同页码上的情况。

具体操作如下:1. 点击“文件”选项卡,选择“打印”;2. 在打印预览页面,点击“页面设置”按钮;3. 在弹出的页面设置对话框中,选择“工作表”选项卡;4. 在“缩放”部分,将“调整为”设置为一个合适的百分比,如80或90,可以使表格内容自动缩小适应一页内展示,避免内容被分割。

四、使用文本换行如果单元格内容确实过长,并且不方便调整行高或列宽,可以使用文本换行的方式来解决跨页被分割的问题。

具体操作如下:1. 选中需要进行文本换行的单元格,如A1;2. 在Excel顶部的“开始”选项卡中找到“对齐”组,点击“换行”按钮;3. 此时,单元格A1的内容将会在适当的位置进行换行,以保证内容在一页内完整显示。

wps怎么设置表格

wps怎么设置表格

竭诚为您提供优质文档/双击可除wps怎么设置表格篇一:wps20xxexcel表格页码设置wps20xxexcel表格页码设置一、插入普通页码:点击预览按钮:单击“页眉和页脚,在“页面设置”对话框中的“页眉/页脚”选项卡下单击“自定义页脚”按钮。

(如图1) 在打开的“页脚”对话框中单击“中”下边的空白框(意思是最终让页码居中显示),然后单击插入页码按钮(“#号”按钮),这时会在“中”下的框中显示出“&[页码]”,最后依次单击“确定”退出。

(如图2)图2三、把起始页改为非1页:有时我们打印时想让第一页的页码显示为第n页或第n 页,这时我们可以在打开的“页脚”对话框中单击“中”下边的空白框后单击“#号”按钮插入页码,单击“确定”返回到“页面设置”对话框,选择“页面”选项卡,在下边的“起始页码”框中把“自动”改为数字n,然后再点“确定”退出,这样第1页的页码就会变成n。

(如图3)n——为任意正数。

3篇二:wps文字转换成表格的方法用wps文字的表格功能将文档转换成表格石如东20xx年12月5日星期四一、“转换”的作用1、大幅减少复制的网络文章或表格的排版量;2、方便快捷地对一些条例性文档进行排版。

二、“转换”的形式1、直接在wps文字中用文本中自带的表格转换;2、用记事本转换到wps的et中。

三、“转换”的方法1、用wps文字中的插入表格功能转换文档这种转换方式只需3步即可完成,即:选中文档→表格→转换→得到表格。

举例:按照上述步骤,把下面的文档转换成表格并重新排版。

11%置业资产管理预约10.5%地产资产管理预约9.2%本地资产管理预约分析:首先,找出具有共用分隔特征的符号作为转换后表格线的识别符号。

本例中,每行中的“空格”和换行“回车”具备“共用分隔特征”。

每行的空格将作为转换后表格“列”的表格线出现,例如“11%”和“置业资产管理”之间,以及与“预约”之间的空格,转换后将成为“列”的表格线。

Excel高级实用技巧最新版(新手必看)

Excel高级实用技巧最新版(新手必看)

Excel⾼级实⽤技巧最新版(新⼿必看)Excel⾼级实⽤技巧1.如何⽤Excel快速删除⼤量空⽩⾏2.如何⽤Excel快速计算带汉字的数据3.如何⽤Word快速打出公司员⼯桌牌4.如何⽤Excel做动态考勤表5.如何⽤Excel在数字后统⼀添加汉字6.如何⽤Excel⼀次性把所有空格填上缺勤7.如何⽤Excel在表格打印前插⼊⼿写签名8.如何在Excel⽤公式统计每天播放量9.如何在Excel内快速打出⼀万个序号10.如何给Excel表格加锁,只许填写不需修改11.如何⽤Word快速对齐⽂案12.如何批量⽣产考试桌签13.如何在Excel内⾃动添加单元格边框14.如何⽤Excel把⽇期转换为星期15.如何在Excel内隐藏答案,批量制作填空题16.如何⽤Excel制作库存表17.如何⽤Excel快速统⼀添加单位18.如何快速复制填充格式19.如何⽤Excel快速制作⼯资条20.如何快速调整Excel表格的⾏⾼与列宽21.如何对多⾏多列的数据进⾏求和汇总22.Excel中的快捷键23.如何⽤Excel把相似数据变成相同格式24.如何⽤Word把⽂档⾥的图⽚⼀次性全部提取出来25.如何⽤Excel快速把竖长数据变成矩形数据26.如何⽤Excel通过⾝份证号计算年龄和提取出⽣⽇期27.如何把Excel多表数据合并28.如何⽤Excel快速判断成绩是否及格29.如何快速对齐Word中的名字30.如何⽤Excel跨⾏求和31.如何⽤Word⽂档打钩打叉32.如何让图⽚跟随单元格变化33.如何将单元格⼀次性合并34.如何在Excel为汉字添上拼⾳35.如何在Word内插⼊图⽚不变形36.如何⽤Excel按部门添加序号排序37.如何⽤Excel批量添加表头38.如何⽤Excel快速合并两列数据39.如何把图⽚中的⽂字转成Word⽂档40.如何⽤Excel在两组相似数据中找出不同项41.如何⽤Excel表格隔⾏智能填充42.如何⽤Excel建⽴查询表43.如何将多个单元格的⽂字合并到⼀个单元格44.如何⽤Word进⾏⼿写签名45.如何⽤Excel为不连续区域添加递增的序列号46.如何快速找出两⾏相似数据的差别47.如何⽤Excel跨⾏填充公式48.如何快速⽤Excel计算数值49.如何快速解决图⽚提取⽂字后排版不同50.如何⽤Excel快速核对表格数据51.如何⽤Excel隔列求和52.如何在Excel内⾃动录⼊⽇期时间53.如何将表格合并并保留之前的内容54.如何⽤IF函数进⾏计算55.如何排除表格中重复的数据,将不重复的数据提取出来56.如何⾃动调整列宽57.如何快速录⼊员⼯姓名58.如何快速汇总表格59.如何⽤Excel统计数据出现的次数60.如何快速录⼊相似信息61.如何⽤Excel批量导⼊图⽚62.如何在数据库中选中数据单独求和63.如何⽤Word进⾏数据求和64.如何⽤Excel⼀键求和65.如何快速建⽴下拉菜单66.如何快速为数字排序67.如何在Word中⼀次性调整图⽚⼤⼩68.如何Word转Excel表格不变形69.如何插⼊⾏公式⾃动更新70.如何把⼯资表变为⼯资条71.如何对不连续区域的数字求和72.如何把照⽚放在名字上73.如何将Excel表格中的数字同时加减74.如何在数据库中计算其中⼀个产品的总销量75.如何⽤Word让页码从第三页开始76.如何在打印机没有扫描功能时复印⽂件77.如何填充帯圈数字序号78.隐藏Excel⽂本内容79.如何合并表格数据80.如何⽤数据透视表⾃动添加和删除项⽬81.如何在Excel内查看函数82.如何让微信发送超过25M的视频83.如何删除页眉横线84.如何将多⾏内容合并到⼀个单元格85.如何将合并的内容拆分到多个单元格86.如何同时给7张表添加表头87.如何为电话号码加密88.⼀秒删除全部批注89.如何设置为单⾊打印90.如何在Excel内隐藏零值91.如何对房号进⾏排序92.检验号码位数是否错误93.如何在复制时不复制隐藏数据94.如何制作组织架构图95.如何批量合并单元格96.如何把Word中的⽂字转换为表格97.如何在Word中让⽂字适应单元格⼤⼩98.如何将有加减乘除的算式批量计算结果99.如何快速计算分段提成100.如何在Excel中快速添加下划线1.如何⽤Excel快速删除⼤量空⽩⾏答:选中所有数据,按Ctrl+G,调出定位对话框。

EXCEL表格任一单元格内显示其所在页码

EXCEL表格任一单元格内显示其所在页码

EXCEL表格的任一当前单元格内显示其所在页码方法一、首先调整视图为页面视图,横向只有一个分页符,则用下面的方法非常简便在插入→名称→定义→新建,定义一个名称:PageNumber,当然也可以取一个你喜欢的名字比如:Love,在引用位置中输入=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GET.DOCUMENT(64),1) +1)在当单元格中输入“=PageNumber”,回车,OK二、若页面视图,横向有多个分页符,则(一)在插入→名称→定义→新建,定义一个名称:PageNumber,在引用位置中粘贴输入=IF(GET.DOCUMENT(61),(IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),GET.DOCUMENT(10) )),0,FREQUENCY(GET.DOCUMENT(64),GET.DOCUMENT(10)))+1)*IF(ISERROR(FREQUENCY(GE T.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT(65),Column()))+IF(ISERROR(FR EQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64),Row()))+1,(IF(ISE RROR(FREQUENCY(GET.DOCUMENT(65),GET.DOCUMENT(12))),0,FREQUENCY(GET.DOCUME NT(65),GET.DOCUMENT(12)))+1)*IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FRE QUENCY(GET.DOCUMENT(64),Row()))+IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Colum n())),0,FREQUENCY(GET.DOCUMENT(65),Column()))+1)*ISNUMBER(NOW())(二)上述公式不便于阅读,转换为VBA便于阅读:VBA代码如下:Sub 定义页码及总页数名称()' 定义页码及总页数名称Macro'一个文件第一次使用前须先运行一遍本宏以后则不必了,s.Add Name:="ColFirst", RefersToR1C1:= _"=GET.DOCUMENT(61)" '判断打印顺序的设置类型s.Add Name:="lstRow", RefersToR1C1:= _"=GET.DOCUMENT(10)" '本工作表已用到的最大行数s.Add Name:="lstColumn", RefersToR1C1:= _"=GET.DOCUMENT(12)" '本工作表已用到的最大列数s.Add Name:="hNum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64), Row()))" 'hNum为本单元格上方的水平分页符个数s.Add Name:="vNum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT( 65),Column()))" ''本单元格左边的垂直分页个数s.Add Name:="hSum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),lstRow)),0,FREQUENCY(GET.DOCUMENT(64 ),lstRow))" ''本工作表最后一个单元格上方的水平分页符个数s.Add Name:="vSum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),lstColumn)),0,FREQUENCY(GET.DOCUMENT (65),lstColumn))" ''本工作表最后一个单元格左边的垂直分页个数s.Add Name:="ThisPageNo", RefersToR1C1:= _"=IF(ColFirst,(hSum+1)*vNum+hNum+1,(vSum+1)*hNum+vNum+1)*ISNUMBER(NOW())" '单元格所在页码s.Add Name:="PagesCount", RefersToR1C1:= _"=GET.DOCUMENT(50)*ISNUMBER(NOW())" '本工作表的总页数End Sub使用方法:⑴将代码粘贴进工具--宏--VB编辑器;⑵点击开发工具--宏,找到并点击“定义页码及总页数名称”,再点击运行;⑶在任一单元格输入公式“=ThisPageNo”则在当前单元格显示该单元格所在页码;⑷在任一单元格输入公式“=PagesCount”,则显示总页数;⑸输入“=TEXT(ThisPageNo,"第0页")&TEXT(PagesCount,"共0页") ”,在同一单元格显示当前页码和总页数三、关于用到的宏函数知识补充:GET.DOCUMENT(type_num, name_text)Type_num 指明信息类型的数。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

EXCEL表格的任一当前单元格内显示其所在页码方法一、首先调整视图为页面视图,横向只有一个分页符,则用下面的方法非常简便在插入→名称→定义→新建,定义一个名称:PageNumber,当然也可以取一个你喜欢的名字比如:Love,在引用位置中输入=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GET.DOCUMENT(64),1) +1)在当单元格中输入“=PageNumber”,回车,OK二、若页面视图,横向有多个分页符,则(一)在插入→名称→定义→新建,定义一个名称:PageNumber,在引用位置中粘贴输入=IF(GET.DOCUMENT(61),(IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),GET.DOCUMENT(10) )),0,FREQUENCY(GET.DOCUMENT(64),GET.DOCUMENT(10)))+1)*IF(ISERROR(FREQUENCY(GE T.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT(65),Column()))+IF(ISERROR(FR EQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64),Row()))+1,(IF(ISE RROR(FREQUENCY(GET.DOCUMENT(65),GET.DOCUMENT(12))),0,FREQUENCY(GET.DOCUME NT(65),GET.DOCUMENT(12)))+1)*IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FRE QUENCY(GET.DOCUMENT(64),Row()))+IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Colum n())),0,FREQUENCY(GET.DOCUMENT(65),Column()))+1)*ISNUMBER(NOW())(二)上述公式不便于阅读,转换为VBA便于阅读:VBA代码如下:Sub 定义页码及总页数名称()' 定义页码及总页数名称Macro'一个文件第一次使用前须先运行一遍本宏以后则不必了,s.Add Name:="ColFirst", RefersToR1C1:= _"=GET.DOCUMENT(61)" '判断打印顺序的设置类型s.Add Name:="lstRow", RefersToR1C1:= _"=GET.DOCUMENT(10)" '本工作表已用到的最大行数s.Add Name:="lstColumn", RefersToR1C1:= _"=GET.DOCUMENT(12)" '本工作表已用到的最大列数s.Add Name:="hNum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64), Row()))" 'hNum为本单元格上方的水平分页符个数s.Add Name:="vNum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT( 65),Column()))" ''本单元格左边的垂直分页个数s.Add Name:="hSum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),lstRow)),0,FREQUENCY(GET.DOCUMENT(64 ),lstRow))" ''本工作表最后一个单元格上方的水平分页符个数s.Add Name:="vSum", RefersToR1C1:= _"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),lstColumn)),0,FREQUENCY(GET.DOCUMENT (65),lstColumn))" ''本工作表最后一个单元格左边的垂直分页个数s.Add Name:="ThisPageNo", RefersToR1C1:= _"=IF(ColFirst,(hSum+1)*vNum+hNum+1,(vSum+1)*hNum+vNum+1)*ISNUMBER(NOW())" '单元格所在页码s.Add Name:="PagesCount", RefersToR1C1:= _"=GET.DOCUMENT(50)*ISNUMBER(NOW())" '本工作表的总页数End Sub使用方法:⑴将代码粘贴进工具--宏--VB编辑器;⑵点击开发工具--宏,找到并点击“定义页码及总页数名称”,再点击运行;⑶在任一单元格输入公式“=ThisPageNo”则在当前单元格显示该单元格所在页码;⑷在任一单元格输入公式“=PagesCount”,则显示总页数;⑸输入“=TEXT(ThisPageNo,"第0页")&TEXT(PagesCount,"共0页") ”,在同一单元格显示当前页码和总页数三、关于用到的宏函数知识补充:GET.DOCUMENT(type_num, name_text)Type_num 指明信息类型的数。

下表列出type_num 的可能值与对应结果。

Type_num 返回1 如果工作簿中不只一张表,用文字形式以“[Book1]Sheet1”的格式返回工作表的文件名。

否则,只返回工作簿的文件名。

工作簿文件名不包括驱动器,目录或窗口编号。

通常最好使用GET. DOCUMENT(76) 和GET. DOCUMENT(88) 来返回活动工作表和活动工作簿的文件名。

2 作为文字,包括name_text的目录的路径。

如果工作簿name_text未被保存,返回错误值#N/A。

3 指明文件类型的数1 = 工作表2 = 图表3 = 宏表4 = 活动的信息窗口5 = 保留文件6 = 模块表7 = 对话框编辑表4 如果最后一次存储文件后表发生了变化,返回TRUE;否则,返回FALSE。

5 如果表为只读,返回TRUE;否则,返回FALSE。

6 如果表设置了口令加以保护,返回TRUE;否则,返回FALSE。

7 如果表中的单元格,表中的内容或图表中的系列被保护,返回TRUE;否则,返回FALSE。

8 如果工作簿窗口被保护,返回TRUE;否则,返回FALSE。

下面四个type_num的数值只用于图表。

Type_num 返回9 指示主图表的类型的数。

1 = 面积图2 = 条形图3 = 柱形图4 = 折线形5 = 饼形6 = XY (散点图)7 = 三维面积图8 = 三维柱形图9 = 三维折线图10 = 三维饼图11 = 雷达图12 = 三维等形图13 = 三维曲面图14 = 圆环图10 指示覆盖图表类型的数,同以上主图表的1,2,3,4,5,6,11和14。

没有覆盖图表的情况下返回错误值#N/A11 主图表系列的数12 覆盖图表系列的数下列Type_num 的值用于工作表,宏表,在适当的时候用于图表。

Type_num 返回9 第一个使用行的编号。

如文件是空的,返回零。

10 最后一个使用行的偏号。

如文件是空的,返回零。

11 第一个使用列的编号。

如文件是空的,返回零。

12 最后一个使用列的编号。

如文件是空的,返回零。

13 窗口的编号。

14 指明计算方式的数。

1 = 自动生成有2 = 除表格外自动生成3 = 手动15 如果在[选项]对话框的[重新计算]标签下选择[迭代计算]选择框,返回TRUE;否则,返回FALSE。

16 最多迭代次数。

17 迭代计算最大误差。

18 如果在[选项]对话框的[重新计算]标签下选择[更新远程引用]选择框,返回TRUE;否则,返回FALSE。

19 如果在[选项]对话框的[重新计算]标签下选择[以显示精度为准]选择框,返回TRUE;否则,返回FALSE。

20 如果在[选项]对话框的[重新计算]标签下选择[1904年日期系统]选择框,返回TRUE;否则,返回FALSE。

Type_num 是21-29之间的数,对应于Microsoft Excel先前版本的四种默认字体。

提供这些值是为了宏的兼容性。

下列Type_num 数值应用于工作表,宏表和指定的图表。

Type_num 返回30 以文字形式返回当前表合并引用的水平数组。

如果列表是空的,返回错误值#N/A。

31 1至11之间的一个数,指明用于当前合并的函数。

对应于每个数的函数列于下面CONSOLIDATE函数中,默认函数为SUM。

32 三项水平数组,用于指明Data Consolidate对话框中选择框的状态。

如果此项为TRUE,选择选择框;如果此项为FALSE,清除选择框. 第一项指明[顶端行]选择框,第二项指[最左列]选择框,第三项指[与源数据链接]选择框。

33 如果选择了[选项]对话框的[重新计算]标签下的[保存前自动重算]选择框,返回TRUE;否则,返回FALSE。

34 如工作簿定义为只读,返回TRUE;否则,返回FALSE。

35 工作簿为写保护,返回TRUE;否则,返回FALSE。

36 如文件设置了写保护口令,并以可读/可写方式打开,返回最初使用写保护口令存文件的用户的名字。

如文件以只读形式打开,或文件未设置口令,返回当前用户的名字。

37 对应于显示在[另存为]对话框中的文档的文件类型。

所有Microsoft Excel可识别的文件类型列于SAVE.AS函数中。

38 如果选择了[分级显示设置]对话框中的[明细数据的下方]选择框,返回TRUE;否则,返回FALSE。

39 如果选择了[分级显示设置]对话框中的[明细数据的右侧]选择框,返回TRUE;否则,返回FALSE。

40 如果选择了[另存为]对话框中的[生成备份文件]选择框,返回TRUE;否则,返回FALSE。

相关文档
最新文档