推荐阅读
如何在excel中插入和删除单元格
若要在工作表的指定位置添加内容，就需要在工作表中插入单元格、行或列。为此，可以使用“开始”选项卡上“单元格”组“插入”列表中的相应命令，如图1所示。图1 要删除单元格、行或列，可选择要删除的单元格，然后单击“开始”选项卡“单元格”组中的“删除”按钮右侧的三角按钮 ，在展开的列表中选择相应的选项即可。 通过这节在Excel2010中插入和删除单元格和上节合并单元格的教程，我们已经掌握了利用“开始”选项卡“对齐方式”组中的“合并后居中”按钮合并与拆分单元格；利用Excel2010中的“开始”选项卡“单元格”组中的“插入”和“删除”按钮插入和删除单元格、行和列的方法。
Word2003打印时缩放文档以适应不同的纸张尺寸
与复印机的缩小/放大功能类似，Word2003提供多种方式将文档打印到不同的纸型上。使您不必调整边距或换行符。 注释：当为打印缩放文档时，改动只发生在打印时。Word并未更改文档本身的设置。 1、单击“文件”菜单中的“打印”命令。 2、在“缩放”下的“按纸张大小缩放”框中，单击所需选项。 例如，可将B4纸型的文档打印在A4纸型的纸张。 该过程仅调整本次打印的文档比例。若要以这种方式调整所有打印时段的文档比例，可在“工具”菜单上，单击“选项”，然后单击“打印”选项卡。选中“允许重调 A4/Letter 纸型”复选框。
word中如何利用替换功能删除空行
而后单击下方的 特别 格局按钮， 。 这时候 就能够看到查找内容 右侧的文本框中 显现为^p^p，。 反复 挑选两次， 能够 停止 反复 交换， ⑥ 交换后 以前文档之间的空行 曾经删除， ②在弹出的 编纂和查找对话框中单击更多按钮， 而后点击 编纂组里的 交换按钮，直到删除 局部空 举动止， 交换为 右侧的文本框中 显现为^p， ④在弹出的页面框 当选择段落 标识表记标帜，如图所示， ⑤再把光标定位在 交换为 右侧的方框内， ③把光标定位在查找内容 右侧的方框内， word中 怎样 操纵 交换 功用删除空行 ①在 开端菜单栏中找到 编纂组。用 下面的 办法 拔出一个段落 标识表记标帜， 假如文档有多行空行的， 而后点按 局部 交换按钮即 实现。
Word图片容量如何压缩
大家在平时使用word办公时,经常要插入图片,有时插入的图片过多导致文件特别大,电脑会反映很慢，这是就需要将图片容量大小给压缩起来了。下面随小编一起看看吧。 Word图片容量压缩步骤 1.打开需要编辑的Word文档，点击工具栏的“插入”接着插入图片 2.插入图片后点击工具栏的“压缩图片” 3.我们就可以对压缩选项以及目标输出进行设置了。Word图片压缩的
最新发布
excel利用快捷键将区域中的公式结果转换为数值
在使用Excel时，如果经常需要将某些区域中的公式结果转换为数值，可以使用下面的VBA代码，并将其指定一个快捷键。这样，用快捷键就可以快速将某些区域中的公式结果转换为数值。方法如下：1.按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”。2.在右侧的代码窗口中输入下列VBA代码：Sub MakeValues()Dim Rng As RangeApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualFor Each Rng In SelectionRng.Value = Rng.ValueNext RngApplication.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticEnd Sub3.关闭VBA编辑器，返回到Excel工作表界面。4.按快捷键Alt+F8，打开“宏”对话框。选择“MakeValues”宏命令，点击“选项”按钮。 在弹出的“宏选项”对话框中，为该宏指定一个快捷键，如“Ctrl+E”。 单击“确定”按钮，关闭“宏”对话框。
Excel利用VBA转化公式中区域的引用类型
Excel公式中对区域或单元格的引用有多种引用类型，如：$A$1 绝对行和绝对列A$1 绝对行和相对列$A1 相对行和绝对列A1 相对行和相对列如果要用VBA来转化公式中的引用类型，可以先选择需要转换的区域或单元格，然后运行下列代码。：Sub ConvFormulaReference()For Each m In SelectionIf m.HasFormula = True Thenm.Formula = Application.ConvertFormula(m.Formula, _xlA1, xlA1, xlRelRowAbsColumn)End IfNext mEnd Sub上述代码先用HasFormula属性判断所选区域的各单元格中是否包含公式，然后用Application.ConvertFormula 方法对公式的引用类型进行转换。其中第四个参数指定了所需转换的类型：xlAbsolute 绝对行和绝对列xlAbsRowRelColumn 绝对行和相对列
excel打开工作簿时自动运行指定的宏
如果需要在打开Excel工作簿时自动运行某个宏，可以用下面的两个方法： 一、Workbook.Open 事件1.在Excel中按快捷键Alt+F11，打开VBA编辑器。2.在“工程”窗口中双击“ThisWorkBook”，在右侧的代码窗口顶部左侧的“对象”框中，选择“WorkBook”。这时，Excel自动在代码窗口中输入下面的代码：Private Sub Workbook_Open()End Sub然后在其中输入需要执行的宏代码，如下例：Private Sub Workbook_Open()MsgBox ("Workbook_Open事件" & Chr(10) & ThisWorkbook.Name & "工作簿已打开！")End Sub3.保存工作簿并重新打开该工作簿。如上例中将弹出一个消息框。二、用Auto_Open宏1.在Excel中按快捷键Alt+F11，打开VBA编辑器。
excel打开或关闭VBA编辑器自动语法检查功能
当在VBA编辑器代码窗口中输入有语法错误的语句时，默认VBA编辑器会弹出一个错误提示对话框，同时将错误语句显示为红色，这对于初学者可以起到很好的提醒作用。例如输入语句if range("A1")就立即回车，VBA编辑器会提示编译错误“缺少:Then或GOTO”。但有时语法错误并非无意造成的，例如当一行语句未输入完毕，就需要转到下一行继续输入其他语句。在这种情况下可以关闭自动语法检查功能，让VBA编辑器不再弹出错误提示对话框。设置方法如下：1.在VBA编辑器中，单击菜单“工具→选项”，弹出“选项”对话框。2.选择“编辑器”选项卡，取消选择“自动语法检测”选项。3.单击“确定”按钮。这样设置后，对于有语法错误的语句，回车后VBA编辑器虽不会弹出错误提示对话框，但仍会将其显示为红色
excel利用VBA进行多表合并计算实例教程
在Excel中，用数据透视表可以轻松进行多个区域的数据合并计算。但当区域较多时，要在数据透视表向导中多次选择区域，稍显繁琐。如果需要合并的工作表较多，可以用下面的VBA代码来快速合并数据。区域的大小可以不同，各行或列的品种可以重复，但要求工作簿中各工作表中的数据存放在相同的位置。如下图为工作簿中某两个工作表中的数据，区域的起始位置都是E5单元格：方法是：将要存放合并数据的工作表命名为“汇总”，删除工作簿中没有合并数据的工作表，各工作表中要合并的数据右侧和下边没有其他数据。然后在VBA编辑器中运行下面的代码：Sub Summary()Worksheets("汇总").[e5].CurrentRegion.ClearContentsOn Error Resume NextDim sh As WorksheetFor Each sh In ActiveWorkbook.SheetsIf sh.Name <> "汇总" ThenWith sh‘获取工作表中数据区域的行数i = .[e65536].End(xlUp).Row‘获取工作表中数据区域的列数j = .[iv5].End(xlToLeft).Column‘将各工作表区域按R1C1样式存入tempstr字符串中，各区域之间用","隔开tempstr = tempstr & "’" & sh.Name & "’!R5C5:R" & i & "C" & j & ","End WithEnd IfNext‘清除tempstr字符串中最后一个","tempstr = Left$(tempstr, Len(tempstr) – 1)‘将tempstr字符串中的各区域名存入一维数组arr中arr = Split(tempstr, ",")‘将各个区域的数据合并计算到"汇总"表Worksheets("汇总").[e5].Consolidate arr, xlSum, True, TrueWorksheets("汇总").[e5] = Sheet1.[e5]End Sub上述代码将工作簿中除“汇总”表以外的所有工作表中从E5单元格开始的区域合并计算到“汇总”表中
如何给Excel工作簿添加定时提醒功能
我们在编辑Excel工作表的过程中，如果有某个重要的事情需要在某一时间去完成，例如要在16:40分打个电话，或将报表交给部门经理等，为了避免遗忘，可以用VBA给工作簿添加一个定时提醒功能。方法如下：1.打开工作簿，按快捷键Alt+F11，打开VBA编辑器。2.单击菜单“插入→模块”，Excel将插入一个名称为“模块1”的模块。3.在右侧代码窗口中粘贴下列代码：Private Declare Function sndPlaySound32 _Lib "winmm.dll" _Alias "sndPlaySoundA" ( _ByVal lpszSoundName As String, _ByVal uFlags As Long) As LongSub Auto_Open()Application.OnTime TimeValue("16:40:00"), "DisplayAlarm" ‘第一次提醒Application.OnTime TimeValue("16:40:30"), "DisplayAlarm" ‘隔30秒第二次提醒End SubSub DisplayAlarm()sndPlaySound32 ThisWorkbook.Path & "\DRBELL.wav", 0&MsgBox (" 到时间了！")End Sub说明：上述代码用Auto_Open宏在工作簿打开时自动执行提醒代码。共设置了两次提醒，提醒时间分别为“16:40:00”和“16:40:30”，可以将该时间修改为所需的时间。提醒的方式为声音提醒和消息框提醒，声音文件为“DRBELL.wav”，需将该声音文件放置在工作簿所在文件夹中。本文结尾处提供示例文件下载，其中包含该声音文件。4.保存并关闭工作簿，然后重新打开工作簿。当到达设置的时间后，Excel会给出一个声音提示，同时弹出一个消息框。这下就再也不用担心忘记时间了。
Excel中有关打印预览的一些VBA代码
显示指定工作表的打印预览，假如该工作表名称为“Sheet1”：Worksheets("Sheet1").PrintPreview显示活动工作表的打印预览：Worksheets("Sheet1").PrintPreview显示工作簿中所有工作表的打印预览：Sheets.PrintPreview显示某一指定区域的打印预览，如当前工作表的A1:G10区域：ActiveSheet.Range("A1:G10").PrintPreview显示某一工作表中的某个图表的打印预览，假如工作表名称为“Sheet3”，其中某个图表名称为“图表 1”：Worksheets("Sheet3").ChartObjects("图表 1").ActivateActiveChart.PrintPreview
在选定区域中进行数量统计的VBA代码
如果在Excel中选择了一个或多个区域，用下面的VBA代码可以统计当前工作表所选区域中单元格（或行、列）的数量：1. 统计选定区域中的单元格数量：Sub CountCellsInSelection()Dim CellsNum As IntegerCellsNum = Selection.CountMsgBox "所选区域中的单元格数量为： " & CellsNumEnd Sub2.统计选定区域中所包含的行数，如果选择了多个区域，则统计行数之和。Sub CountRowsInSelection()Dim RowsNum As IntegerFor i = 1 To Selection.Areas.CountRowsNum = RowsNum + Selection.Areas(i).Rows.CountNext iMsgBox "所选区域中的行数为： " & RowsNumEnd Sub3.统计选定区域中所包含的列数，如果选择了多个区域，则统计列数之和。Sub CountColumnsInSelection()Dim ColumnsNum As IntegerFor i = 1 To Selection.Areas.CountColumnsNum = ColumnsNum + Selection.Areas(i).Columns.CountNext iMsgBox "所选区域中的列数为： " & ColumnsNumEnd Sub4.统计选定区域中的非空单元格数量：Sub CountNonBlankInSelection()Dim NonBlankNum As IntegerNonBlankNum = Application.CountA(Selection)MsgBox "所选区域中包含非空单元格有" & NonBlankNum & "个。"End Sub5.统计选定区域中有填充色的单元格数量：
excel用VBA选择工作表中所有包含超链接的单元格
要选择工作表中所有包含超链接的单元格，用定位或查找的方法无法实现。下面的VBA代码可以实现这一目的。按Alt+F11，打开VBA编辑器，在“工程”窗口中双击某个工作表，在右侧的代码窗口中输入下列代码：Sub SelectHyperlinkCells()Dim hHlink As HyperlinkDim rRange As RangeDim NotFirstlink As BooleanOn Error Resume NextFor Each hHlink In ActiveSheet.HyperlinksIf NotFirstlink ThenSet rRange = Application.Union(rRange, hHlink.Range)ElseSet rRange = hHlink.RangeNotFirstlink = TrueEnd IfNextIf rRange Is Nothing Then EndrRange.SelectEnd Sub关闭VBA编辑器返回工作表界面，按Alt+F8打开“宏”对话框，运行“SelectHyperlinkCells”宏即可选择工作表中所有包含超链接的单元格。
如何快速显示所有隐藏的Excel工作表
如果Excel工作簿中包含许多隐藏的工作表，要显示隐藏的工作表，通常的方法是单击菜单“格式→工作表→取消隐藏”（Excel 2003）或右击工作表标签，在弹出的快捷菜单中选择“取消隐藏”（Excel 2007/2010）。然后在“取消隐藏”对话框中逐一选择工作表取消其隐藏。但每次只能取消一个工作表的隐藏，当隐藏的工作表数量较多时，逐一这样操作稍显繁琐。实际上，用一行简单的VBA代码即可快速显示工作簿中所有隐藏的工作表。方法是：按Alt+F11，打开VBA编辑器，单击菜单“视图→立即窗口”，或按Ctrl+G，打开“立即窗口”，在其中输入：For Each s in sheets : s.Visible = True : Next然后按回车键运行代码，Excel会将工作簿中所有工作表（包括图表工作表）的“Visible”属性设置为“TRUE”，即显示所有隐藏的工作表。