推荐阅读
“发送至onenote”独立小工具功能总结
“发送至onenote”工具是一个独立的小工具，包含了屏幕剪辑、发送到onenote、新建快速笔记等非常实用的快捷方式，让onenote的使用变得更高效。从onenote安装目录中就可以看到，onenote主程序对应的启动文件是“ONENOTE.EXE”，而发送至onenote工具也有独立的启动文件“ONENOTEM.EXE”。而操作系统开始菜单下找到office快捷文件夹，从中也可以看到“onenote 2013”和“发送到onenote2013”是分别具有独立的快捷方式的。这都说明发送至onenote工具是可以独立于onenote主程序而单独工作的。理解此点非常重要，因为这涉及到几个常用功能（尤其是快捷键）是否能正常应用。例如屏幕剪辑快捷键是该工具独有，如果关闭此工具，默认的屏幕剪辑快捷键将不起作用。所以，如果你的屏幕剪辑快捷键不起作用了，若已排除快捷键冲突的因素，你应该考虑是否在选项设置中关闭了“发送至onenote”相关功能。“发送至onenote”工具拥有独立的启动文件，也具有自己的用户界面。界面很简单，包含“发送至onenote”工具的三个主要功能：屏幕剪辑、发送到onenote、新建快速笔记。“发送至onenote”工具总共就4个功能，另外一个功能是“打开onenote”。“发送至onenote”小工具最大的意义就是快捷，微软单独开发该小工具的目的就是为了快捷。三个主要功能都是快速采集信息的绝佳方式，而所有的4个功能都有专门的快捷键。而且“发送至onenote”图标也可以默认设置为4个功能的任一项。打开小工具后，在托盘“发送至onenote”图标上右键弹出快捷菜单，可以看到，4个功能都设置了专门的快捷键。而onenote图标默认设置，则可以将“发送至onenote”图标默认设置为4个功能的任一项，设置后，点击“发送至onenote”图标则执行设置的功能。
没有缩小字号，为什么PPT幻灯片中的字体变小了
在制作PPT幻灯片的过程中，我们经常会碰到这种现象：字号是一定的，当添加文字后，字号就会自动缩小。原因：因为在自动调整选项中启用了【根据占位符自动调整文本】解决方法：取消自动调整文本方法一、1.点击【自动调整选项】图标2.勾选【停止根据占位符自动调整文本】3.重新排版方法二、1.点击【文件】2.点击【选项】
如何在Excel2010中添加专用自定义命令
如果在某个特定的Excel2010工作簿中经常使用某个命令，而在其他Excel工作簿中极少用到该命令，则可以在该Excel工作簿的快速访问工具栏中添加仅适用于本工作簿的自定义命令按钮，操作步骤如下所述：操作步骤 打开Excel2010工作簿窗口，右键单击快速访问工具栏，并在打开的快捷菜单中选择“自定义快速访问工具栏”命令。 打开“Excel选项”对话框的“自定义”选项卡，在“自定义快速访问工具栏”下拉列表中选择“用于‘工作簿1’”选项。然后在左侧的命令列表中选中需要添加的命令，并单击“添加”按钮。完成自定义命令的添加后单击“确定”按钮即可。上述操作中添加的命令将仅在该特定Excel2010工作簿中显示，在其他Excel2010工作簿中不会显示。
Word中进行升级Win10后打不开文件格式的解决方法
系统升级到win10以后，打不开office2013文件，其实出现这种问题跟要打开的文件本身没有多大关系，只是Office 2013到了Windows10后出现兼容性问题，导致不能正常工作。今天，小编就教大家在Word中进行升级Win10后打不开文件格式的解决方法。 Word中进行升级Win10后打不开文件格式的解决步骤如下： 1、开始，运行CMD。 2、输入(复制后粘贴)以下命令后回车。 icacls "%programfiles%\Microsoft Office 15" /grant *S-1-15-2-1:(OI)(CI)RX。 3。命令运行后，提示处理成功1个文件，失败0个，该命令成功运行完毕后，不必重启，再次打开需要的word、excel、pptx即可。 步骤2： 使用Office 2013光盘修复安装现有office软件。 步骤3： 使用Office 2013 文件安装包修复安装。打开存放office2013文件夹，双击setup.exe运行Office 2013安装程序。
最新发布
excel批量提取超链接中的地址
如果Excel表格单元格中包含有许多用文本形式显示的超链接，如“给我发邮件”、“访问我的网站”等，要逐一查看所有超链接的地址，用手工的方法显得太繁琐，我们可以用自定义函数来批量提取这些超链接中的地址，将下列代码插入到标准模块中： Function GetURL(rng As Range) As StringOn Error Resume NextGetURL = rng.Hyperlinks(1).AddressEnd Function使用方法是在单元格中输入公式，假如单元格D6中含有超链接：=geturl(D6)还可以使用下面的代码将工作表中的所有超链接地址全部显示出来，运行代码前先备份工作簿，因为它会在含有超链接的单元格的右侧显示其地址，有可能会破坏工作表结构。Sub ExtractHL()Dim HL As HyperlinkFor Each HL In ActiveSheet.HyperlinksHL.Range.Offset(0, 1).Value = HL.AddressNextEnd Sub
避免excel工作表函数在VBA中产生运行时错误
大家知道大多数的Excel工作表函数可以用在VBA中，通过下面的方法来调用，例如对A1:A10单元格求和：Sub Sum1()MsgBox WorksheetFunction.Sum(Sheet1.Range("A1:A10"))End Sub或：Sub Sum2()MsgBox Application.Sum(Sheet1.Range("A1:A10"))End Sub但是如果在单元格中包含错误，例如上例中的A1:A10区域包含一个“#DIV/0!”错误，运行上述代码后将产生运行时错误。例如出现类似下图的提示： 为避免出现这样的错误，我们可以将单元格中的错误用数值“0”取代。用下面的代码：Sub ReplaceErrors()On Error Resume NextWith Sheet1.Range("A1:A10").SpecialCells(xlCellTypeFormulas, xlErrors) = 0MsgBox WorksheetFunction.Sum(.Cells)End WithOn Error GoTo 0End Sub或者先进行一个错误检查，并给出提示：Sub CheckForErrors()Dim rErrCheck As RangeOn Error Resume NextWith Sheet1.Range("A1:A10")Set rErrCheck = .SpecialCells(xlCellTypeFormulas, xlErrors)If Not rErrCheck Is Nothing ThenMsgBox "指定的单元格中包含错误！"Application.Goto .SpecialCells(xlCellTypeFormulas, xlErrors)ElseMsgBox WorksheetFunction.Sum(.Cells)End IfEnd WithOn Error GoTo 0End Sub
EXCEL利用VBA播放WAV声音文件
如果用VBA代码播放WAV声音文件，可以用下面的代码：Private Declare Function sndPlaySound32 _Lib "winmm.dll" _Alias "sndPlaySoundA" ( _ByVal lpszSoundName As String, _ByVal uFlags As Long) As LongSub PlayWavFile()sndPlaySound32 "C:\Windows\Media\ding.wav", 0&End Sub运行上述代码将播放“C:\Windows\Media”文件夹中的ding.wav声音文件。
excel利用VBA在标题栏中显示工作簿的路径
通常，当我们打开一个Excel工作簿时，标题栏中仅仅显示一个简单的文件名。我们可以用下面的VBA代码，让工作簿在打开时在标题栏显示其路径和文件名：按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“ThisWorkBook”，在右边的代码窗口中输入以下代码：Private Sub Workbook_Open()ActiveWindow.Caption = ActiveWorkbook.FullNameEnd Sub需要注意的是，上述代码只是在工作簿打开时运行，如果将工作簿另存为其他名称，在上述代码未运行的前提下，标题栏中的路径不会改变。
在excel用VBA更改批注的作者
在Excel中，当光标移动到包含批注的单元格中时，通常会在状态栏和批注中显示批注者的名称。如果需要将批注者改为其他人，可以用下面的VBA代码。以后再插入新的批注，也将使用新输入的名称。使用前先将代码中的“新作者”和“原作者”按照需要进行替换。Sub ChangeCommentName()Dim ws As WorksheetDim cmt As CommentDim strOld As StringDim strNew As StringDim strComment As StringstrNew = "新作者"strOld = "原作者"Application.UserName = strNewFor Each ws In ActiveWorkbook.WorksheetsFor Each cmt In ws.CommentsstrComment = Replace(cmt.Text, strOld, strNew)cmt.Deletecmt.Parent.AddComment Text:=strCommentNext cmtNext wsEnd Sub
excel在宏对话框中不显示宏命令名称
如果Excel工作簿中包含宏命令，可以通过宏对话框来查看这些宏命令名称。方法是单击菜单“工具→宏→宏”，或按Alt+F8打开“宏”对话框。例如如下的代码： 在工作表中打开宏对话框： 有时我们不希望使用者通过宏对话框来运行宏命令，这时可以在代码的前面加上“Private”关键字。如：Private Sub test()……End Sub这样，当打开宏对话框后将看不到宏命令名称。
如何在Excel中查找显示为井号（#）的单元格
有时打印Excel表格后发现有些单元格显示为井号（#），这些井号（#）并非手工输入的，而是Excel中的一种错误处理方法。例如当列宽不足或日期和时间为负数时，Excel就将这些单元格显示为井号（#）。处理的方法很简单，对于包含数字且显示为井号（#）的单元格，调整一下列宽或设置单元格格式为“缩小字体填充”；对于第二种情况，检查并修正公式即可。如果表格中的内容较多，一时无法看清哪些单元格包含错误的井号（#），可以用下面的VBA代码在当前工作表中查找，步骤如下：1.选择包含井号（#）的工作表，按Alt+F11，打开VBA编辑器。2.在“代码”窗口中输入下列代码：Sub 查找单元格井号()Dim rng As RangeFor Each rng In ActiveSheet.UsedRangeIf Left(rng.Text, 1) = "#" Thenrng.SelectMsgBox rng.Address & " 单元格包含#号"End IfNext rngEnd Sub3.运行代码。
用VBA代码在Excel状态栏中显示提示信息
当我们在运行一个执行时间稍长的VBA代码时，可以用下面的VBA代码在状态栏中显示一些信息来提示用户：Application.StatusBar = "提示信息"代码运行完毕，再恢复默认状态栏：Application.StatusBar = FALSE例如下面的代码在状态栏中显示“正在运行，请稍后……”的提示信息，显示时间为5秒钟。Sub DisplayMessageOnStatusbar()‘开始执行代码Application.DisplayStatusBar = True ‘显示状态栏Application.StatusBar = "正在运行，请稍后……" ‘状态栏显示信息‘5秒钟后恢复默认状态栏Application.Wait Now + TimeValue("00:00:05")Application.StatusBar = FalseEnd Sub
excel获取屏幕分辨率的VBA代码
用下面的代码可以获取屏幕分辨率，需将其放入模块中运行。1.按Alt+F11打开VBA编辑器。2.单击菜单“插入→模块”，在模块中输入下列代码并运行：Declare Function GetSystemMetrics32 Lib "user32" _Alias "GetSystemMetrics" (ByVal nIndex As Long) As LongSub DisplayMonitorInfo()Dim X As Long, Y As LongX = GetSystemMetrics32(0) ‘ 宽度（像素）Y = GetSystemMetrics32(1) ‘ 高度（像素）MsgBox "屏幕分辨率为：" & X & " × " & Y & " 像素"End Sub
如何在Excel中输入数据时自动加入一个时间戳
当我们在Excel中输入或更新数据时，有时需要自动添加一个时间戳，表示当前数据的最新更新时间。如下图所示，当在C列更新数据时，在D列自动加入更新时的时间。 可以用VBA代码来实现，实现步骤如下：按Alt+F11，打开VBA编辑器。在“工程”窗口中双击“ThisWorkBook”，在右侧的代码窗口中粘贴下列代码：Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)If ActiveSheet.Name <> "Sheet1" Then Exit SubIf Target.Column = 3 Then Target.Offset(0, 1) = NowEnd Sub这样，当“Sheet1”表C列单元格中的内容发生改变时，Excel会自动在D列同一行中的单元格中添加时间。如果要将目标区域指定为C2:C20，可以用下面的代码：Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)If ActiveSheet.Name <> "Sheet1" Then Exit SubWith TargetIf .Column = 3 And .Row > 1 And .Row < 21 Then .Offset(0, 1) = NowEnd WithEnd Sub需要注意的是，当目标区域中的任意单元格内容发生改变，包括删除或更新数据时，都将触发Worksheet.SelectionChange 事件