推荐阅读
6种减小word文件大小的方法
Word文档是常用的文书编排文档，一般情况下一页大概在20KB大小，但如果处理得不当的话会变得非常大，特别是多页文件那样就有可能会更大，如果文件特别大一是占用大量的磁盘空间，打开速度会变慢，同时也会增加文件损坏的风险，这样有必要给我们的Word文档减减肥，也就是如何缩小word文档大小，下面小编就来介绍6种减小word文件大小的方法。 方法一、重新进行页面设置1、在保存文件前，单击“页面布局”选项卡“页面设置”组右下角的“对话框启动器”按钮。2、在打开的“页面设置”对话框中，任意单击其中的“纸张大小”、“页边距”等，无须改变其中的内容，单击“确定”按钮后，再保存文件，这样就缩小word文档大小了。方法二、定稿后，复制到新建文档中Word文档经过多次编辑，其存盘后的文件会迅速膨胀，尤其是含有数个图片的Word文件，因此一篇文档经过反复编辑并已定稿后，可将文档内容复制到新的文档中，这样同样可以实现缩小word文档大小，这也是一种非常方便实用的减小word文档大小的方法。方法三、对图片格式进行处理在插入图片之前，首先有必要对图片格式进行处理，尽量使用JPG格式的压缩图片格式，而且这种图片格式又能保持图片更高的清晰度，这里顺便说一下，为了让JPG文件足够的小，请在PS中以另存为WEB格式保存，然后选择JPG格式，同时选择50%的质量度，这样JPG文件不但小而且不会造成颜色失真，也只有把JPG文件图片变小了这样才能缩小word文档大小，从而减小word文件大小。方法四、简单的文档格式
Word实用技巧：关于编号的那些事
在Word中，经常会根据排版需要，给文本、图片或表格加上数字编号或图形符号，从而让段落更有层次，让图片或表格便于快速查找。本文就和大家一起聊聊Word文档中数字编号那些事，相信会对大家在日常办公中有所帮助。1、自动编号的基本应用在Word2003/Word2007/Word2010/Word2013中，对于已经录入到word中的段落，我们可以直接给段落加上图形或数字编号。选中段落，切换到“开始”选项卡，单击“段落”选项组中的“项目符号”，可以给段落前添加各种图形符号。如果需要其它外观的符号，可选择“定义新项目符号”弹出对话框(如图1)，单击“符号”可选择各种其它符号，还可以单击“图片”选择个性化的图片作为项目符号。如果要用数字对段落进行编号，选中段落后，单击“段落”选项组中的“编号”，可以选择数字的样式(如图2)，选择“定义编号格式”弹出对话框，可以修改数字编号的字体、对齐样式等，这样可以让其格式与段落文字的格式不一样。图1图22、调整编号与文本间距在使用自动编号后，编号和文本之间的距离可能不符合个人的要求，此时可以在多级列表中进行调节。按住Ctrl键，分别选中要调节编号距离的段落，单击“段落”选项组中的“多级列表”，选择“定义新的多级列表”弹出对话框(如图3)，在“位置”选项中，可以修改编号的“对齐位置”和“文本缩进位置”的数值，这样就能调整编号与文本段落之间的距离。
如何使用好WPS模板
1.我可以选择两种模板中的任何一种 金山办公软件相对微软办公软件有很大的优势，是一个具有浓郁地方特色的模板。在开始WPS文本后，首先出现的将是Docer稻壳主页，上面将提供“在线模板”(图1)。这些模板以不同的类别提供，有无数的人参与，并且随时动态更新。除了从类别目录中搜索我们需要的模板，我们还可以通过右上角的搜索框搜索我们需要的模板。 提示： 对于标有“大米”的文件模板进行下载(“大米”是WPS的虚拟货币单位)，您需要登录WPS账户并支付相应的“大米”进行下载和使用。WPS账户可以直接通过QQ、微信、小米等账户登录(图2)。大米可以通过充值、官方活动、WPS论坛和微博获得。它可以用来升级光办公圈和下载WPS在线支付模板。 除了在线模板，WPS系统还在本地提供实用的模板。单击标签栏上的“”按钮(或按下Ctrl+N快捷键)，弹出一个空白页。这实际上是最简单的文档模板。它已经规定了页面的纸张尺寸、页边距、文本属性等。此外，在系统的“文件本机模板”菜单激活的模板窗口中，切换到“日常生活”标签，可以应用“原稿打印版本”和“备注”两个模板中的一个(图3)创建相应样式的文档。 提示： 如果您经常使用系统提供的模板来创建文档，请在选择模板时选中“设为默认模板”复选框。之后，可以通过选择“从默认模板新建”来快速调用WPS页面，通过WPS页面标签栏中“”按钮后的小箭头来创建文档(图4)。
Word2003入门动画教程2：在Word中打开文档
word动画 常常用word2003的人都 晓得，它 撑持 很多种 格局的文本， 包罗了：doc、txt、htm、dot、xml、rtf、wps等等。这些 格局的文件， 咱们 均可以在Word中 翻开。 固然 翻开这些文档的 方法也有多种， 上面就让 搜索引擎优化 尝试室带 各人 一同来看看吧！动画演示①单击“文件”菜单栏，在弹出的页面框 当选择“ 翻开” 号令， 而后在“文件名”中 输出文件 地点 途径 翻开文档。②点击 东西栏上的“ 翻开”按钮， 而后在弹出的页面框中找到你所 需求的文件 地点的 目次 翻开。③ 咱们还 能够 经由过程“我 近来的文档”的 方法来找到并 翻开 近来你 利用过的文档。
最新发布
Excel中int函数取整怎么使用
WPS Excel中int函数取整怎么使用1、首先我们填写一些数字2、然后在C3单元格输入函数 =INT(B3)，意思是对b3单元格进行取整3、按下回车，即可看见取整后的结果4、最后，可以利用快捷键CTRL+D,向下填充，结果如图所示。
Excel中if函数三个条件怎么填
Excel中if函数三个条件怎么填1、我们打开Excel，进入下图界面2、我们在a1输入1，a2输入-1，a3输入03、我们在a4输入IF函数4、IF函数第一个值就是条件我们可以利用AND函数输入三个条件我们可以输入AND(A1>0,A2<0,A3=0)
Excel如何利用INDEX函数查找首次出现的位置 实例动画教程
Excel用INDEX函数查找首次出现的位置查找销售额第一次超过700的城市输入公式=INDEX(A2:A14,MATCH(TRUE,B2:B14>E2,))，之后按Ctrl+Shift+Enter组合键。具体操作看下图：
Excel如何利用OFFSET函数制作下拉菜单 实例动画教程
Excel制作下拉菜单选中区域，点击数据——数据验证——序列，之后在来源中输入公式，然后再选中【出错警告】，取消“输入无效数据时显示出错警告”复选框即可。具体操作看下图：
Excel VBA 窗体之去除窗体关闭按钮 实现代码
VBA的窗体缺少一般窗体的很多属性，不想许多语言窗体那样可以自由的设置窗体的样式，就连其默认的关闭按钮也不能设置为不显示，一般的处理方法是在窗体的关闭事件中添加代码来阻止窗体的关闭。那还不如就直接运用代码来把他去除掉(如图)。附件下载：点击链接从百度网盘下载操作如下：◾在Excel的VBE窗口中插入一个用户窗体，将其命名为frmNoCloseIcon。然后再添加一个模块。在窗体和模块中添加后面所列代码。◾在工作薄中的任意工作表中添加一窗体按钮控件，将指定其设置宏为btnShowfrmMaxMin_Click。其供示范之用。具体代码："mdClose"模块代码 Sub btnShowfrmMaxMin_Click() frmNoCloseIcon.Show End Sub
Excel VBA 窗体之去除窗体标题栏 实现代码
在VBA中当我们有时需要显示一个无标题栏的窗体作为启动的界面，但是VBA的窗体不可以直接设置这样的属性，只有通过代码来实现附件下载：点击链接从百度网盘下载操作如下：◾在Excel的VBE窗口中插入一个用户窗体，将其命名为DelTitleForm。在用户窗体中添加两个按钮，将其分别更名为和BtCancel。然后再添加一个模块。在窗体和模块中添加后面所列代码。◾在工作薄中的任意工作表中添加一窗体按钮控件，将指定其设置宏为ShowForm。其供示范之用具体代码："mdNoTitle"模块代码 Sub ShowForm() DelTitleForm.Show End Sub
Excel VBA 操作注册表的模块 实现代码
VBA 自带的注册表操作功能很弱，只能操作固定的键，很是不方便。这里收集了一个在 VBA 中操作注册表的模块，我对模块进行了一定的修改，使它可以用在 64 位的 Office 上面。Option Explicit'---注册表主键--- Public Enum enumRegMainKey iHKEY_CLASSES_ROOT = &H80000000 iHKEY_CURRENT_USER = &H80000001 iHKEY_LOCAL_MACHINE = &H80000002 iHKEY_USERS = &H80000003 iHKEY_PERFORMANCE_DATA = &H80000004 iHKEY_CURRENT_CONFIG = &H80000005 iHKEY_DYN_DATA = &H80000006 End Enum '---注册表数据类型--- Public Enum enumRegSzType iREG_SZ = &H1 iREG_EXPAND_SZ = &H2 iREG_BINARY = &H3 iREG_DWORD = &H4 iREG_NONE = 0& iREG_DWORD_LITTLE_ENDIAN = 4& iREG_DWORD_BIG_ENDIAN = 5& iREG_LINK = 6& iREG_MULTI_SZ = 7& iREG_RESOURCE_LIST = 8& iREG_FULL_RESOURCE_DEscrīptOR = 9& iREG_RESOURCE_REQUIREMENTS_LIST = 10& End Enum'---返回值和访问权限常数--- Private Const ERROR_SUCCESS = 0& Private Const ERROR_BADDB = 1009& Private Const ERROR_BADKEY = 1010& Private Const ERROR_CANTOPEN = 1011& Private Const ERROR_CANTREAD = 1012& Private Const ERROR_CANTWRITE = 1013& Private Const ERROR_OUTOFMEMORY = 14& Private Const ERROR_INVALID_PARAMETER = 87& Private Const ERROR_ACCESS_DENIED = 5& Private Const ERROR_NO_MORE_ITEMS = 259& Private Const ERROR_MORE_DATA = 234& Private Const KEY_QUERY_VALUE = &H1& Private Const KEY_SET_VALUE = &H2& Private Const KEY_CREATE_SUB_KEY = &H4& Private Const KEY_ENUMERATE_SUB_KEYS = &H8& Private Const KEY_NOTIFY = &H10& Private Const KEY_CREATE_LINK = &H20& Private Const SYNCHRONIZE = &H100000 Private Const READ_CONTROL = &H20000 Private Const WRITE_DAC = &H40000 Private Const WRITE_OWNER = &H80000 Private Const STANDARD_RIGHTS_REQUIRED = &HF0000 Private Const STANDARD_RIGHTS_READ = READ_CONTROL Private Const STANDARD_RIGHTS_WRITE = READ_CONTROL Private Const STANDARD_RIGHTS_EXECUTE = READ_CONTROL Private Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Private Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Private Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE)) Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))'---API 函数--- #If Win64 Then '64位 Private Declare PtrSafe Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As LongPtr, ByVal lpSubKey As String, phkResult As LongPtr) As Long Private Declare PtrSafe Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As LongPtr, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As LongPtr, lpdwDisposition As Long) As Long Private Declare PtrSafe Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As LongPtr, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As LongPtr, lpType As Long, lpData As Byte, lpcbData As Long) As Long Private Declare PtrSafe Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As LongPtr, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As LongPtr, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long Private Declare PtrSafe Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As LongPtr, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As LongPtr) As Long Private Declare PtrSafe Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As LongPtr) As Long Private Declare PtrSafe Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As LongPtr, ByVal lpValueName As String) As Long Private Declare PtrSafe Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value. Private Declare PtrSafe Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As LongPtr, ByVal cbData As LongPtr) As Long Private Declare PtrSafe Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByRef lpData As LongPtr, ByVal cbData As LongPtr) As Long Private Declare PtrSafe Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As LongPtr, ByVal lpValueName As String, ByVal lpReserved As LongPtr, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value. Private Declare PtrSafe Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As LongPtr, ByVal lpSubKey As String) As Long Private Declare PtrSafe Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As LongPtr, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long Private Declare PtrSafe Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hKey As LongPtr, ByVal lpFile As String, ByVal dwFlags As Long) As Long #Else Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Byte, lpcbData As Long) As Long Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, ByVal lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long Private Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByRef lpData As Long, ByVal cbData As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value. Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Private Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, ByVal lpSecurityAttributes As Long) As Long Private Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hKey As Long, ByVal lpFile As String, ByVal dwflags As Long) As Long #End IfPrivate Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type#If Win64 Then '64位 Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescrīptor As LongPtr bInheritHandle As Boolean End Type #Else Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type #End If'---取得值--- Public Function GetValue(ByVal mainKey As enumRegMainKey, _ ByVal subKey As String, _ ByVal keyV As String, _ ByRef sValue As Variant, _ Optional ByRef rlngErrNum As Long, _ Optional ByRef rstrErrDescr As String) As Boolean Dim hKey As Long, lType As Long, lBuffer As Long, sBuffer As String, lData As Long On Error GoTo GetValueErr GetValue = False If RegOpenKeyEx(mainKey, subKey, 0, KEY_READ, hKey) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "获取注册表值时出错" End If If RegQueryValueEx(hKey, keyV, 0, lType, ByVal 0, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "获取注册表值时出错" End If Select Case lType Case iREG_SZ lBuffer = 255 sBuffer = Space(lBuffer) If RegQueryValueEx(hKey, keyV, 0, lType, ByVal sBuffer, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "获取注册表值时出错" End If sValue = Left(sBuffer, InStr(sBuffer, Chr(0)) - 1) Case iREG_EXPAND_SZ sBuffer = Space(lBuffer) If RegQueryValueEx(hKey, keyV, 0, lType, ByVal sBuffer, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "获取注册表值时出错" End If sValue = Left(sBuffer, InStr(sBuffer, Chr(0)) - 1) Case iREG_DWORD If RegQueryValueEx(hKey, keyV, 0, lType, lData, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "获取注册表值时出错" End If sValue = lData Case iREG_BINARY If RegQueryValueEx(hKey, keyV, 0, lType, lData, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "获取注册表值时出错" End If sValue = lData End Select If RegCloseKey(hKey) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "获取注册表值时出错" End If GetValue = True Err.Clear GetValueErr: rlngErrNum = Err.Number rstrErrDescr = Err.Descrīption End Function'----赋值--- Public Function SetValue(ByVal mainKey As enumRegMainKey, _ ByVal subKey As String, _ ByVal keyV As String, _ ByVal lType As enumRegSzType, _ ByVal sValue As Variant, _ Optional ByRef rlngErrNum As Long, _ Optional ByRef rstrErrDescr As String) As Boolean Dim S As Long, lBuffer As Long, hKey As Long Dim ss As SECURITY_ATTRIBUTES On Error GoTo SetValueErr SetValue = False ss.nLength = Len(ss) ss.lpSecurityDescrīptor = 0 ss.bInheritHandle = True If RegCreateKeyEx(mainKey, subKey, 0, "", 0, KEY_WRITE, ss, hKey, S) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "设置注册表时出错" End If Select Case lType Case iREG_SZ lBuffer = LenB(sValue) If RegSetValueEx(hKey, keyV, 0, lType, ByVal sValue, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "设置注册表时出错" End If Case iREG_EXPAND_SZ lBuffer = LenB(sValue) If RegSetValueEx(hKey, keyV, 0, lType, ByVal sValue, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "设置注册表时出错" End If Case iREG_DWORD lBuffer = 4 If RegSetValueExA(hKey, keyV, 0, lType, sValue, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "设置注册表时出错" End If Case iREG_BINARY lBuffer = 4 If RegSetValueExA(hKey, keyV, 0, lType, sValue, lBuffer) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "设置注册表时出错" End If Case Else Err.Raise vbObjectError + 1, , "不支持该参数类型" End Select If RegCloseKey(hKey) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "设置注册表时出错" End If SetValue = True Err.Clear SetValueErr: rlngErrNum = Err.Number rstrErrDescr = Err.Descrīption End Function'---删除值--- Public Function DeleteValue(ByVal mainKey As enumRegMainKey, _ ByVal subKey As String, _ ByVal keyV As String, _ Optional ByRef rlngErrNum As Long, _ Optional ByRef rstrErrDescr As String) As Boolean Dim hKey As Long On Error GoTo DeleteValueErr DeleteValue = False If RegOpenKeyEx(mainKey, subKey, 0, KEY_WRITE, hKey) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "删除注册表值时出错" End If If RegDeleteValue(hKey, keyV) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "删除注册表值时出错" End If If RegCloseKey(hKey) <> ERROR_SUCCESS Then Err.Raise vbObjectError + 1, , "删除注册表值时出错" End If DeleteValue = True Err.Clear DeleteValueErr: rlngErrNum = Err.Number rstrErrDescr = Err.Descrīption End Function
Excel VBA 中定时关闭的 MsgBox 一个未公开的API
了解 VBA 的朋友们都知道，VBA 中自带的 MsgBox 不能自动关闭，需要用户做出交互后才能关闭。但是在某些特定情况下，我们需要 Msgbox 在指定时间内没有用户操作的情况下自动关闭，然后继续运行代码。一般采取的方法是使用Wscript.Shell 的 Popup 方法，或者自定义窗体， 或者采用 SetTimer 等来实现。这里推荐一个未公开的 API 函数—— MessageBoxTimeout 实现定时关闭消息框，感觉十分有用, 这里为了方便我们把它的名称声明为 MsgBoxTimeout，将 wType 声明为 VbMsgBoxStyle。函数的声明如下(32位)：Private Declare Function MsgBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As Long, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) As Long此函数的参数如下： ◾hwnd：消息框拥有者窗口的句柄，可以设为 0 ◾lpText：消息框显示内容，类似于 MsgBox 函数的第一个参数 Prompt ◾lpCaption：消息框标题，类似于 MsgBox 函数的第三个参数 Caption ◾wType：消息框类型，类似于 MsgBox 函数的第二个参数 Buttons ◾wlange：函数扩展，一般取 0 ◾dwTimeout：消息框延迟关闭时间，单位为毫秒 返回的值和 vbMsgBoxResult 常数一样，多了一个返回值 32000 表示超过延时时间未选择任何按钮。具体例子见附件：点击链接从百度网盘下载示例代码如下： '**************************************** '---此模块演示一个可以延时关闭的消息框--- '**************************************** #If Win64 Then '64位 Private Declare PtrSafe Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As LongPtr, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) _ As Long #Else Private Declare Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As Long, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) _ As Long #End If Sub btnMsgbox_Click() Dim xRet As Long xRet = MsgBoxTimeout(0, "此对话框如无交互操作将在 2 秒后自动关闭", "ExcelFans.com", vbYesNo + vbInformation, 1, 2000) Select Case xRet Case 32000 Debug.Print "超时自动关闭" Case vbYes Debug.Print "选择""是""按钮" Case vbNo Debug.Print "选择""否""按钮" End Select End Sub
如何实现 Excel 文件执行完代码后把自身给删除了
有朋友需要一些另类的功能，比如让一个 Excel 文件执行完代码后把自身给删除了，其实 Excel 还真的可以做到，这是一段网上摘抄的代码， 可以让一个工作簿执行完代码后自己删除自己.附件下载：点击从百度网盘下载 具体代码：Sub CloseSelf() Application.DisplayAlerts = False ThisWorkbook.ChangeFileAccess xlReadOnly MsgBox "点击确定按钮我就把自己删除了哟 ^_^" Kill ThisWorkbook.FullName ThisWorkbook.Close False End Sub
Excel COUNTBLANK 函数 使用实例教程
COUNTBLANK 函数统计指定单元格区域中空白单元格的个数。Excel 2003+COUNTBLANK 函数统计指定区域中空白单元格的个数。空白单元格的个数。=COUNTBLANK(range) =COUNTBLANK(单元格区域) 参数 Range 必需。 需要计算的单元格区域。 要点 包含返回值为空文本（””）的公式的单元格，将计算为空白单元格。