- 综合排序
- 最热优先
- 最新优先
- 来自专栏鸿鹄实验室
钓鱼文档碎碎念(一)
lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type #If VBA7 PROCESS_INFORMATION Dim sInfo As STARTUPINFO Dim sNull As String Dim sProc As String #If VBA7
1.1K30发布于 2021-03-31 - 来自专栏数据处理与编程实践
VBA: 自动定时关闭消息框
Option Explicit #If VBA7 And Win64 Then Private Declare PtrSafe Function MessageBoxTimeout Lib "user32
3.7K30编辑于 2022-12-18 - 来自专栏数据处理与编程实践
VBA: 禁止单元格移动，防止单元格公式引用失效（2）
，在ThisWorkbook内，添加如下代码： Option Explicit Private WithEvents AppEvents As Application '系统兼容性判断' #If VBA7
2K30编辑于 2022-09-20 - 来自专栏完美Excel
类模块应用示例：捕捉鼠标单击的单元格位置
POINTAPI x As Long Y As Long End Type Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type #If VBA7
1.1K30编辑于 2023-09-21 - 来自专栏数据处理与编程实践
VBA: 批量打印pdf文件
1 ShellExecute VBA代码如下： Option Explicit ' 批量打印PDF文件 #If VBA7 And Win64 Then Private Declare PtrSafe
1.7K10编辑于 2024-07-08 - 来自专栏完美Excel
问题探讨01： 如何使用鼠标滚轮使单元格中的数值增减？
说实话，我对Windows API研究不深，于是上网查了一下，根据查找的一些资料整理了一段代码： Public hHook As LongPtr #If VBA7 Then PublicDeclare
2.7K10发布于 2020-04-01 - 来自专栏完美Excel
Excel实战技巧95：创建数字雨效果
3.按Alt+F11键，打开VBE，插入一个标准模块，输入代码： #If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByValdwMilliseconds
1.2K10发布于 2020-12-08 - 来自专栏完美Excel
VBA实战技巧06： 复制文本到剪贴板
'处理64位和32位Office #If VBA7 Then Private Declare PtrSafe Function GlobalUnlock Lib "kernel32"(ByVal hMem
8.2K40发布于 2020-04-22 - 来自专栏完美Excel
创建可调大小的用户窗体——使用Windows API
Public Const GWL_STYLE = -16 Public Const WS_CAPTION = &HC00000 Public Const WS_THICKFRAME = &H40000 #If VBA7
2K31编辑于 2023-08-29 - 来自专栏完美Excel
Excel实战技巧58： 使用VBA创建进度条
输入下面使用Windows API的代码来隐藏用户窗体的标题栏： Public Const GWL_STYLE = -16 Public Const WS_CAPTION = &HC00000 #If VBA7
7.4K30发布于 2019-11-07 - 来自专栏完美Excel
Excel应用实践12：在用户窗体中添加、查找和编辑数据记录
编写代码 通用代码 在标准模块中，输入下面的代码： ' API声明 #If VBA7 And Win64 Then Public Declare PtrSafe Sub Sleep Lib"kernel32
4.1K50发布于 2019-07-19 - 来自专栏Seebug漏洞平台
花式窃取NetNTLM哈希的方法
This can be used in vb6 applications as well #If Vba7 Then Private Declare PtrSafe Function CreateThread &H1000 Const PAGE_EXECUTE_READWRITE = &H40 Sub Auto_Open() Dim source As Long, i As Long #If Vba7
1.1K80发布于 2018-03-30
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号