推荐阅读
Windows 10中的Office Mobile套件获小幅更新 下载
微软今日对 Windows 10 中的 Office Mobile 套件进行了小幅更新，其中 Word Mobile、Excel Mobile、PowerPoint Mobile 和 OneNote 都有不少的 Bug 修复和性能改进，但没有明显的新功能增加。Word Mobile Excel MobilePowerPoint Mobile OneNote for Windows 10 Mobile
Excel中GESTEP函数的语法和用法
本文介绍Microsoft Excel中GESTEP函数的语法和用法。如果 Number 大于等于 step，返回 1，否则返回 0。使用该函数可筛选数据。例如，通过计算多个函数 GESTEP 的返回值，可以检测出数据集中超过某个临界值的数据个数。如果该函数不可用，并返回错误值 #NAME?，请安装并加载“分析工具库”加载宏。可以参考文章：Office2003安装并加载“分析工具库”加载GESTEP(number,step)GESTEP(待测试的数值,阈值)Number：待测试的数值。Step：阈值。如果省略 step，则函数 GESTEP 假设其为零。如果任一参数为非数值，则函数 GESTEP 返回错误值 #VALUE!。 以下是Excel中使用GESTEP函数效果截图
excel2007制作甘特图的方法教程
Excel中经常需要使用到图表功能，甘特图具体该如何制作呢?下面是由小编分享的excel2007制作甘特图教程，以供大家阅读和学习。 excel2007制作甘特图教程 制作甘特图步骤1：添加辅助数据，用于区分各项任务中已完成和未完成的天数。在G2：G9和H2：H9单元格区域输入下列公式，公式计算结果如下图所示。 =IF($B$11>=D2,C2,IF($B$11>B2,$B$11-B2,"")) =IF($B$11<=B2,C2,IF($B$11excel2007制作甘特图教程图1 制作甘特图步骤2：按下Ctrl键选取A1：B9和G1：H9单元格区域，选择“插入”—“图表”—“条形图”—“二维条形图”—“堆积条形图”创建堆积条形图，然后删除图例，结果如下图所示。excel2007制作甘特图教程图2 制作甘特图步骤3：选中“计划开始日”系列，按Ctrl+1在弹出的“设置数据系列格式”对话框的“系列选项”选项卡中“分类间距”设为“10%”，在“填充”选项卡中设为“无填充”，在“边框颜色”选项卡中设为“无线条”，然后单击“关闭”。 制作甘特图步骤4：选中X轴坐标轴，按Ctrl+1在弹出的“设置坐标轴格式”对话框的“坐标轴选项”设置最小值为40125(即2009/11/8的数值)，最大值为40154(即2009/12/7的数值)，主要刻度单位为3;再单击“数字”选项卡设置数字类别为短日期格式，结果如下图所示。
excel用公式函数提取文件名的方法
在Excel中可能会有特殊的情况需要用到公式函数提取文件名的时候。具体该怎么做呢?下面是小编带来的关于excel 用公式函数提取文件名的方法，希望阅读过后对你有所启发! excel 用公式函数提取文件名的方法 公式提取文件名步骤1：点开始菜单，就能看到上面的界面，选择“运行”!你点了运行程序后，在里面输入“cmd”点击确定会进入命令提示符串口excel 用公式函数提取文件名的方法图1 公式提取文件名步骤2：打个比方说，文件在C盘里面的111文件夹，要读取里面的文件的文件名字excel 用公式函数提取文件名的方法图2 公式提取文件名步骤3：利用cd命令到达要读取文件名的文件夹，用法是这样的：命令为“cd c:\111”excel 用公式函数提取文件名的方法图3 公式提取文件名步骤4：然后会看到下面的这个情况：excel 用公式函数提取文件名的方法图4
最新发布
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也是可以的。