2013年11月_璀璨_帝禹

原创 VB / VBA 自制二维码小工具

现在二维码的使用越来越广泛了，广告、网址等等都用上了从网上找了一个二维码的控件，自己做了个小工具。二维码可以把一串字符，不管长短（没试过最长能多长），做成二维码图片现在的的智能手机软件很多都有扫描二维码的功能，比如微信、我查查，等等。点击下面下载相应的文件下载：二维码小工具-VBA写的下载：二维码小工具-VB写的下载：二维码控件-QRMaker1.3 控件是必须

2013-11-15 16:38:46 12067 1

转载 EXCEL <-> SQL 导入导出的语句

Excel导入SQL从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:/*===================================================================*/--如果接受数据导入的表已经存在insert into 表 select * fromOPENROWSET('MICROSOFT.JET.OLEDB.4.0

2013-11-26 12:33:53 1050

转载 VB6.0 正则表达式

引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了。主要有三个对象：RegExp、MatchCollection、Match。　　　　1. RegExp　这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给 RegExp 实例的字符串的模式。其提供的方法以确定字符串是否与正则表达式的特定模

2013-11-20 15:58:36 1726

转载 VBScript文件操作对象FSO大全

基本运算 + 数字加法及字符串连接 - 数字减法 * 数字乘法 / 数字除法 Mod 求余数 \ 求商数 & 字符串连接 ^ 次方 = 相等 <> 不相等 >= 大于或等于 > 大于 <= 小于或等于 < 小于 Not 非 And 且 Or 或 Xor 异或循环及决策 if .

2013-11-19 15:10:23 2369

原创将Excel数据写入到TXT中

将Excel中的数据，写入到TXT中，以TAB分隔，便于导入EXCEL中注意红色部分的用法，能大幅提高写入速度Sub GetDataFromExcel()Dim arr, brr, tt = Timerarr = ActiveSheet.UsedRangeReDim brr(1 To UBound(arr, 1))For a = 1 To UBound(arr, 1) brr

2013-11-15 16:38:53 2567

原创 Excel 抽取不重复项的公式

Excel 抽取不重复项的公式假设数据在A列，则用以下公式，可以抽取出A列所有的不重复项（修改999可以修改影响到的行数）=IFERROR(INDEX(A$1:A$999,SMALL(IF(IFERROR(MATCH(A$1:A$999,A$1:A$999,),0)=ROW($1:$999),ROW($1:$999),4^8),ROW(A1))),"")如下图中，E1开始输入以上公式（是数组

2013-11-15 16:38:50 4653

原创用代码给VBA添加工程密码

VBA代码，给VBA添加工程密码SubAddVBProjectProtection() On Error Resume Next Set Obj =Application.VBE.ActiveVBProject ' 检查是否勾选VBA工程访问权限 If Err.Number<> 0 Then MsgBox "请勾选信任对VBA工程对象模型的访问": Exit Su

2013-11-15 16:38:48 5057

原创 EXCEL使用VBA+SQL计算重复项之和

目的：以A列为标准，取得相同编号的C,D,E,F列的值之和。（去掉重复项，合并掉后面4列的值）其实如果用函数是可以的，比如用Sumif，但是如果数据量过多，用函数的话可能不太好。这里用VBA，而且使用SQL语句（数据大的话会快些），当然也可以用数组。 Sub GetDd() Dim Cnn,Rs, SqlsTr$ Set Cnn =Creat

2013-11-15 16:38:44 3496

原创 VBA自定义菜单和菜单栏

在EXCEL中，我们的操作都是通过“工具栏、菜单栏、快捷菜”单实现。EXCEL通过菜单给我们提供基本操作功能之外，也为我们提供了扩展自定义功能的接口，即自定义自己的工具栏、菜单栏。本文着重介绍如何在 Excel2003版本中通过编程方式自定义菜单和菜单栏方法。其中包含Excel中管理和自定义菜单栏、菜单、命令、子菜单和快捷菜单，我将通过代码实例分步说明。与大家分享关于VBA实现菜单栏管

2013-11-15 16:38:42 10810

原创 OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错

OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错。提供程序未给出有关错误的任何信息SQL语句：select * fromopenrowset ('Microsoft.Jet.OLEDB.4.0','Excel 8.0;Database=D:\zl\by.xls','select * from[Sheet1$]') 出现了以上的错误，主要原因是：EX

2013-11-15 16:38:40 2645

原创 win2003安装SQL2000提示某个安装程…

开始->运行->regedit到HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager 位置选择文件->倒出,保存在右边窗口右击PendingFileRenameOperations，选择删除，然后确认重启安装，问题解决有时个在HKEY_LOCAL_MACHINE\SYSTEM\ControlSet01和C

2013-11-15 16:38:38 865

原创常用的正则匹配

"^\d+$"　　//非负整数（正整数 + 0） "^[0-9]*[1-9][0-9]*$"　　//正整数 "^((-\d+)|(0+))$"　　//非正整数（负整数 + 0） "^-[0-9]*[1-9][0-9]*$"　　//负整数 "^-?\d+$"　　　　//整数 "^\d+(\.\d+)?$"　　//非负浮点数（正浮点数 + 0） "^(([0-9]+\.[0-9]*[1-9

2013-11-15 16:38:36 782

原创正则表达式语法

正则表达式语法一个正则表达式就是由普通字符（例如字符 a 到z）以及特殊字符（称为元字符）组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。这里有一些可能会遇到的正则表达式示例：Visual Basic Scripting EditionVBScript匹配/^\[ \t]*$/"^\[ \

2013-11-15 16:38:34 733

转载用VBA读写excel文档属性

原文地址：用VBA读写excel文档属性作者：严雪用VBA读写excel文档属性2011-01-0408：08要实现限制文件的使用次数，想来应该在某个地方存储文档已用的次数，并且在文档每被使用一次这个使用次数就得发生相应的更改。如果这个思路正确的话，我们就可以利用文档属性的某个位置来实现这一想法，故有了以下两种形式：一、利用自定义属性：因为我们可以自定义数字型的属性，这一点非常符合我们的需求

2013-11-15 16:38:31 3104

原创 EXCEL 公式 多列转成一行

EXCEL 公式 2列多行转成1行=OFFSET($A1,ROUNDUP(COLUMN(A1)/2,0)-1,MOD(COLUMN(B1),2))公式多列转成一行" TITLE="EXCEL 公式多列转成一行" />3列多行转成1行=OFFSET($A1,ROUNDUP(COLUMN(A1)/3,0)-1,MOD(COLUMN(C1),3))以此类推，4列以上的呢？大家可以自己试

2013-11-15 16:38:29 1695

原创 EXCEL公式 VBA 随机生成不重复值

宏代码Sub不重复的值()Dim arr(1 To100000, 1 To 1), dicSet dic =CreateObject("scripting.dictionary")Do Until i =100000 tmp = Format(Int(Rnd() * 100000) + 1,0) If Not dic.exists(tmp) Then i

2013-11-15 16:38:27 2249

原创 VBA的Format函数

Format(值,格式(可选参数))一、数字格式：1、General Number：普通数字，可以用来去掉千位分隔号和无效 0 。如：Format("1,234,567.80", "General Number")="1234567.8"2、Currency：货币类型，可添加千位分隔号和货币符号，保留两位小数点。如：Format(1234567,"Currency")="¥1,

2013-11-15 16:38:25 15828

原创 VBA 读取/写入文本文件

VBA读取/写入文本文件 1、Open语句打开方式有 Input：以读取方式打开。Output：以写入方式打开。Append：以追加方式，即添加内容到文件末尾打开。Binary：以二进制方式打开。Random：以随机方式打开，如果未指定方式，则以 Random方式打开文件。 Open pathname For mode As[#]filenumber Open

2013-11-15 16:38:23 2797

原创 VBA字符串处理

目录：1 VBA中的字符串2 VBA中处理字符串的函数 2.1比较字符串 2.2转换字符串 2.3创建字符串 2.4获取字符串的长度 2.5格式化字符串 2.6查找字符串 2.7提取字符/字符串 2.8删除空格 2.9返回字符代码 2.10返回数值代表的相应字符 2.11使用字节的函数

2013-11-15 16:38:21 2072

原创 Vlookup返回多个值 自定义函数

VlookUP函数只能返回第一个值，无法返回多个值下面这个自定义函数可以解决这个问题可以这么理解，是Vlookup函数返回多个值，将其对应的所有值都列出来 FunctionLookS(rng As Range, rg As Range, i As Byte, ii As Integer)'第1参数为查找的单元格，第2参数是查找范围，第3参数为返回的列，第4参数为返回的第几个值'第1参

2013-11-15 16:38:19 3314

原创 EXCEL 批量导出图片

Sub ExportPictures() Dim MyShp AsShape Dim FilenameAs String For EachMyShp In Sheet1.Shapes If MyShp.Type = msoPicture Then Filename = ThisWorkbook.Path & "\"& MySh

2013-11-15 16:38:17 1280

原创 EXCE中GET.CELL宏函数用法

GET.CELL -->GET是得到的意思CELL是单元格的意思,就是你想得到单元格的什么东西(信息)函数定义:GET.CELL(类型号,单元格(或范围))注意:该函数不能直接在单元格里引用,即不能直接写在编辑栏的公式里,只可以写在名称里!!以下是类型号及代表的意思1 参照储存格的绝对地址2 参照储存格的列号3 参照储存格的行号4 类似 TYPE 函数5 参照地址的内容6

2013-11-15 16:38:14 2419

原创利用GetObject("WinMgmts:")获取系统信息

利用GetObject("WinMgmts:")获取系统信息用WMI对象列出系统所有进程:----Instance.vbs----程序代码Dim WMI,objsSet WMI = GetObject("WinMgmts:")Set objs = WMI.InstancesOf("Win32_Process")For Each obj In objsEnum1 = Enum

2013-11-15 16:38:12 3516

原创 VBA 全角转半角

'使用前需先选中要替换的区域 Sub代码全角转半角A方法() Dim Dic,strKey Set Dic =CreateObject("Scripting.Dictionary") '全角数字转换为半角 Dic.Add "１","1" Dic.Add "２","2"

2013-11-15 16:38:10 2529

原创通过修改注册表来修改默认浏览器

通过修改注册表来修改默认浏览器1、开始→运行→输入regedit，打开注册表编辑器2、找到HKEY_CLASSES_ROOT\http\shell\open\command，在右边的窗口中双击"默认"，将要用浏览器的可执行文件的完全路径输入到这里，例如设置IE为默认浏览器：输入“C:\ProgramFiles\Internet Explorer\iexplore.exe”3、然后找到

2013-11-15 16:38:08 1580 1

原创网上邻居无法访问本机及打印机之解…

1.检查guest账户是否开启 XP默认情况下不开启guest账户，因此些为了其他人能浏览你的计算机，请启用guest账户。同时，为了安全请为guest设置密码或相应的权限。当然，也可以为每一台机器设置一个用户名和密码以便计算机之间的互相访问。 2.检查是否拒绝Guest用户从网络访问本机当你开启了guest账户却还是根本不能访问时，请检查设置是否为拒绝gues

2013-11-15 16:38:06 1496

原创 EXCEL中VBA禁止与启用快捷键

Private Sub Workbook_Open()With Application '禁止自动填充 .CellDragAndDrop = False '屏蔽常用工具栏剪切、复制、粘贴 .CommandBars(3).Controls("剪切(&T)").Enabled =False .CommandBars(3).Control

2013-11-15 16:38:04 2845

原创 EXCEL常用基础公式及操作

1、查找重复内容公式：=IF(COUNTIF(A:A,A2)>1,"重复","")。2、用出生年月来计算年龄公式：=TRUNC((DAYS360(H6,"2009/8/30",FALSE))/360,0)。3、从输入的18位身份证号的出生年月计算公式：=CONCATENATE(MID(E2,7,4),"/",MID(E2,11,2),"/",MID(E2,13,2))。4、从输入的身份证

2013-11-15 16:38:02 1101

原创 EXCEL VBA 跨表合并多个文件

'选择一个目录，将目录中的所有EXCEL文件导入当前工作表'这些EXCEL文件最好格式能一样，这里是每个文件是同一个格式 Sub 批量()Dim FD, str$, arrSet FD = Application.FileDialog(msoFileDialogFolderPicker)If FD.Show = -1 Then t = FD.SelectedItems(1) Else

2013-11-15 16:37:59 1330

原创解决win7 64位系统不能识别4G内存…

导致64位win7不只能识别4G内存在msconfig的引导-高级选项-最大内存那里打钩了。去掉最大内存的勾选之后，按系统提示重启出来就可以识别4G内存了。但这也不是绝对的方法，上的能解决的问题，也是因为系统优化后产生的结果。其他原因不排除主板，内存等问题。所以此方法仅作参考，如果你也是出现这样的问题，那么可以先看下图解。运行MSCONFIG,打开msconfig引导-高级选项

2013-11-15 16:37:57 5343 1

原创 EXCEL VBA MD5 简单加密

Function GetMD(s AsString) '引用 ComMD51.0 Type Library '该类库定位于msppmd5.dll '使用命令：REGSVR32.EXEC:\msppmd5.dll 可以注册，保证md5文件路径正确即可注册 Dim a As NewCoMD5 GetMD =a.MD5Hash(s)End Funct

2013-11-15 16:37:55 3511

原创用VBA宏自动改变Excel宏安全级别设…

用VBA宏自动改变Excel宏安全级别设置Option ExplicitSub SetExcelVBA()'改变Excel的安全级别'使用Wscript，FileSystemObject，创建txt文件，注册表操作，VBS文件自我删除，改变Excel文件读写属性等Dim WSH As Object, ret As String, regStr As StringDim strFull

2013-11-15 16:37:53 2000

原创禁用宏则关闭excel文件

适用EXCEL2003版因为2003版的如果禁用宏（宏安全性为高），则无法运行宏。所以此文是如果设置宏表，来提高安全性1，用右键点击任意工作表名称---插入，在跳出的提示中（如下图），选择MSEXCEL 4.0 宏表2，在宏表中写入代码如下： A2 =ERROR(FALSE)A3 =RUN("MYMacro")A4 =IF(ISERROR($A$3)

2013-11-15 16:37:51 3909

原创获取LISTVIEW列表中的数据

'LISTVIEW1中有13列'因为LISTVIEW1中的所有数据，有可能是通过筛选得来的，可能通过搜索得来的'所以在这里将显示在LISTVIEW1中的数据写入数组ARR中，方便处理这些数据Dim arrWith ListView1ReDim arr(1 To .ListItems.Count, 1 To 13)For i = 1 To UBound(arr, 1) '遍历所有LIST

2013-11-15 16:37:49 2949

原创 VBScript基础：RegExp对象

RegExp对象提供简单的正则表达式支持功能。　　RegExp对象的用法：Function RegExpTest(patrn, strng)Dim regEx, Match, Matches ' 建立变量。Set regEx = New RegExp ' 建立正则表达式。regEx.Pattern = patrn ' 设置模式。regEx.IgnoreCase = True ' 设置是

2013-11-15 16:37:47 2624

原创 EXCEL自定义函数求1000以内的质数

EXCEL自定义函数求1000以内的质数自定义函数=ZS(ROW(A1))下拉自定义函数代码Function ZS(s%)Dim f As Boolean, arr(), a%, i%ReDim Preserve arr(1)arr(0) = 2For i = 3 To 999 Step 2 For j = 2 To i - 1 If i Mod j = 0

2013-11-15 16:37:45 2543

原创 VBA LISTBOX初始化代码

Private Sub UserForm_Initialize()Dim lsb As WorksheetSet lsb = Sheets("临时表")X = lsb.[a65536].End(3).RowWith ListBox1.ColumnCount = 7 '设置7列.ColumnWidths = "30,70,70,70,70,70,50" '设置每列宽度.ColumnHe

2013-11-15 16:37:43 6055

原创 EXCEL 自定义函数提取字符串中的数…

自定义函数提取字符串中的数字 FunctionGetNB(rng As Range)If rng For i = 1 ToLen(rng) tmp = Mid(rng, i, 1) If IsNumeric(tmp) Or tmp Like "[+-\*\/^%)()]" And Not tmp Like"[A-Z?!~@=_,;|\[]" T

2013-11-15 16:37:41 1392

原创函数公式中9E+307的用法

如果EXCEL电子表格的数据比较复杂，所使用的行列比较多，那么，如何通过公式获取每一行或每一列中，有数据的单元格的最后一个单元格呢？　　先看下表。　　比如第一行，有效数据的最后一个单元格是B2，而第五行，有效数据的最后一个单元格是F5。　　再比如，A列的有效数据的最后一个单元格是A5，而C列，有效数据的最后一个单元格是C2。　　诸如此

2013-11-15 16:37:38 8350

原创单元格区域引用方式的小结

在使用ExcelVBA进行编程时，我们通常需要频繁地引用单元格区域，然后再使用相应的属性和方法对区域进行操作。所谓单元格区域，指的是单个的单元格、或者是由多个单元格组成的区域、或者是整行、整列等。下面，我们设定一些情形，以问答的形式对引用单元格区域的方式进行归纳。问题一：在VBA代码中，如何引用当前工作表中的单个单元格(例如引用单元格C3)？回答：可以使用下面列举的任一方式对当前工作表中

2013-11-15 16:37:36 2201

约瑟夫生者死者小游戏.py

空空如也