关闭

关闭

关闭

封号提示

内容

首页 Excel使用技巧.pdf

Excel使用技巧.pdf

Excel使用技巧.pdf

qw956 2017-09-10 评分 0 浏览量 0 0 0 0 暂无简介 简介 举报

简介:本文档为《Excel使用技巧pdf》,可适用于IT/计算机领域,主题内容包含EXCEL基本操作技巧荟萃目录Part:EXCEL使用六技巧Part:EXCEL自学资料第一集Part:EXCEL自学资料第二集Part:一天一个小符等。

EXCEL基本操作技巧荟萃目录Part:EXCEL使用六技巧Part:EXCEL自学资料第一集Part:EXCEL自学资料第二集Part:一天一个小技巧Part:EXCEL技巧汇总Part:EXCEL基础知识技巧在线教程Part:EXCEL运用技巧汇总Part:EXCEL操作基础篇Part:EXCEL问题集锦本文由QuentinLin收集整理于西元年月日Part:EXCEL使用六技巧返回首页编辑技巧()分数的输入如果直接输入ldquordquo系统会将其变为ldquo月日rdquo解决办法是:先输入ldquordquo然后输入空格再输入分数ldquordquo。()序列ldquordquo的输入如果直接输入ldquordquo系统会自动判断为数据解决办法是:首先输入ldquo#rdquo(西文单引号)然后输入ldquordquo。()日期的输入如果要输入ldquo月日rdquo直接输入ldquordquo再敲回车就行了。如果要输入当前日期按一下ldquoCtrlrdquo键。()填充条纹如果想在工作簿中加入漂亮的横条纹可以利用对齐方式中的填充功能。先在一单元格内填入ldquo*rdquo或ldquo~rdquo等符号然后单击此单元格向右拖动鼠标选中横向若干单元格单击ldquo格式rdquo菜单选中ldquo单元格rdquo命令在弹出的ldquo单元格格式rdquo菜单中选择ldquo对齐rdquo选项卡在水平对齐下拉列表中选择ldquo填充rdquo单击ldquo确定rdquo按钮。()多张工作表中输入相同的内容几个工作表中同一位置填入同一数据时可以选中一张工作表然后按住Ctrl键再单击窗口左下角的Sheet、Sheet来直接选择需要输入相同内容的多个工作表接着在其中的任意一个工作表中输入这些相同的数据此时这些数据会自动出现在选中的其它工作表之中。输入完毕之后再次按下键盘上的Ctrl键然后使用鼠标左键单击所选择的多个工作表解除这些工作表的联系否则在一张表单中输入的数据会接着出现在选中的其它工作表内。()不连续单元格填充同一数据选中一个单元格按住Ctrl键用鼠标单击其他单元格就将这些单元格全部都选中了。在编辑区中输入数据然后按住Ctrl键同时敲一下回车在所有选中的单元格中都出现了这一数据。()利用Ctrl+*选取文本如果一个工作表中有很多数据表格时可以通过选定表格中某个单元格然后按下Ctrl+*键可选定整个表格。Ctrl+*选定的区域为:根据选定单元格向四周辐射所涉及到的有数据单元格的最大区域。这样我们可以方便准确地选取数据表格并能有效避免使用拖动鼠标方法选取较大单元格区域时屏幕的乱滚现象。()快速清除单元格的内容如果要删除内容的单元格中的内容和它的格式和批注就不能简单地应用选定该单元格然后按Delete键的方法了。要彻底清除单元格,可用以下方法:选定想要清除的单元格或单元格范围单击ldquo编辑rdquo菜单中ldquo清除rdquo项中的ldquo全部rdquo命令这些单元格就恢复了本来面目。、单元格内容的合并根据需要有时想把B列与C列的内容进行合并如果行数较少可以直接用ldquo剪切rdquo和ldquo粘贴rdquo来完成操作但如果有几万行就不能这样办了。解决办法是:在C列后插入一个空列(如果D列没有内容就直接在D列操作)在D中输入ldquo=BCrdquoD列的内容就是B、C两列的和了。选中D单元格用鼠标指向单元格右下角的小方块ldquordquo当光标变成+后按住鼠标拖动光标向下拖到要合并的结尾行处就完成了B列和C列的合并。这时先不要忙着把B列和C列删除先要把D列的结果复制一下再用ldquo选择性粘贴rdquo命令将数据粘贴到一个空列上。这时再删掉B、C、D列的数据。下面是一个ldquordquo实际应用的例子。用AutoCAD绘图时有人喜欢在EXCEL中存储坐标点在绘制曲线时调用这些参数。存放数据格式为ldquoxyrdquo的形式首先在Excel中输入坐标值将x坐标值放入A列y坐标值放入到B列然后利用ldquordquo将A列和B列合并成C列在C中输入:=AB此时C中的数据形式就符合要求了再用鼠标向下拖动C单元格完成对A列和B列的所有内容的合并。合并不同单元格的内容还有一种方法是利用CONCATENATE函数此函数的作用是将若干文字串合并到一个字串中具体操作为ldquo=CONCATENATE(B,C)rdquo。比如假设在某一河流生态调查工作表中B包含ldquo物种rdquo、B包含ldquo河鳟鱼rdquoB包含总数那么:输入ldquo=CONCATENATE(本次河流生态调查结果:BB为B条公里。)rdquo计算结果为:本次河流生态调查结果:河鳟鱼物种为条公里。、条件显示我们知道利用If函数可以实现按照条件显示。一个常用的例子就是教师在统计学生成绩时希望输入以下的分数时能显示为ldquo不及格rdquo输入以上的分数时显示为ldquo及格。这样的效果利用IF函数可以很方便地实现。假设成绩在A单元格中判断结果在A单元格中。那么在A单元格中输入公式:=if(Aldquo不及格rdquoldquo及格rdquo)同时在IF函数中还可以嵌套IF函数或其它函数。例如如果输入:=if(Aldquo不及格rdquoif(A=ldquo及格rdquoldquo优秀))就把成绩分成了三个等级。如果输入=if(Aldquo差if(A=ldquo中rdquoif(Aldquo良rdquoldquo优rdquo)))就把成绩分为了四个等级。再比如公式:=if(SUM(A:ASUM(A:A))此式就利用了嵌套函数意思是当A至A的和大于时返回这个值如果小于那么就返回。还有一点要提醒你注意:以上的符号均为半角而且IF与括号之间也不能有空格。、自定义格式Excel中预设了很多有用的数据格式基本能够满足使用的要求但对一些特殊的要求如强调显示某些重要数据或信息、设置显示条件等就要使用自定义格式功能来完成。Excel的自定义格式使用下面的通用模型:正数格式负数格式零格式文本格式在这个通用模型中包含三个数字段和一个文本段:大于零的数据使用正数格式小于零的数据使用负数格式等于零的数据使用零格式输入单元格的正文使用文本格式。我们还可以通过使用条件测试添加描述文本和使用颜色来扩展自定义格式通用模型的应用。()使用颜色要在自定义格式的某个段中设置颜色只需在该段中增加用方括号括住的颜色名或颜色编号。Excel识别的颜色名为:黑色、红色、白色、蓝色、绿色、青色和洋红。Excel也识别按颜色X指定的颜色其中X是至之间的数字代表种颜色(如图)。()添加描述文本要在输入数字数据之后自动添加文本使用自定义格式为:"文本内容"要在输入数字数据之前自动添加文本使用自定义格式为:"文本内容"。符号的位置决定了Excel输入的数字数据相对于添加文本的位置。()创建条件格式可以使用六种逻辑符号来设计一个条件格式:(大于)、=(大于等于)、(小于)、=(小于等于)、=(等于)、(不等于)如果你觉得这些符号不好记就干脆使用ldquordquo或ldquo=rdquo号来表示。由于自定义格式中最多只有个数字段Excel规定最多只能在前两个数字段中包括个条件测试满足某个测试条件的数字使用相应段中指定的格式其余数字使用第段格式。如果仅包含一个条件测试则要根据不同的情况来具体分析。自定义格式的通用模型相当于下式:正数格式负数格式零格式文本格式。下面给出一个例子:选中一列然后单击ldquo格式rdquo菜单中的ldquo单元格rdquo命令在弹出的对话框中选择ldquo数字rdquo选项卡在ldquo分类rdquo列表中选择ldquo自定义rdquo然后在ldquo类型rdquo文本框中输入ldquo正数:($#,##)负数:($#,##)零文本:rdquo单击ldquo确定rdquo按钮完成格式设置。这时如果我们输入ldquordquo就会在单元格中显示ldquo正数:($)rdquo如果输入ldquordquo就会在单元格中显示ldquo负数:($)rdquo如果输入ldquordquo就会在单元格中显示ldquo零rdquo如果输入文本ldquothisisabookrdquo就会在单元格中显示ldquo文本:thisisabookrdquo。如果改变自定义格式的内容ldquo红色正数:($#,##)蓝色负数:($#,##)黄色零文本:rdquo那么正数、负数、零将显示为不同的颜色。如果输入ldquoBlueRedYellowGreenrdquo那么正数、负数、零和文本将分别显示上面的颜色。再举一个例子假设正在进行帐目的结算想要用蓝色显示结余超过$的帐目负数值用红色显示在括号中其余的值用缺省颜色显示可以创建如下的格式:ldquo蓝色$#,##)红色($#,##)$#,##)rdquo使用条件运算符也可以作为缩放数值的强有力的辅助方式例如如果所在单位生产几种产品每个产品中只要几克某化合物而一天生产几千个此产品那么在编制使用预算时需要从克转为千克、吨这时可以定义下面的格式:ldquo#,##,,m吨##,km千克#k克rdquo可以看到使用条件格式千分符和均匀间隔指示符的组合不用增加公式的数目就可以改进工作表的可读性和效率。另外我们还可以运用自定义格式来达到隐藏输入数据的目的比如格式"##"只显示负数和零输入的正数则不显示格式ldquordquo则隐藏所有的输入值。自定义格式只改变数据的显示外观并不改变数据的值也就是说不影响数据的计算。灵活运用好自定义格式功能将会给实际工作带来很大的方便。、批量删除空行有时我们需要删除Excel工作薄中的空行一般做法是将空行一一找出然后删除。如果工作表的行数很多这样做就非常不方便。我们可以利用ldquo自动筛选rdquo功能把空行全部找到然后一次性删除。做法:先在表中插入新的一个空行然后按下CtrlA键选择整个工作表用鼠标单击ldquo数据rdquo菜单选择ldquo筛选rdquo项中的ldquo自动筛选rdquo命令。这时在每一列的顶部都出现一个下拉列表框在典型列的下拉列表框中选择ldquo空白rdquo直到页面内已看不到数据为止。在所有数据都被选中的情况下单击ldquo编辑rdquo菜单选择ldquo删除行rdquo命令然后按ldquo确定rdquo按钮。这时所有的空行都已被删去再单击ldquo数据rdquo菜单选取ldquo筛选rdquo项中的ldquo自动筛选rdquo命令工作表中的数据就全恢复了。插入一个空行是为了避免删除第一行数据。如果想只删除某一列中的空白单元格而其它列的数据和空白单元格都不受影响可以先复制此列把它粘贴到空白工作表上按上面的方法将空行全部删掉然后再将此列复制粘贴到原工作表的相应位置上。、如何避免错误信息在Excel中输入公式后有时不能正确地计算出结果并在单元格内显示一个错误信息这些错误的产生有的是因公式本身产生的有的不是。下面就介绍一下几种常见的错误信息并提出避免出错的办法。1)错误值:####含义:输入到单元格中的数据太长或单元格公式所产生的结果太大使结果在单元格中显示不下。或是日期和时间格式的单元格做减法出现了负值。解决办法:增加列的宽度使结果能够完全显示。如果是由日期或时间相减产生了负值引起的可以改变单元格的格式比如改为文本格式结果为负的时间量。2)错误值:#DIV!含义:试图除以。这个错误的产生通常有下面几种情况:除数为、在公式中除数使用了空单元格或是包含零值单元格的单元格引用。解决办法:修改单元格引用或者在用作除数的单元格中输入不为零的值。3)错误值:#VALUE!含义:输入引用文本项的数学公式。如果使用了不正确的参数或运算符或者当执行自动更正公式功能时不能更正公式都将产生错误信息#VALUE!。解决办法:这时应确认公式或函数所需的运算符或参数正确并且公式引用的单元格中包含有效的数值。例如单元格C中有一个数字或逻辑值而单元格D包含文本则在计算公式=C+D时系统不能将文本转换为正确的数据类型因而返回错误值#VALUE!。4)错误值:#REF!含义:删除了被公式引用的单元格范围。解决办法:恢复被引用的单元格范围或是重新设定引用范围。5)错误值:#NA含义:无信息可用于所要执行的计算。在建立模型时用户可以在单元格中输入#NA以表明正在等待数据。任何引用含有#NA值的单元格都将返回#NA。解决办法:在等待数据的单元格内填充上数据。6)错误值:#NAME含义:在公式中使用了Excel所不能识别的文本比如可能是输错了名称或是输入了一个已删除的名称如果没有将文字串括在双引号中也会产生此错误值解决办法:如果是使用了不存在的名称而产生这类错误应确认使用的名称确实存在如果是名称函数名拼写错误应就改正过来将文字串括在双引号中确认公式中使用的所有区域引用都使用了冒号(:)。例如:SUM(C:C)。注意将公式中的文本括在双引号中。7)错误值:#NUM!含义:提供了无效的参数给工作表函数或是公式的结果太大或太小而无法在工作表中表示。解决办法:确认函数中使用的参数类型正确。如果是公式结果太大或太小就要修改公式使其结果在times和times之间。8)错误值:#!含义:在公式中的两个范围之间插入一个空格以表示交叉点但这两个范围没有公共单元格。比如输入:ldquo=SUM(A:AC:C)rdquo就会产生这种情况。解决办法:取消两个范围之间的空格。上式可改为ldquo=SUM(A:A,C:C)rdquoPart:EXCEL自学资料第一集返回首页自学资料第一集、ApplicationCommandBars(WorksheetMenuBar)Enabled=false、cells(activecellrow,b)value#活动单元格所在行B列单元格中的值、SubCheckSheet()#如果当前工作薄中没有名为kk的工作表的话就增加一张名为kk的工作表并将其排在工作表从左至右顺序排列的最左边的位置即排在第一的位置DimshtSheetAsWorksheetForEachshtSheetInSheetsIfshtSheetName=KKThenExitSubNextshtSheetSetshtSheet=SheetsAdd(Before:=Sheets())shtSheetName=KKEndSub、SheetListBoxList=Array(一月,二月,三月,四月)#一次性增加项目、SheetRows()Value=SheetRows()Value#将一个表中的一行全部拷贝到另一个表中、Subprocell()#将此代码放入sheet,则me=sheet,主要是认识meMeUnprotectCellsLocked=FalseRange(D:E)Locked=TrueMeProtectEndSub、ApplicationCommandBars(Ply)Enabled=False#工作表标签上快捷菜单失效、Subaa()#把B到B单元格的数据填入c到cFori=ToRange(Ci)=Range(Bi)NextiEndSub、ActiveCellAddCommentSelectionFontSize=#在点选的单元格插入批注字体为号、PrivateSubWorksheetBeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)Cancel=TrueEndSub、ScrollArea属性参阅应用于示例特性以A样式的区域引用形式返回或设置允许滚动的区域。用户不能选定滚动区域之外的单元格。String类型可读写。说明可将本属性设置为空字符串()以允许对整张工作表内所有单元格的选定。示例本示例设置第一张工作表的滚动区域。Worksheets()ScrollArea=a:fifapplicationmax(a:e)=thenmsgboxcommandbuttonenabled=false#AmdashE最大的数值达到时自动弹出对话框并冻结按钮、本示例将更改的单元格的颜色设为蓝色。PrivateSubWorksheetChange(ByValTargetasRange)TargetFontColorIndex=EndSub、Subtest()#求和DimrngAsRange,rngAsRangeForEachrngInActiveSheetUsedRangeColumnsSetrng=Range(Cells(,rngColumn),Cells(Cells(,rngColumn)End(xlUp)Row,rngColumn))rngCells(rngCellsCount)Offset(,)=WorksheetFunctionSum(rng)NextrngEndSub、将工作薄中的全部n张工作表都在sheet中建上链接Subtest()DimPtAsRangeDimiAsIntegerWithSheetSetPt=Range(a)Fori=ToThisWorkbookWorksheetsCountHyperlinksAddAnchor:=Pt,Address:=,SubAddress:=Worksheets(i)Name!ASetPt=PtOffset(,)NextiEndWithEndSub、保存所有打开的工作簿然后退出MicrosoftExcel。ForEachwInApplicationWorkbookswSaveNextwApplicationQuit、让form标题栏上的关闭按钮失效PrivateSubUserFormQueryClose(CancelAsInteger,CloseModeAsInteger)IfCloseModeThenCancel=TrueEndSub、Subcountsh()#获得工作表的总数MsgBoxSheetsCountEndSub、SubIE()#打开个人网页ActiveWorkbookFollowHyperlinkabout:blankSendKeys{F}ykkanypcn{ENTER},TrueEndSub、Subdelback()#一次性删除工作簿中所有工作表的背景ForEachshtSheetInSheetsshtSheetSetBackgroundPictureFilename:=NextshtSheetEndSub、aformula==bc#A中设定公式为=BC、PrivateSubCommandButtonClick()#将A到C中大于=的数依次放入E列DimiAsLongr=ForEachiInRange(a:c)Ifi=ThenCells(r,)=i:r=rNextEndSub、PrivateSubWorkbookSheetChange(ByValShAsObject,ByValTargetAsRange)#显示带数字的表名b=Split(ShName,()OnErrorGoTossnum=CInt(Left(b(),Len(b())))Ifnum=AndnumThenMsgBoxShNameEndIfExitSubss:MsgBoxerror,,EndSub、SubTest()#选择所有工作表名以业报开头的工作表或头两个字是业报的报表名引用SetSh=ActiveSheetIfLeft(ShName,)=业报Then#或ifshnamelike业报*thenMsgBox你成功了,,EndIfEndSub、建立文件夹的方法MkDirD:Music打开文件夹的方法ActiveWorkbookFollowHyperlinkAddress:=D:Music,NewWindow:=True、在当前工作表翻页ApplicationSendKeys{PGUP},TrueApplicationSendKeys{PGDN},True或者ActiveWindowLargeScrollDown:=ActiveWindowLargeScrollDown:=、当Target=*小计时如何写,*代表任何字符。ifinstr(targetvalue,小计)thenPrivateSubWorksheetSelectionChange(ByValTargetAsRange)IfTargetValueLike*小计ThenMsgBoxOKEndSub、ActiveCellFormulaRC==SUM(RC:RC,RC:RC)这是相对引用的写法:根据推算你的函数是放在ldquoADrdquo单元格你的函数:=SUM(RC:RC中的R表示行C表示列。R表示ldquoAD行C表示ldquo列没有变化就是同列rdquo那么:RC就表示AD同理R表示AD行表示:AD。以此类推。、PrivateSubCommandButtonClick()#将A到C中大于=的数依次放入E列DimiAsLongDimiRngAsRangeForEachiRngInSheets()Range(a:c)IfiRngValue=Theni=iSheets()Range(Ei)Value=iRngValueEndIfNextEndSub、工作表中的窗体按钮禁用后按钮形状不变字体不变从外表上无法看出其已禁用如何设置属性使其像控件按纽那样明显的禁用?WithActiveSheetButtons()Enabled=FalseActiveSheetShapes(Caption)DrawingObjectFontColorIndex=EndWith復原的方法WithActiveSheetButtons()Enabled=TrueActiveSheetShapes(Caption)DrawingObjectFontColorIndex=xlAutomaticEndWith、PrivateSubWorksheetSelectionChange(ByValTargetAsRange#选定A时要输入密码IfTargetAddress=$A$ThenA=InputBox(请输入密码,officefans)IfA=ThenASelectElseASelectEndIfEndSub、如何将工作薄中的命名单元格成批删除!DimItemAsNameForEachItemInActiveWorkbookNamesItemDeleteNextItem、平时只能看到表如要看表和表只能通过表的链接打开,且表和表回到表后又不可见。PrivateSubWorksheetSelectionChange(ByValTargetAsRange)IfTargetAddress=$A$Then#当点击$A$单元格时SheetVisible=#取消隐藏SheetActivate#激活ActiveSheetRange(A)SelectEndIfIfTargetAddress=$A$ThenSheetVisible=#取消隐藏SheetActivateActiveSheetRange(A)SelectEndIfEndSub、将a单元格内容替换为a内容ActiveCellReplaceWhat:=a,Replacement:=a、如果是要填入名称,则:PrivateSubWorksheetSelectionChange(ByValTargetAsRange)SelectionValue=ComboBoxcolumn()EndSub如果是要填入代码和名称的组合:PrivateSubWorksheetSelectionChange(ByValTargetAsRange)SelectionValue=cstr(ComboBoxcolumn())comboboxcolumn()EndSubPrivateSubWorksheetSelectionChange(ByValTargetAsRange)SelectionValue=ComboBoxValueEndSubPrivateSubWorksheetSelectionChange(ByValTargetAsRange)#targetrow代表行号#targetcolumn代表列号i=targetrow#获取行号j=targetcolumn#获取列号EndSub、当激活工作表时本示例对A:A区域进行排序。PrivateSubWorksheetActivate()Range(a:a)SortKey:=Range(a),Order:=xlAscendingEndSub、BeforePrint事件参阅应用于示例特性在打印指定工作簿(或者其中的任何内容)之前产生此事件。PrivateSubWorkbookBeforePrint(CancelAsBoolean)Cancel当事件产生时为False。如果该事件过程将本参数设为True则当该过程运行结束之后不打印工作簿。示例本示例在打印之前对当前活动工作簿的所有工作表重新计算。PrivateSubWorkbookBeforePrint(CancelAsBoolean)ForEachwkinWorksheetswkCalculateNextEndSub、Open事件参阅应用于示例特性打开工作簿时将产生本事件。PrivateSubWorkbookOpen()示例每次打开工作簿时本示例都最大化MicrosoftExcel窗口。PrivateSubWorkbookOpen()ApplicationWindowState=xlMaximizedEndSub、ActiveSheet属性参阅应用于示例特性返回一对象该对象代表活动工作簿中的或者指定的窗口或工作簿中的活动工作表(最上面的工作表)。只读。如果没有活动的工作表则返回Nothing。说明如果未给出对象识别符本属性返回活动工作簿中的活动工作表。如果某一工作簿在若干个窗口中出现那么该工作簿的ActiveSheet属性在不同窗口中可能不同。示例本示例显示活动工作表的名称。MsgBoxThenameoftheactivesheetisActiveSheetName、Calculate方法参阅应用于示例特性计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格如下表所示:要计算依照本示例所有打开的工作簿ApplicationCalculate(或只是Calculate)指定工作表指定工作表指定区域Worksheets()Rows()CalculateexpressionCalculateexpression对于Application对象可选对于Worksheet对象和Range对象必需。该表达式返回ldquo应用于rdquo列表中的对象之一。示例本示例计算Sheet已用区域中A列、B列和C列的公式。Worksheets(Sheet)UsedRangeColumns(A:C)Calculate程序的核心是算法问题、End属性参阅应用于示例特性返回一个Range对象该对象代表包含源区域的区域尾端的单元格。等同于按键End向上键、End向下键、End向左键或End向右键。Range对象只读。expressionEnd(Direction)expression必需。该表达式返回ldquo应用于rdquo列表中的对象之一。DirectionXlDirection类型必需。所要移动的方向。XlDirection可为XlDirection常量之一。xlDownxlToRightxlToLeftxlUp示例本示例选定包含单元格B的区域中B列顶端的单元格。Range(B)End(xlUp)Select本示例选定包含单元格B的区域中第行尾端的单元格。Range(B)End(xlToRight)Select本示例将选定区域从单元格B延伸至第四行最后一个包含数据的单元格。Worksheets(Sheet)ActivateRange(B,Range(B)End(xlToRight))Select、应用于CellFormat和Range对象的Locked属性。本示例解除对Sheet中A:G区域单元格的锁定以便当该工作表受保护时也可对这些单元格进行修改。Worksheets(Sheet)Range(A:G)Locked=FalseWorksheets(Sheet)Protect、Next属性参阅应用于示例特性返回一个Chart、Range或Worksheet对象该对象代表下一个工作表或单元格。只读。说明如果指定对象为区域则本属性的作用是仿效Tab但本属性只是返回下一单元格并不选定它。在处于保护状态的工作表中本属性返回下一个未锁定单元格。在未保护的工作表中本属性总是返回紧靠指定单元格右边的单元格。示例本示例选定sheet中下一个未锁定单元格。如果sheet未保护选定的单元格将是紧靠活动单元格右边的单元格。Worksheets(Sheet)ActivateActiveCellNextSelect、想通过target来设置(A:A)区域内有改动就发生此事件。不知道如何iftargetrow=andtargetcolumn=thenSub列举菜单项()Dimr,s,iAsIntegerr=Fori=ToCommandBarsCountActiveSheetCells(r,)=CommandBars(i)Name:CommandBars(i)Namer=rFors=ToCommandBars(i)ControlsCountActiveSheetCells(r,)=s、CommandBars(i)Controls(s)Captionr=rNextNextEndSub、本示例设置MicrosoftExcel每当打开包含链接的文件时询问用户是否更新链接。ApplicationAskToUpdateLinks=True、自定义函数PublicFunctionNow()DimstringAsStringstring=VBADateNow=stringEndFunction、复制Subcopy()SheetRange(C:C)CopySheetRange(C:C)EndSub、如何统计表中sheet的个数?msgboxsheetscountColumns(G:G)Select、SelectionEntireColumnHidden=True这样隐藏有个毛病如何解决?如果A:G单元格合并的话就把A:G列均隐藏了。Columns(G:G)EntireColumnHidden=True、在VBA中引用excel函数的方法)Worksheets(Sheet)Range(A)Formula==$A$$A$)SheetCells(,)Formula==Sheets(iii)Name!RC在宏中用RC方式写时表格的A中会在写为ldquo=Sheet!$D$rdquo用这种方式,想用什么函数就用什么函数、选定下(上)一个工作表sheets(activesheetindex)selectsheets(activesheetindex)select、PrivateSubWorkbookOpen()ActiveWindowDisplayWorkbookTabs=False#取消工作表标签ApplicationCommandBars(Sheet)Controls()Enabled=False#格式_工作表不能重命名ApplicationCommandBarsFindControl(ID:=)Enabled=False#右键菜单不能重命名EndSub、aEnd(xlUprsquoA列从下往上第一个非空的单元格、Submacro()Setrng=Range(C:F)定义RNG为一个单元格区域ForEachcelInrng定义CEL为RNG中的一个任一单元格colo=celInteriorColorIndex定义COLO为单元格CEL的填充颜色IfcoloThen如果COLO的值不等于iR=bEnd(xlUp)RowIR等于B列数据区域的行数IfaEnd(xlUp)ValueCells(celRow,)ThenCells(iR,)=Cells(celRow,)如果A列最后一个非空值单元格不等于Cells(celRow,)的值那么单元格Cells(iR,)的值等于Cells(celRow,)的值CELROW是C:F中任意单元格的行号Cells(iR,)=Cells(,celColumn)Cells(iR,)=celValueCells(iR,)=IIf(colo=,Yellow,Red)Cells(iR,)的值如果colo=那么值为Yellow,否则值为REDnextEndSub、PrivateSubWorkbookSheetSelectionChange(ByValShAsObject,ByValTargetAsRange)#**********运行数据日志记录**********DimrngAsRangeIfActiveSheetName主界面AndActiveSheetName目录索引ThenForEachrngInTargetCellsChangecell=ActiveSheetName单元格:rngAddress(,)更改为:rngvalue。更改时间:NowCritOrAddtextNextEndIfEndSub、ActiveSheetUnprotect#撤销当前工作表保护IfActiveSheetName主界面AndActiveSheetName目录索引AndTargetRowThen#行变色OnErrorResumeNextChangColorWithFormatConditionsDeleteTargetEntireRowName=ChangColorWithWithChangColorWithFormatConditionsDeleteAddxlExpression,,TRUEItem()InteriorColorIndex=EndWithEndIfActiveSheetProtect、在C中弄个下拉无表,实际是有效性,你可以选择A:A为C单元格有效性的序列数据源,如果说C不与A:A在同一表,则不能这么用,应当先对A:A命名,然后把数据源改为名称、自动增加工作表进入宏命令编辑窗口在Sub自动增加工作表()命令后依次键入如下宏命令内容:Dimi,userintoi=userinto=InputBox(输入插入工作表数量:)IfIsNumeric(userinto)=TrueThenDoUntili=userintoWorksheetsAddi=iLoopEndIfEndSub、方法一(共享级锁定):、先对EXCEL文件进行一般的VBAProjectrdquo工程密码保护。、打开要保护的文件选择:工具保护保护并共享工作簿以追踪修订方式共享输入密码保存文件。完成后当你打开ldquoVBAProjectrdquo工程属性时就将会提示:ldquo工程不可看!ldquo方法二(推荐破坏型锁定):用进制编辑工具如WinHex、Ultraedit(可到此下载)等再历害点的人完全可以用debug命令来做用以上软件打开EXCEL文件查找定位以下地方:ID={}注:实际显示不会全部为此时你只要将其中的字节随便修改一下即可。保存再打开就会发现大功告成!当然在修改前最好做好你的文档备份。至于恢复只要将改动过的地方还原即可(只要你记住了呵呵)。顺便说一句这种方法仍然是可破解的因为加密总是相对的。、SubAddComments()#自動對ActiveSheet所有有公式格位加上註解SetRG=CellsSpecialCells(xlCellTypeFormulas)ForEachcInRGcAddCommentcCommentTextText:=cFormulaNextcEndSubSubDeComments()#自動消除所有註解SetRG=CellsSpecialCells(xlCellTypeFormulas)ForEachcInRGcClearCommentsNextcEndSub、如何在Excel里使用定时器wwwaspskynet::动网先锋用过Excel里的加载宏定时保存吗?可惜它的源程序是加密的现在就上传一篇介绍实现它的文档。在Office里有个方法是applicationontime具体函数如下:expressionOnTime(EarliestTime,Procedure,LatestTime,Schedule)如果想进一步了解请参阅Excel的帮助。这个函数是用来安排一个过程在将来的特定时间运行(可为某个日期的指定时间也可为指定的时间段之后)。通过这个函数我们就可以在Excel里编写自己的定时程序了。下面就举两个例子来说明它。在下午::的时候显示一个对话框。SubRunit()ApplicationOnTimeTimeValue(::),S

热点搜索换一换

用户评论(0)

0/200

精彩专题

上传我的资料

每篇奖励 +1积分

资料评分:

/231
0下载券 下载 加入VIP, 送下载券

意见
反馈

立即扫码关注

爱问共享资料微信公众号

返回
顶部

举报
资料