推荐阅读
如何利用Excel2010的自动填充数据的功能
若要在相邻的多个单元格中输入类似1、2、3、……的具有一定规律的数据时，为了提高工作效率，可利用Excel2010的自动填充数据的功能，操作非常简单，而且可以大大提高我们的工作效率。 1、向下拖动鼠标 打开excel表格，选中A3单元格，将鼠标指针放在其右下角，当指针变为十字形状时，按住鼠标左键不放并向下拖动鼠标，在适当位置释放鼠标后，单击“自动填充选项”按钮，从中选择填充方式，如“填充序列”，如下图所示。图1 2、自动填充数据后效果 此时鼠标拖动过的单元格就以等差序列填充，如下图所示。图2 自动填充数据除了可以使用填充柄，还可以使用对话框或快捷菜单来完成。选定需要填充的单元格区域，在“开始”选项卡下的“编辑”组中单击“填充”右侧的下三角按钮，在展开的下拉列表中单击填充方式，此时所选单元格区域就填充了相同的数据，若要填充有一定规律的数据，可选择“序列”选项，在弹出的“序列”对话框中选择填充方式，并输入步长值和终止值即可。
几何画板工具箱乱码解决办法
在用几何画板时添加了新的自定义工具，但是打开自定义工具却发现工具的字体乱码，该如何解决几何画板工具箱乱码问题呢？几何画板工具箱乱码如下图：解决办法如下：1.先按下“Shift”键，此时的“预置”就变为“高级预置”（如图），选择高级预置选项。2.在弹出的“高级预置”对话框的“系统”选项下，在“对GSP3/GSP4文档的语言支持”的下拉菜单中选择“GB2312简体中文”即可。3.重新启动几何画板。工具箱显示正常，如下图所示。根据以上教程操作，几何画板工具箱乱码问题就可以彻底解决了，这样就可以正常利用几何画板自定义工具画图了。
excel 2013中的批注功能 使用技巧
excel中的批注功能用处有很多，比如我们需要多个人共享一个文件，或者是做产品报价给客户看有些地方我们就需要标注一下，这时候我们就可以使用excel 2013中的批注功能了。在excel 2013中插入批注的方法非常的简单，具体步骤如下: 1、我们在需要插入批注的单元格单击鼠标右键，在弹出的快捷菜单中我们选择插入批注选项，如图1所示。图1 2、这时excel工作表上会自动插入一个批注，我们在批注里输入我们需要批注的内容，如图2所示。图2 3、如果我们对默认的批注字体或者颜色感觉不合适，我们可以单击右键，然后选择设置批注格式，如图3所示。图3
如何将Excel2010表格保存到SharePoint
日常事务中，我们常常需要进行各类报表的上报。将Excel表格保存到SharePoint可以方便快捷的完成各类表格上报和信息传递。操作方法 单击“文件”—“保存并发送”—“保存到SharePoint”—“发布选项”。 可设置将整个工作簿还是指定工作表发布到SharePoint。 在方法1所示图中，单击“另存为”，在“文件名”处输入SharePoint网站文档库地址，单击“保存”即可发布。 用IE游览器访问SharePoint网站，可在游览器中打开已发布的Excel文件，并进行操作。
最新发布
Access2016数据库开发教程3
第三章 程序设计文档 为了方便学习，在本教程中直接嵌入了程序设计文档(需求设计、功能设计、表设计文档)，这三个文档原本有规范化格式，在此进行了简化，详细的文档写法请参考相关书籍与资料。 3.1 需求设计说明书 3.1.1概述 文档说明 本需求和设计说明书是为了满足公司更加有效地管理协调费用的报销而开发的一套管理软件的简略说明。 设计目标 满足公司对费用报销的有效管理，使公司可以更加有效的协调和控制公司的费用开支，优化和降低公司的运营成本，提高公司的盈利水平，使公司的管理更上一个台阶。 3.1.2程序开发及运行环境： 网络配制：局域网联网，2个客户端。
Access2016数据库开发教程4
第四章 表设计 4.1 创建数据表 现在我们已经完成了准备工作，可以开始正式在开发平台后台数据库文件中建立数据表。表应该建在后端数据库中，后端数据库文件名是Data.mdb如下图4-1所示： 图4-1 后台数据库文件 双击data.mdb文件，根据第三章中的3.3节表设计说明书的设计，在data.mdb中创建表tblCodeyg和tblBxmx，首先来设计一下tblCodeyg表。 进入设计表的界面，如下图4-2所示： 图4-2 表设计界面 单击图4-2中的【创建】，选中“表设计”，如下图4-3所示：
Access2016数据库开发教程5
4.2 在表中输入数据 为了方便在教程后续的学习，我们需要在表中输入少量的模拟数据。在表tblCodeyg录入2条记录，如下图4-13所示： 图4-13在表tblCodeyg中录入数据 表tblBxmx录入2条记录，下图4-14所示： 图4-14 在表tblBxmx中录入数据 注意：表tblBxmx中员工姓名是组合框，来源于表tblCodeyg,实际上表中保存的值是员工编码Y01,Y02,如果您与上图不一致，则参考本章第4.1节“创建数据表”中的图4-5。 4.3 链接后台数据库 提示 为什么要采用链接后台数据库而不采用直接在主程序Main.mdb中直接建表?原因有两点：一是为了共享数据文件(Data.mdb);二是当软件投入使用后，数据文件中已存在数据，而主程序(Main.mdb)可能需要完善或增加功能，当要对软件进行升级时，采用链接后台数据库的方式不影响数据，方便维护。
Access2016数据库开发教程6
第五章 查询设计 提示 为了保证链接表与后台数据库data.mdb一致，每次当您更改了data.mdb中的表设计(例如表中增加了字段、更改了字段类型等)时，需要刷新一次，方法就是双击SysFrmLogin窗体登陆一次，平台会自动刷新一次链接表。 5.1 为何要创建查询 创建查询是为了将报销明细中的员工编码(例如Y01，Y02)转换为姓名(例如张三，李四)，以方便操作员按姓名去检索数据。 如果不创建查询，则只能按员工编码(例如Y01，Y02)的方式去检索数据，这样会让软件的使用者感觉不方便，显得不人性化。 5.2 创建查询 为了检索数据的需要，需要建立一个选择查询qryBxmx，步骤如下： 第1步：进入Main.mdb的设计界面 按住键盘的 shift 键(注意，一定要等该程序文件完全打开之后再松开 shift 键，否则会出现登录对话框，如果出现了登录对话框，则意味着你按 shift 键失败，需要关闭程序重新打开，有少量初学者在这个问题上出了纰漏)，双击打开Main.mdb 文件，如下图5-1所示： 图5-1 进入main.mdb设计状态
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