在数据处理中,我们经常遇到时间数据存储为文本格式的问题,例如“3小时15分20秒”。这样的数据无法直接用于计算,而手动转换又非常繁琐。因此,我们可以使用 VBA 代码自动提取时间信息,并转换为标准的时间格式!
下面的 VBA 代码可以从包含“时、分、秒”的文本中提取时间,并转换为 Excel 可识别的 hh:mm:ss 格式。
2025年07月14日
在数据处理中,我们经常遇到时间数据存储为文本格式的问题,例如“3小时15分20秒”。这样的数据无法直接用于计算,而手动转换又非常繁琐。因此,我们可以使用 VBA 代码自动提取时间信息,并转换为标准的时间格式!
下面的 VBA 代码可以从包含“时、分、秒”的文本中提取时间,并转换为 Excel 可识别的 hh:mm:ss 格式。
2025年07月14日
思路与之前发送信息一样,将“文件”放入剪贴板中,就可以用CTRL+V,粘贴到微信信息框中实现发送文件了。
可是VBA 自带函数FileCopy 并不产生文件复制到剪贴板的效果,需调用Window API接口操作,代码如下。(来自EXCEL HOME论坛)
Private Declare PtrSafe Function RegisterClipboardFormat Lib "user32.dll" Alias "RegisterClipboardFormatW" (ByVal lpString As LongPtr) As Long
Private Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hWnd As LongPtr) As Long
Private Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Private Declare PtrSafe Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As LongPtr) As Long
Private Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Private Declare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As LongPtr
Private Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As Long
Private Declare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal flags As Long, ByVal Size As Long) As LongPtr
Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal hpvDest As LongPtr, ByVal hpvSource As LongPtr, ByVal cbCopy As Long)
' API函数定义结束
Private Const CF_HDROP As Long = 15&
Private Const DROPEFFECT_COPY As Long = 1
Private Const DROPEFFECT_MOVE As Long = 2
Private Const GMEM_ZEROINIT As Long = &H40
Private Const GMEM_MOVEABLE As Long = &H2
Private Const GMEM_DDESHARE As Long = &H2000
' 结构定义开始
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type dropFiles
pFiles As Long
pt As POINTAPI
fNC As Long
fWide As Long
End Type
' 结构定义结束
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
2025年07月14日
最近待在家太无聊,看了一下VB,下面教大家用VB做一个属于自己的小程序恶搞你的好友吧。
一.消息轰炸器
1.在桌面点击鼠标右键,新建一个文本文档。
2.在里面输入以下代码。
这里面有三行代码是可以根据你自己的需求进行更改的。
wshshell.AppActive"库里" ,双引号里面的文字是你的好友昵称,你要恶搞谁就把他的昵称填写进去。
2025年07月14日
微软在发布Windows 11时默认开启了基于虚拟化的安全性(VBS)和Hypervisor强制代码一致性检查(HVCI)两项功能,但这个决定引起了不小的争议。人们担心这些功能会对性能造成负面影响。
近日,有消息称Windows 10也开始默认打开了VBS功能。为了测试VBS是否会影响游戏性能,科技网站Tom's Hardware进行了一项测试。他们测试了15款游戏,包括DX11、DX12、Vulkan和光追游戏。
结果显示,关闭VBS之后有多达118组数据提升,而唯二下降的幅度属于误差范围。在分辨率和画质较低的情况下,VBS关闭后的性能提升最为明显,超过5%的变化有26组。
2025年07月14日
系统的学习了VBA之后,可以把一些重复的功能即成为一个函数过程,使用时直接调用即可。以下整理了一些实用的技巧,这些函数和子过程涵盖了文件操作、数据验证、地理计算、自动化任务等场景,可根据实际需求调整参数(如分隔符、保存路径等)。对于敏感操作,建议先在小范围测试后再全面使用。
2025年07月14日
之前写了一段vbs调用bat的代码,需要将vbs中的文件夹名称以参数的形式传递给bat,今天在使用过程中发现:当文件夹名称中含有空格的时候,bat会截取空格之前的部分。比如,当前文件夹C:\Program Files
2025年07月14日
给微信语音加上进度条,这是很许多微信用户的痛点所在,用户想要从长长的语音中更快地听到重要信息,而不是重复一遍又一遍。但是微信却一直没有添加上这个功能,为什么呢?这么设计背后有什么深意吗?我们又要如何理解?
我最近在看腾讯产品经理的面经,许多面试者被问到一个有趣的问题:微信为什么不加入语音进度条?
2025年07月14日
Dreamweaver 后端开发中,经常需要将文章列表或产品列表设置序号,在转到下一页后,序号能自动随着分页的数量增加,如下面的视频所示:
在使用 Dreamweaver 自动生成分页代码后,会产生一个名为的变量,我们巧妙的运用这个变量,就能实现“每页序号连续标记”的效果。Dreamweaver 自动生成分页代码代码如下: