推荐阅读
WPS 如何在Excel中画线条
在Excel里怎么画线条呢？现在就为大家介绍一种设置表格线条的方法。第一步:在制作分类表格时，需要输入不同属性，在输入的时候要保持[自动换行]的状态就行了：第二步:比如名称和目录在一个表格，然后需要在名称和目录中间加一条斜线。选择单元格，然后单机鼠标的右键，然后再点击【设置单元格格式】：第三步:在边框菜单栏里找到一条斜线的文本模式，然后点击【确定】：第四步：我们稍微调整下位置就可以了：
PPT如何快速制作图片滤镜背景效果 实例教程
具体操作步骤如下： 新建一个PPT页面，然后插入一张图片覆盖整个页面。为了加大难度特地选了一张图片比较没“焦点”照片。 选中图片，在“图片工具-格式-颜色“中设置”重新着色“。选择合适的颜色。 如果觉得颜色不够，可以在其他变体中，选择更多的颜色滤镜效果。 如果觉得颜色不够深，可以在图片上添加一层半透明图形，降低图片的整体亮度。 例如下图绿色很喜欢，但感觉太亮。可以增加一层黑色半透明图层。
怎么在WPS表格中制作饼状图
WPS表格中制作饼状图的步骤： 用WPS表格软件打开准备好的excel数据。如图 用鼠标左键框选中前十行和前四列数据，在菜单中选择“插入”——“图表”，单击之。 弹出“插入图表”对话框，在框体左侧，单击饼图，然后点击确定。 得到生成的饼状图结果。 如果感觉饼图的显示不够丰富，可以在工具栏中改变图表的样式，如图红框部分。
excel2007主界面插入符号栏的教程
Excel中经常需要使用到符号栏插入符号，符号栏具体该如何添加到主界面呢?下面是小编带来的关于excel2007主界面插入符号栏的教程，希望阅读过后对你有所启发! excel2007主界面插入符号栏的教程： 主界面插入符号栏步骤：office按钮—-excel选项—-加载项—-管理：禁用项目—-用鼠标点击“转到”(选择禁用的项目：office special symbol input add-in.)—-启用，重启excel，如下图所示：看了excel2007主界面插入符号栏的教程还看了：1.怎么在excel2007中添加符号栏2.Excel2007图表标题的添加和修改方法3.excel2007自定义状态栏的教程4.Excel2007中怎么输入平方立方符号5.如何开启excel2007菜单的工具栏6.Excel2007怎么自动添加单位和前
最新发布
同样的Access查询，直接找开或DAO打开结果正确，但使用ADO代码打开则结果不正确
完全一样的Access查询，直接找开或DAO打开结果正确，但使用ADO代码打开则结果不正确就是查询如果比较复杂的话,通过ADO获取这个查询的记录的时候,有些字段的值全部是空的如果用Access双击打开这个查询,里面的值又是可以计算出来的，最后我只有手工的将查询的结果转存到表里,然后读表,好坑 找了个Access实例( 问卷扣分查询 与ADO代码对比） 查询与ADO代码对比的结果
Access VBA 使用API 关闭系统声音和打开系统声音的 方法
Access VBA 使用API 关闭系统声音和打开系统声音的 方法即让整个系统静音及取消静音的代码如下 ------VBA 实现 源码-------------------- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const BM_GETCHECK = &HF0 ' 取得复选框状态 Private Const BM_SETCHECK = &HF1 '设置复选框状态 ' Private Const BST_UNCHECKED = &00 设置复选框为未选中状态 ' Private Const BST_CHECKED = &01 设置复选框为选中状态 Private Sub Command1_Click() Dim hwnd0 As Long ' 用于记录“音量控制”程序的句柄 Shell "sndvol32.exe" ' 启动“音量控制”程序 hwnd0 = FindWindow(vbNullString, "主音量") Dim hwnd1 As Long ' 用于记录“全部静音”复选框句柄 hwnd1 = FindWindowEx(hwnd0, 0&, "Button", "全部静音(&M)") ' 复选框的类名是"Button" Dim State As Long ' 用于记录复选框状态，如果复选框处于未选中状态，则返回0，选中状态返回1 State = SendMessage(hwnd1, BM_GETCHECK, ByVal CLng(0), ByVal CLng(0)) SendMessage hwnd1, BM_SETCHECK, 1, 0 '使系统静音 SendMessage hwnd1, BM_SETCHECK, 0, 0 '使系统发音 End Sub
Access 动态创建报表对象 图解教程
有网友想根据窗体设计的内容动态创建报表？这个功能其实可以参考Office交流网Access通用开发平台。这里用到VBA代码，下面的示例是简单创建一个test report的报表 详细源码： Sub testreport() Dim rp As Access.Report Set rp = CreateReport With rp .Caption = "test report" End With End Sub 创建效果：
Access函数的调用图解教程
Access内置函数库能轻松解决很多问题。如果没有此函数，我们可以自定义函数来处理问题。这里我们说说如何调用函数。调用内置函数和自定义函数方法是一样的。一.创建自定义函数在VBE视图下，插入-模块，新建一个模块后，键入以下函数。一个累加的函数。 Public Function leijia(n As Integer) Dim i As Integer Dim y As Long y = 0 For i = 1 To n y = y + i Next leijia = y End Function 二.调用函数1.在查询中调用函数可以在查询中直接调用，如Now(),year()等函数，也可以调用自定义函数
vb.net在内存中解压文件
Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click'保存压缩文件Dim fso As New SaveFileDialogIf fso.ShowDialog = Windows.Forms.DialogResult.OK ThenGzipFile(fso.FileName)End If End Sub
VBA及VB三种不同压缩解压组件/控件的性能对比报告(zlib.dll,info-zip,xceed zip)
VB Access Excel本身没有自己的压缩和解压缩函数和组件，必须依赖于第三方的控件或动态链接库，以下是三种不同压缩组件的性能对比详细报告 VB中使用三种不同组件进行内存解压的结果分析比较本文采用三种不同软件公司的动态链接库组件，分别进行内存解压缩实验，这三种组件分别是：1、 使用zlib 软件公司的zlib.dll动态链接库组件进行内存解压2、 使用info-zip软件公司的vbuzip10.dll（也就是unzip32.dll）动态链接库组件进行内存解压3、 使用xceed软件公司的xceed zip compression library V5.0版本的xceedzip.dll动态链接库组件进行内存解压利用上述三种不同软件公司的动态链接库组件，对解压前大小为229046805字节的压缩文件进行解压实验，实验结果如下：1、采用三种不同软件公司的动态链接库组件分别进行内存解压，三次内存解压所用时间（毫秒）如下：软件名称 第一次 第二次 第三次 平均时间
VBA压缩与解压缩源码
VBA本身没有压缩和解压缩的函数，但可调用zip.dll unzip.dll 或 winrar.exe 命令行方式来实现对文件的压缩与解压缩 1、批量解压缩（一次性解压指定文件夹中所有rar文件） Sub UnRarFile() '解压缩程序 Dim Rarexe As String Dim RAR As String Dim Myadd As String Dim FileString As String Dim Result As Long Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径 myRAR = "D:\工资表\*.rar" '需要解压缩的rar文件,用通配符可以解压所有文件 Myadd = "D:\工资表" ' 解压后的文件存放路径 FileString = Rarexe & " X " & myRAR & " " & Myadd 'rar程序的X命令，用来解压缩文件的字符串 Result = Shell(FileString, vbHide) '执行解压缩 End Sub 运行效果： 把D盘的工资表文件夹中的所有压缩文件一次性解压。2、批量压缩文件（一次性压缩指定文件夹中所有xls文件） Sub RarFile() '压缩程序 Dim Rarexe As String Dim myRAR As String Dim Myfile As String Dim FileString As String Dim Result As Long Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径 myRAR = "D:\工资表\工资表.rar" '压缩后的文件名 Myfile = "D:\工资表\*.xls" ' 指定要压缩的文件 FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串 Result = Shell(FileString, vbHide) '执行压缩 End Sub ___________________________________________________________________________
Access选项下当前数据库的常用设置图解教程
在Access菜单栏下打开文件-选项-当前数据库，可以设置当前数据库的一些属性。如下图所示1.应用程序标题显示数据库的标题，这里我们键入“Access数据库管理系统”2.应用程序图标显示应用程序的图标，添加后，在数据库的左上角，Windows下的任务栏都会显示该图标。当勾选“用作窗体和报表图标”，此时，窗体和报表都会使用该图标3.显示窗体
同样的Access版本生成的mde在另一台电脑出现不兼容，无法打开的解决办法
最近有一个客户在使用Access通用开发平台生成的MDE，在某些电脑总是出现错误，无法打开，或打开提示宏错误或VBA程序出错。但把Access 源文件mdb复制到这台出错的电脑重新生成mde,则打开正常。即使用同样的Access相同的版本生成的mde,在另一台电脑同样的Access版本，打开出错，也就是mde不兼容通过以下几种方法来检查都发现无法解决，即使重新Office access也不能解决。
Access备用条件 Access备用条件查询
查询有许多优点。可以一次又一次地保存和运行相同的查询，并且可以多次添加备用条件。 可以通过以下两种方式添加备用条件 -下面来看看一下备选条件的一个简单例子。 打开数据库，然后在 创建 选项卡中选择：查询设计。双击Employee并关闭“显示表格”对话框。双击想查看的所有字段作为查询结果。现在可以看到在"Name"字段的不同行中指定了备用条件。当运行这个查询时，会看到名字是"Maxsu"或"Java"的员工信息。现在运行这个查询，如下所示 -执行查询结果如下 -正如上图所看到的，只有两名员工被检索出来，因为有其他的查询条件。如果想要在多个字段中添加备用条件，则必须为所有字段使用不同的行。现在添加另一个替代条件，可以检索名字是"Maxsu"或"Java"或City为"广州"的员工的信息。让我们现在运行这个查询。得到以下结果 -