推荐阅读
word 2013 段落首行缩进两个字符的设置方法
我们中文排版时，通常首行都缩进两个字符，那么这个简单的设置在最新的Word 2013里面又该如何设置呢？下面Microsoft酋长就来介绍一个Word2013设置段落首行缩进两个字符的方法。首先选中需要设置首行缩进的段落，或者把光标定位在该段落也可以。然后在“开始”功能区的“段落”分组的右下角可以看到一个向右下方倾斜的小箭头按钮。如图： 这就是“段落设置”按钮，点击它，就会打开“段落”设置窗口。如图：在“缩进和间距”选项卡中的“缩进”设置区域你就可以看到熟悉的“特殊格式”设置选项了。在下拉菜单中选择“首先缩进”，右侧的“缩进值”就会自动填充为“2字符”。最后点击“确定”关闭“段落”设置窗口，你会发现选中段落的首行已经缩进两个字符了。
word 2010 掌握中英翻译功能
英文弱弱的同学在写毕业论文时是不是很烦恼，不用着急，Word2010翻译功能帮你快速解决问题。 操作方法 1、选择“审阅”—“翻译”—“翻译屏幕提示”，即开启翻译屏幕提示功能。 2、将鼠标停留在单词上，系统会自动弹出翻译结果的浮动窗口。单击浮动窗口中的“播放按钮”，即可播放该单词读音。 3、若想深入了解和学习此单词，单击浮动窗口上的第一个“文本翻译”按钮，将在Word窗口右侧出现翻译窗口栏，显示单词的详细解释。
PPT2003中如何快速转换成JPG图片
操作步骤如果我们想把PowerPoint演示文稿中相应的幻灯片转换为图片格式，直接另存就可以了。执行“文件另存为”命令，打开“另存为”对话框，单击“保存类型”右侧的下拉按钮，在随后弹出的快捷菜单中，选择一种图片格式（如“GIF可交换的图形格式*.gif”），然后按下“保存”按钮，并在随后弹出的对话框中，选择“每张幻灯片”选项即可。注意：保存为图片格式后，可以用图片浏览软件观看相应的演示文稿（只不过动画功能不能使用了）。
Word中2007版进行插入页码的操作技巧
word2007是一款非常实用并且功能较为齐全的办公软件，我们经常用它编辑文档填写表格等，我们在使用的过程中不可避免的会遇到有很多页的文档，那么就需要我们进行插入页码，那么应该具体怎么操作呢?今天，小编就教大家在Word中2007版进行插入页码的操作技巧。 Word中2007版进行插入页码的操作步骤 打开word2007。 点击“插入”，选择“页码”。 根据实际情况选择页码插入到文档的位置和页码样式。 如果你不想在首页插入页码，在首页不同处打钩即可(当然奇偶页不同也可以选择，具体看实际情况)。Word中2007版进行插入页码的操作技巧
最新发布
利用VBA获取Excel最近使用的工作簿列表
下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中，如果通过“Office按钮（或“文件”选项卡）→Excel选项→高级”设置显示“最近使用的文档”数量大于“0”，该代码可以显示最近使用的最多50个工作簿名称。而对于Excel 2003，A列中显示的工作簿名称数量与“文件”菜单底部所显示的最近使用文件数量相同。按Alt+F11，打开VBA编辑器，在右侧代码窗口中输入下列代码：Sub GetMRUList()On Error Resume NextDim i, MRUNum As IntegerMRUNum = Application.RecentFiles.MaximumApplication.RecentFiles.Maximum = 50Range("A1:A50").ClearFor i = 1 To 50Cells(i, 1) = Application.RecentFiles(i).PathNext iApplication.RecentFiles.Maximum = MRUNumEnd Sub运行代码，即可在A列中显示最近使用的工作簿列表。
excel保存工作簿时提醒指定单元格不能为空解决方案
在工作中有时需要把设计好的电子表格给其他用户填写，表格中的一些单元格为必填项。虽然可以通过设置颜色、批注等方式提醒用户，但仍有一些用户会忘记填写。这时可以用通过下面的宏代码，当用户在保存工作簿时进行提醒，如果指定的单元格为空则不能保存工作簿。假如工作簿中“Sheet1”表的E6单元格为必填，步骤如下：1.按Alt+F11打开VBA编辑器，在“工程”窗口中双击“ThisWorkbook”。2.在代码窗口中输入下列代码：Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)If Worksheets("Sheet1").Range("e6") = "" ThenMsgBox "Sheet1表的E6单元格不能为空！", , "提醒"Worksheets("Sheet1").ActivateActiveSheet.Range("e6").SelectCancel = TrueEnd IfEnd Sub当Sheet1表的E6单元格为空时，无论用哪种方式（如另存为、快捷键等）保存工作簿，Excel会弹出一个对话框提醒用户并跳转到指定的单元格。
如何快速将多个excel工作表批量另存为单独的工作簿
有时会遇到这种情况，某个Excel工作簿中包含许多工作表，需要把其中的某个工作表发送给其他用户，或者将某几个工作表发送给不同的用户，通常的做法是将这些工作表移动或复制到新工作簿中，保存后再发送给他们。当工作表的数量较多时，逐一手动操作显得有些繁琐，这时用下面的VBA代码就非常方便了，方法如下：按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码：Sub SaveSheetAsWorkbook()Dim theName As StringOn Error GoTo Line1For Each sht In ActiveWindow.SelectedSheetssht.CopytheName = ThisWorkbook.Path & ThisWorkbook.Name & "_" & sht.Name & ".xls"ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormalActiveWindow.CloseNextLine1:End Sub关闭VBA编辑器，返回Excel界面，选择需要单独保存为工作簿的工作表，如果要选择多个工作表，可按Ctrl键或Shift键进行选择，然后按Alt+F8打开“宏”对话框，选择“SaveSheetAsWorkbook”宏执行即可。上述代码将每个所选的工作表单独保存为一个工作簿，存放位置与原工作簿相同，名称为“原工作簿名称_工作表名称.xls”。如果是在新建且未保存的工作簿中运行代码，Excel会将新生成的工作簿保存到默认的文件位置，如“我的文档”。
快速保护所有excel工作表或撤消所有工作表保护
有时需要让Excel工作簿中的每个工作表只能查看而不被修改，可以对所有的工作表进行保护，如果工作簿中的工作表数量较多，手动逐一操作十分繁琐。在工作表保护密码相同或不设置密码的情况下，用下面的方法可以快速保护所有工作表。1.按Alt+F11，打开VBA编辑器。单击菜单“视图→立即窗口”，或按Ctrl+G打开“立即窗口”。2.在“立即窗口”中输入下列代码，然后将光标定位到语句最后按回车键运行代码：For Each ws In Worksheets : ws.Protect Password:="123" : Next ws 工作簿中所有的工作表即被保护，本例所设置的密码为“123”。如果要撤消所有工作表的保护，只需在立即窗口中输入下面的代码并回车运行：For Each ws In Worksheets : ws.Unprotect Password:="123" : Next ws
VBA关闭工作簿和退出Excel 代码
要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法。下面是一些代码示例：关闭活动工作簿，如果工作簿有更改，提示是否保存：Sub CloseWorkbook()ActiveWorkbook.CloseEnd Sub如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：Sub ClostAndSaveWorkbook()ActiveWorkbook.Close Savechanges:=TrueEnd Sub将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。关闭所有打开的工作簿，并提示是否保存：Sub CloseAllWorkbooks()On Error Resume NextWorkbooks.CloseEnd Sub退出Excel，并提示对有更改的工作簿进行保存：Sub QuitExcel()Application.QuitEnd Sub
Excel VBA设置图表动态数据源实例教程
Excel图表的数据源通常为一个连续区域，但有时会遇到图表数据源区域不连续，且需要动态改变的情况。例如下面的某公司人员基本情况汇总表，B列为部门名称，C至S列分别为“性别”、“年龄”、“学历”、“职称”等不同类别数据的汇总，如果将这些数据同时显示在一个图表中，显然不便观察和比较数据，这时可以用VBA来动态改变数据源，单独对各个类别进行显示。 具体的方法是：先在表格中创建一个下拉列表，然后通过下拉列表选择不同的系列，通过VBA代码改变图表数据区域，让图表中的数据随之改变。下面以在Excel 2003中绘制柱形图为例说明如下：1.设置下拉列表。设置下拉列表的方法有很多，这里用数据有效性来设置。选择某个单元格，如T14，单击菜单“数据→有效性→设置→序列”，在“来源”下输入“性别,年龄,学历,职称”（不含引号）后确定，这样就在T14单元格中通过数据有效性设置了一个下拉列表。 2.插入图表。选择B3:D11区域，即“部门”和第一个类别所在区域“性别”，单击菜单“插入→图表→柱形图→簇状柱形图”，单击“完成”插入一个包含“男”、“女”两个系列的柱形图。 3.输入VBA代码。按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码：Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$T$14" ThenDim RngStr As StringSelect Case Target.ValueCase "性别"RngStr = "b3:b11,c3:d11"Case "年龄"RngStr = "b3:b11,e3:i11"Case "学历"RngStr = "b3:b11,j3:n11"Case "职称"RngStr = "b3:b11,o3:s11"End SelectChartObjects("图表 1").Chart.SetSourceData Source:=Range(RngStr)End IfEnd Sub说明：改变T14单元格中的内容时，图表的数据区域随之改变。本例中的图表名称为“图表 1”，需根据实际进行更改。查看图表名称的方法是：
Excel vba属性方法的区别和理解
文章介绍excel中vba的属性和方法，以及属性方法的区别。 一个excel工作表具有哪些属性？VBA属性的获取方法，可以通过自动成员列表和帮助查询。 任何对象都有属性，我们在录入代码是，可以看到其属性。如下图，我们输入“worksheets.”后将会看到下拉列表，列表中包含了对应的属性和方法。 从形状上来区别：前面带绿色图标的就是方法，带手形标志的就是属性。 VBA对象的方法，指的是某个对象所能执行的动作。 比如“创建工作表”，创建是动词，表示方法，它有一个动作，每个动作会产生一个可见的结果。工作表是名词，表示对象。 VBA中对象在前，方法在后。 Worksheets.add——worksheets是工作表对象，add是方法，表示新建。
Excel vba对象介绍和理解
文章介绍excelvba对象是什么，包含些什么对象，以及常用VBA对象说明和含义。 VBA中有四个最基本的概念：对象、属性、方法与事件。 工作簿、工作表、单元格、批注、透视表、自选图形、名称等等都是对象，VBA正是用于处理这些对象的语言。第一，excel vba对象基本概念介绍 excel vba对象有很多，每个对象又有自己的属性和方法。 excel vba对象到底是什么呢？VBA是面向对象的一种程序语言。 Excel的操作几乎都是围绕工作簿、工作表、单元格展开的，这些就是Excel操作的核心对象，这些也是VBA的核心对象。 对于Excel来说，最外层的vba对象就是Application，代表整个Excel应用程序。 每个Excel文件，都对应一个Workbook； 文件中的每个Sheet工作表，都对应一个Worksheet；
excel利用VBA将筛选后的公式批量转换为值
有时需要在Excel中进行筛选后将公式结果转换为值。通常将公式结果转换为值用选择性粘贴的方法，但该方法无法用于筛选后的结果：如果复制筛选后的区域直在原区域接选择性粘贴，Excel会提示复制区域与粘贴区域形状不同而无法粘贴；如果先选定可见区域（如用快捷键“Alt+；”）后再进行复制粘贴，Excel会提示“不能对多重选定区域使用此命令”。这时可用下面的VBA代码将筛选后的公式批量转换为值。Sub ConvAfterFilter()On Error Resume NextApplication.ScreenUpdating = FalseDim Rng As RangeFor Each Rng In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)If Rng.HasFormula ThenRng.CopyRng.PasteSpecial xlValuesEnd IfNextApplication.CutCopyMode = FalseApplication.ScreenUpdating = TrueEnd Sub按Alt+F11，打开VBA编辑器，在代码窗口中粘贴上述代码并运行即可。该代码仅将筛选结果中所有的公式结果转换为值，而不会受影响到筛选结果中未包含（隐藏）的单元格区域。
利用VBA选择并打开多个工作簿文件
下面的VBA代码先用Application.GetOpenFilename方法显示“打开”文件对话框，然后打开所选择的一个或多个Excel工作簿文件。Sub OpenWorkbooks()On Error Resume NextDim SelectFiles As Variant‘显示打开文件对话框SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打开", , True)‘未选择If TypeName(SelectFiles) = "Boolean" ThenExit SubEnd If‘打开所选工作簿For i = 1 To UBound(SelectFiles)Workbooks.Open SelectFiles(i)Next iEnd Sub