Http://www.cnng.net  首页 原创软件   VB文挡  VB资源   乱舞人生  资源   Tags  给我留言 
用户登陆
用户:
密码:
 

站点日历
73 2019 - 8 48
    123
45678910
11121314151617
18192021222324
25262728293031


站点统计

最热日志

最新评论

日志搜索

 

友情链接
|< [1] [2] [3] [4] [5] [6] >|显示模式: 普通模式 | 列表模式 

程序代码:[ 复制代码 ]
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long




阅读全文……
晴天 vba密码太弱了   [ 2017-10-16  |  本站原创 ]
被刺激了一下好奇心,把xlsm里的VBA加了个密码,然后后缀改为zip解压,找到了vbaProject.bin。居然在这里面直接看到代码明文,我就没明白微软设那个密码是干啥的。代码居然没加密处理。




晴天 笔记1   [ 2017-09-18  |  本站原创 ]
Dim arr
    With Me.Spreadsheet1
        arr = .ActiveSheet.UsedRange
        If Not IsEmpty(arr) Then
            Range(.ActiveSheet.UsedRange(1).Address).Resize(UBound(arr), UBound(arr, 2)) = arr



阅读全文……
以下方法是我亲自试用,有效果的.
新建记事本,保存以下代码为 XML.REG,然后双击导入注册表.
程序代码:[ 复制代码 ]
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\TypeLib\{F5078F18-C551-11D3-89B9-0000F81FE221}][HKEY_CLASSES_ROOT\TypeLib\{F5078F18-C551-11D3-89B9-0000F81FE221}\6.0]




阅读全文……
晴天 WindowsApi 解压缩文件   [ 2016-10-27  |  本站原创 ]
"C#解压.zip文件,网上一搜一大堆方法,有使用System.IO.Compression.GZipStream的,有使用J#库函数的,也有仿Java自己写库函数的,但好多都不大好使,最终发现还是系统函数System.Shell.Folder.copyHere(oItem [, intOptions])最为好使。具体方法如下:

1. 添加引用 Shell32.dll,可以在Windows\system32中找到它。
2. 添加方法,搞定。




阅读全文……
晴天 以管理员方式运行   [ 2016-10-25  |  本站原创 ]
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute 0, "runas", "D:\1.exe", " commandcontent", vbNullString, vbNormalFocus




写一个将南方工程之星的原始dat文件导入到excel的函数。方便大家使用。


Sub AddDat()



阅读全文……
晴天 vba 调用excel内置公式   [ 2015-03-14  |  本站原创 ]
前段时间为公司实验室编制测试数据库,其中遇到一个问题,怎样在VBA中使用Excel自带的一些函数呢?如min,max,average等等。 
本以为能在Excel表格中直接使用的函数也能直接移植到VBA中,结果发现根本行不通,程序报错。后来通过多方查询发现,虽然不能直接引用,但是我们可以曲线救国,excel中表格可以用max函数,在VBA中也可以用,只需通过WorksheetFunction对象就可以引用,后面加函数名称,然后加range来引用单元格。举个例子: Application.WorksheetFunction.Max(range("A1:C5")) 下面就是能在VBA中使用excel自带函数:



|< [1] [2] [3] [4] [5] [6] >|