推荐阅读
EndNote有关购买及序列号的一些答疑
EndNote有关购买及序列号的一些答疑。首先声明科研动力不是EndNote的代理，也不承担EndNote的有关购买授权，更不会提供有关EndNote破解与序列号有任何疑问。本文只对有关EndNote购买的疑问或者忧虑作一个简要的概括。下面是我自己的认识，有可能不完全正确。EndNote一个授权文件可以用于多少台电脑EndNote的授权文件分为大客户版和单用户版。如果是大客户版，可以用于多台电脑。多台是多少台？如果真是大客户版，理论上可以用于无数电脑。如果是单用户版的授权文件，理论上EndNote允许最多用于3台电脑。EndNote的Windows版和Mac版序列号能否通用EndNote X7的序列号是可以通用的，也就是说如果购买了EndNote的Windows版序列号，也可以用于Mac版的EndNote。但是因为EndNote X7的Mac版本发布的比Windows版要晚，EndNote X7的Mac版是2013年7月份才分布的，所以只有2013年7月份以后购买的序列号Windows和Mac平台才能通用。是不是有点悲催？另外EndNote X7以前序列号Windows平台和Mac平台不能通用。EndNote试用版能否变成全功能版
如何保存 Excel 工作簿
方法一：点击上方保存按钮进行保存。方法二：点击左上角“文件”按钮，在弹出的文件菜单里点击“保存”进行保存。方法三：使用键盘快捷键“Ctrl+ S” 进行保存。通过另存工作，可以把工作簿保存到其他路径，或者可以把工作簿保存成其他形式的文件。具体方法是：1.点击界面左上角“文件”按钮；2.在弹出的文件菜单选择“另存为”；3.在弹出的另存对话框中选择保存路径和保存格式进行另存操作。
excel表格怎么统计重复出现次数
excel中数据较多且某一数据重复出现的情况下，工作中经常碰到需要统计一定区域内重复数据出现的次数，该如何进行呢?下面就跟小编一起看看吧。 excel表格统计重复出现次数的步骤 1、本例统计一定期间内某产品以各价格出售的次数，选中该参数; 2、点击[方方格子]功能卡，找到[随即重复]下[统计重复次数]，如图： 3、点击[统计重复次数]，弹出[统计重复次数]对话框，对各参数进行设置; 4、这里我要统计的是出现的总次数，所以勾选了[出现总次数]，设置完成后点击[确定]，如图： 5、弹出[存放结果]选择的对话框，这里只需要选择一个单元格及可; 6、点击确定，对话框自动关闭，再回到工作表中，我们看到出现次数已经自动统计完毕，;有不放心的朋友可以数数自己验证一下。excel统计重复出现次数的
Word2013中手动绘制不规则表格的方法有哪些
在Word 2013中，用户可以使用手动绘制表格的方式来创建不规则表格。手动绘制表格的最大优势在于，用户可以像生活中使用笔那样来随心所欲地绘制各种类型的表格。以下是小编为您带来的关于Word 2013中手动绘制不规则表格的方法，希望对您有所帮助。 Word 2013中手动绘制不规则表格的方法 1、将插入点光标放置到文档中需要插入表格的位置。在“插入”选项卡的“表格”组中单击“表格”按钮，在下拉列表中选择“绘制表格”选项，如图1所示。 图1 选择“绘制表格”命令 2、此时，鼠标指针变为铅笔形 ，在文档中拖动鼠标即可绘制表格的边框，如图2所示。水平方向拖动鼠标可以绘制水平的行线，如图3所示。 图2 绘制表格边框 图3 绘制水平行线 3、垂直拖动鼠标可以绘制垂直的列线，如图4所示。 图4 绘制垂直列线
最新发布
利用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