VBA可以实现依次复制单元格内容字符串到剪贴板吗?
最好是能识别使用Ctrl+v操作后不用切到excel里自动执行下一个复制内容??有可能实现吗?...
最好是能识别使用Ctrl+v操作后不用切到excel里自动执行下一个复制内容??有可能实现吗?
展开
2个回答
展开全部
肯定是可以的,操作模式不是这样操作的,即并不是先复制,再粘贴,再复制,再粘贴这样。
而是直接调用,即贴粘位置直接调用EXCEL里的第一个内容,然后再调用第二个内容。当然如果一定要复制》粘贴式的,其实就不要用VBA了,用按键精灵这类VBS,效果更好。
实际解决,你要明确说明事例才行。
而是直接调用,即贴粘位置直接调用EXCEL里的第一个内容,然后再调用第二个内容。当然如果一定要复制》粘贴式的,其实就不要用VBA了,用按键精灵这类VBS,效果更好。
实际解决,你要明确说明事例才行。
追问
实际操作我用按键精灵实施,能说说用VBA实现调用重点需要学哪几块VBA的代码??只想解决实际问题,网站程序员铁憨憨,没做导入功能,我也想了解下一方以后遇到类似问题
追答
方便的话,最好做好程序之间的对接,因为VBA有可能不能控到接收端,如果直接到数据库INSERTR 的话,也没VBA什么事了。可以直接操作数据库。
展开全部
建议通过弹出信息框来间隔每次新的拷贝,也方便验证要粘贴的信息。另一种做法是固定时间间隔。
下面是通过弹出信息框实现的(假设数据就在A列)
Sub zzh_abc()
max_row = Sheets("sheet1").[A65536].End(xlUp).Row
For i = 1 To max_row
v1 = Cells(i, 1)
Cells(i, 1).Copy
MsgBox (v1)
Next
End Sub
下面是通过弹出信息框实现的(假设数据就在A列)
Sub zzh_abc()
max_row = Sheets("sheet1").[A65536].End(xlUp).Row
For i = 1 To max_row
v1 = Cells(i, 1)
Cells(i, 1).Copy
MsgBox (v1)
Next
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询