推荐阅读
Excel EXACT 函数 使用教程
EXACT 函数比较两个文本字符串，如果它们完全相同，则返回 TRUE，否则返回 FALSE。Excel 2003+EXACT 函数比较两个文本字符串，如果它们完全相同，则返回 TRUE，否则返回 FALSE。EXACT 函数在比较两个字符串时，区分大小写，但是忽略格式差异。返回 TRUE 或 FALSE。=EXACT(text1, text2) =EXACT(文本1, 文本2) 参数 Text1 必需。 第一个文本字符串。 text2 必需。 第二个文本字符串。 实例
Word技巧：设置文字底纹
为了美化文档，我们可以适当给文档的内容添加底纹和边框。那么下面小编就教你word设置底纹的技巧。 word设置底纹的技巧: 选中文本内容。 在“开始”选项卡，单击“底纹”按钮，在打开的列表中选择底纹的即可。 说明：我们还可以选择文本设置字符底纹，在“开始”选项卡，直接单击“底纹”按钮即可。 看看效果，如下图所示。
如何给ppt2007中的贴画自定义皮肤
用户在进行ppt编写的时候往往会需要插入一些剪贴画，而插入的剪贴画都是系统自带的，难免颜色，色调方面会不合你的心意，其实我们完全有办法将剪贴画重新换上另一种自己喜欢的颜色皮肤，你是不是很诧异呢，那么我们究竟该如何给剪贴画换皮肤呢，小编这就来为大家排忧解难。操作步骤1 打开我们幻灯片中的一篇演示文稿，点击“插入”选项卡，在“插图”区域选择“剪贴画”选项组，此时在演示文稿的右侧会出现一个“剪贴画”的任务窗格，在里面输入文字搜索剪贴画，在搜索结果中选择自己喜欢的剪贴画用鼠标双击，如“第一幅”；插入剪贴画2 使插入在文本中的剪贴画处于被选中状态，然后单击“格式”选项卡，在“调整”区域选择“重新着色”选项组，在弹出的下拉菜单中点击“其他变体”选项中的“其他颜色”命令；单击其他颜色选项3 在弹出的“颜色”的对话框中单击“自定义”选项卡，用鼠标在“颜色”区域单击选择自己喜欢的颜色，用户也可以在对话框的底端调整颜色的“透明度”，最后单击“确定”即可；进行颜色的设置4 返回到文档中，你会发现刚刚插入的剪贴画已经被重新换了颜色，以下是上色后的剪贴画与在任务框中搜索到的原图剪贴画的对比；重新上色后的剪贴画
Word2007如何压缩图片
Word2007如何压缩图片?其实我们可以在Word2007中设置图片压缩选项，这样在保存文档时Word2007可以按照用户的设置自动压缩图片尺寸。下面小编就教你Word2007压缩图片的方法。 Word2007压缩图片的方法： 打开Word2007文档，选中其中的一张图片。在“图片工具”功能区的“格式”选项卡中，点击“压缩图片”按钮。 在打开的“压缩图片”对话框中，单击“选项”按钮。 在“压缩设置”对话框中选中“保存时自动执行基本压缩”复选框，并单击“确定”按钮即可。 注意：在“压缩设置”对话框中，如果选中“删除图片的裁剪区域”复选框，则在执行压缩图片操作后，被裁剪的图片将不能被还原到原始状态。 当Word文档中含有很多大尺寸图片的时候，这个操作非常有效。下面是我们没有压缩图片保存和压缩图片保存后的文档体积大小对比。Word2007如何压缩图片
最新发布
Access2016数据库开发教程7
第六章 窗体设计 6.1 自动创建窗体介绍 平台中集成了自动化的窗体创建工具，能够快速自动生成开发人员所需要的窗体及相应功能的代码，而不需要通过手工去创建和书写VBA代码。当这些窗体无法满足软件设计的特殊需要时，开发人员可在自动创建的窗体上进行少量修改后，即可满足软件设计的需要。 由于自动创建窗体是平台特有的功能，需要结合平台的一些规则去进行操作，才能实现自动创建具备相关功能的窗体，接下来的一节“自动编号管理”是必经之路，只有掌握了自动编号管理后，方可进行本章后续的学习。 6.2 自动编号管理 6.2.1自动编号管理介绍 【自动编号管理】是平台提供的一项功能，用于对各种自定义编号规则进行定义/维护。在报销软件的开发中，可以利用此功能，方便地实现表tblCodeyg中字段ygID和表tblBxmx中字段mxID的自动编号。 从第三章程序设计文档中3.3节 表设计说明书中，可以看到： 表tblCodeyg中字段ygID的自动编号规则： “Y+序号2位”，格式举例：Y01，Y02，Y03……
Access2016数据库开发教程8
6.3 数据模块创建向导 在平台的【开发者工具】à【数据模块创建向导】，通过几次鼠标点击操作，就可快速自动生成具有完善的增加、修改、删除、查找、打印预览、打印、导入、导出功能(打印预览和打印需要在此基础上手动修改)的数据维护模块。 在使用【数据模块创建向导】创建窗体之前，需要对相关的表做好以下工作： 1) 需要对表设置主键; 2) 必填字段的“必需”属性设为“是”; 3) 需要先对表中的相关自动编号字段在【开发者工具】à【自动编号管理】进行设置。 4) 创建菜单分组 因为“报销明细”这个模块是被归类为“基础资料”的，因此我们需要先在导航菜单中建立一个名为“基础资料”分组菜单节点。 当然，这一步并不是必不可少的步骤，你也可以在该功能模块创建完成之后再添加该菜单节点，通过快速开发平台中集成的“导航菜单编辑器”可以非常简单轻松的对导航菜单进行调整。 当完成上述4点后，就可以利用【数据模块创建向导】通过一键来自动生成数据维护模块。
《Access数据库程序设计》教学(考试)大纲
一、课程基本情况课程名称：Access数据库程序设计课程代号：253考核对象：非计算机专业本专科学生先修课程：计算机应用基础学时：72学时(理论48学时，上机实验24学时)考试安排：每年两次考试，一般安排在学期末考试方式：省二级考试（笔试，机试）考试时间：笔试60分钟，机试90分钟设置目的：
Access参数查询实例教程
关于查询的最好的部分是可以一次又一次地保存和运行相同的查询，但是当您通过只更改条件来一次又一次地运行相同的查询时，则可以考虑查询来接受参数并按指定参数值来查询。现在通过创建一个简单的例子来看看一个参数查询。打开数据库，然后在创建表 选项卡中选择：查询设计。双击Projects表并关闭显示对话框。选择想要查看的字段作为查询结果，如以下屏幕截图所示。在查询设计网格中，在ProjectStart列的条件 行中，键入[输入项目开始时间]， 字符串[输入项目开始时间] 是输入参数的提示。方括号表示要查询输入，而文本是输入项目开始时间是参数提示信息。让我们现在运行查询，将看到以下提示。现在输入下面的日期，如以下屏幕截图所示 -假设Projects 表中有以下数据 -那么执行查询，将得到以下数据 - 因此，将看到2017年12月30日开始的项目的详细信息。 转到“设计视图”并再次运行查询，输入项目开始时间：2017-12-27。
VBA直接解压文件（不支持压缩）
提示: 不要定义示例中的 strFileNameFolder 变量为String 类型，必须定义为 Variant 类型， 否则代码不能正常运行。示例 1： 通过此例你可以浏览压缩文件.你选中一个文件后此宏会在你的默认文件路径下创建一个新的文件夹并解压文件到这个文件夹。 Sub UnzipFile() Dim FSO As Object Dim oApp As Object Dim strFileName As Variant Dim strFileNameFolder As Variant Dim strDefPath As String Dim strDate As String '只支持Zip压缩文件，不支持Rar或其它压缩格式 strFileName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False) If Not (strFileName = False)Then '新文件夹的上级文件夹. '你也可以支持指定路径 strDefPath = "C:\Users\test" strDefPath = Application.DefaultFilePath If Right(strDefPath, 1) <> "" Then strDefPath = strDefPath & "" End If '创建文件夹名称 strDate = Format(Now, " dd-mm-yy h-mm-ss") strFileNameFolder = strDefPath & "MyUnzipFolder " & strDate & "" '创建名为 strDefPath 的普通文件夹 MkDir strFileNameFolder '提取所有文件到此创建的文件夹 Set oApp = CreateObject("Shell.Application") oApp.Namespace(strFileNameFolder).CopyHere oApp.Namespace(strFileName).items '假如你只需要提取某一个文件，可以如下: 'oApp.Namespace(strFileNameFolder).CopyHere oApp.Namespace(strFileName).items.Item("test.txt") MsgBox "文件已经解压到: " & strFileNameFolder On Error Resume Next Set FSO = CreateObject("scripting.filesystemobject") '删除临时文件 FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True End If End Sub
Access数据库软件版本号保存在INI文件中，然后从INI文件中提取版本号
很久以前帮客户做的一个客户管理系统，有一个取软件版本号的函数，感觉还有点用，与大家分享一下Access数据库软件版本号保存在INI文件中，然后从INI文件中提取软件的当前版本号（可用来与服务器的最新版本号对比，然后提示是否需要更新） '软件版本号保存在INI文件中，然后从INI文件中提取版本号 Private Sub GetCurrVer() '作者：tmtony 2003-02-03 Dim sLine As String, iPos As Integer, sTmp As String Dim sFormName As String, sTmp2 As String Dim bFormFound As Boolean Dim intType As Integer Dim iPos2 As Integer Dim iSubIndex As Integer Dim iIndex As Integer Dim sFile As String sFile = CurrentProject.Path & "\cn2005.ini"Open sFile For Input As #1 DoInput #1, sLineIf Left$(sLine, 1) = ";" Or sLine = "" Then GoTo Jump iPos = InStr(sLine, "=") 'sTmp = Mid$(sLine, iPos + 1, InStr(sLine, "=") - iPos - 1)If iPos > 0 Then sTmp = Left$(sLine, iPos - 1) 'If sTmp = "Version" Then sTmp2 = Mid$(sLine, InStr(sLine, "=") + 2) 'End If If Right$(sTmp2, 1) = Chr$(34) Then sTmp2 = Left$(sTmp2, Len(sTmp2) - 1) Select Case sTmp Case "Version" txtCurrVersion = sTmp2 Case "VersionDate" txtCurrVersionDate = sTmp2 Case "Path" Me.txtCurrPath = sTmp2 End Select GoTo Jump End If Jump: Loop Until EOF(1) Close #1 txtCurrPath = Nz(CurrentProject.Path) End Sub
vba灵活调用shell及vba FSO对文件的操作
在调用SHELL之前，必须要通过以下步骤：（以在E：盘根目录下操作为例） 1、强制改变当前的驱动器： ChDrive "E" 2、强制改变默认的工作目录：chdir "E:/" 完成以上动作之后，再来调用E：/的批处理文件：shell "e:/234.bat" 这样执行的效果就和DOS下执行的效果一致。 原因在哪？这是因为SHELL的工作切入点是在Application的默认工作目录中，也就是说，除非在批处理中强行界定目标路径，否则，SHELL执行批处理时永远都是Application的默认工作目录下进行。 而Application的默认工作目录一般都是“我的文档”。你可以这样试验一下，在E：/创建一个批处理234.bat，内容是 dir >123.inf ，就是将dir列表写进到123.inf文件中，然后在立即窗口中shell "E:/234.bat" ，之后再用windows的搜索功能，搜索一下刚刚生成的123.inf文件，你就会发现这个文件是在“我的文档”中，而不是在E：/下，而在DOS下直接执行234.bat，则结果文件就自然在E:/下。 如果是在立即窗口中，依次执行 ChDrive "E" chdir "E:/" shell "e:/234.bat" 你再看一下，生成的文件就在E：/下了。 Option Explicit'version 0.1 2009/08/05 add Attached_SaveAsSub Attached_SaveAs()'执行前，在工具，引用中加入"Microsoft Scripting Runtime" Dim fso As New FileSystemObject Dim fldr As Folder Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists("d:/GDS_HUB_Report_Used_by_Rita") Then '判断是否存在这个文件夹 fso.DeleteFolder ("d:/GDS_HUB_Report_Used_by_Rita") Else MsgBox "program will create a new Folder which is named 'GDS_HUB_Report_Used_by_Rita' on the D disk!" End If MkDir "D:/GDS_HUB_Report_Used_by_Rita" 'Shell "D:/", 0 'Shell "cd 1", 1'调用shell命令前加入改变当前默认路径 ChDrive "D" ChDir "D:/1/" Shell "calc.exe", 1 Shell "C:/Program Files/7-zip/7z.exe e d:/1/1.rar", 1 Dim myOlSel As Outlook.Selection Dim j, x, cu As Integer Dim strFolder As String Dim defaultPath As String Dim YN As Integer, zipYN As Integer Dim i As Long Dim oApp As Object Set oApp = CreateObject("Shell.Application") Set myOlSel = Application.ActiveExplorer.Selection defaultPath = "D:/GDS_HUB_Report_Used_by_Rita/" If FileExist("C:/VBAtemp.ini") Then Open "c:/VBAtemp.ini" For Input As #1 Line Input #1, defaultPath Close #1 If PathExist(defaultPath) Then YN = MsgBox(defaultPath, vbYesNo, "Save file to this path ?") If YN = vbNo Then strFolder = getFOLDER() Else strFolder = defaultPath End If Else strFolder = getFOLDER() End If Else strFolder = getFOLDER() End If zipYN = MsgBox("auto unzip ?", vbYesNo, "auto unzip ?")
Access如何设置透明图标按钮
在Access设置透明的图标按钮，会另界面显得更加专业，美观。在早期的版本中Access2003中，Access按钮图标的一般做法是在按钮的底部放置一个矩形（设置成图片），按钮显示为透明，这样就能达到图标按钮的做法了。这里再介绍一种方法是添加两个ActiveX 控件。ImageListCtrl和Toolbar 来达到图标按钮的效果，而且更加美观。动态效果图：在Access2010的版本中，这个效果就更加容易弄了只需要设置按钮的控件属性。格式：图片标题排列设为"常规"；图片随意选择一个；背景样式设为"透明"
使用ADO的OpenSchema或ADOX无法读取所有Access数据库里所有查询名称列表的问题
在使用ADO的OpenSchema或ADOX 读取Access数据库里所有查询的清单时发现结果总是少了一个查询，Access查询列表中有5个，但用VBA 或VB代码读出来只有4个，少了一个 ADO读取Access数据库所有查询名的代码如下 Private Sub OpenDBSchema(FileName As String) Dim conn As New ADODB.Connection Dim mProvider As String Dim fso As New FileSystemObject If Not fso.FileExists(FileName) Then Set grid1.DataSource = Nothing Select Case LCase(fso.GetExtensionName(FileName)) Case "mdb" mProvider = "Microsoft.Jet.OLEDB.4.0" Case "accdb" mProvider = "Microsoft.ACE.OLEDB.12.0" End Select conn.ConnectionString = "Provider=" & mProvider & ";Data Source=" & FileName & ";Persist Security Info=False;" conn.Open Set grid1.DataSource = conn.OpenSchema(adSchemaTables) grid1.AllowUserResizing = flexResizeBoth End Sub 出现 的错误如下（ADO VBA代码取得的结果与Access数据库查询实际对比） 经过不断尝试与分析，终于发现，原来这个少掉的Access查询，使用了一个Access模块中的自定义函数
Access或VB VBA 获取了窗体或控件的句柄 Hwnd, 如果用API 设置焦点到这个控件或窗体
Access或VB VBA 获取了窗体或控件的句柄 Hwnd, 如果用API 设置焦点到这个控件或窗体上可使用以下的代码，要准确定位焦点1. 使用VB API SendMessage来实现简易使用SendMessage,比SetFocus更为底层,调用速度快 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const WM_SETFOCUS = &H7 SendMessage childhwnd, WM_SETFOCUS, 0, ByVal 0&2. 如果 用API Setfocus也是可以的。