当前位置:首页 >数据分析 >VBA >vba事件

vba事件

1.本节课主要讲的是VBA基础-2.5BeforeDoubleClick,主要讲的是点击日期后面记录报道的时间点。



2.选中日期后面的空格,在点击【开发工具】-【Visual Basic】,选择sheet1,将模式选择BeforeDoubleClick。



3.在代码处在写上Set Rng=Range("b2",[a1].End(xLDown)(1,4) Set rng1=Intersect(Rng,Target)。



4.在代码处在添加上Set rng1=Intersect(rng,Target) If Not rng1 Is Nothing Then。



5.在代码下面在添加上If Target.EntireRow.Range("a1").Value=Date Then Target=Format(Now,"h:m:s")



6.当代码写完以后,在点击日期下面的空格就会出现当时的时间记录下来。




1.本节课主要讲的是VBA基础-2.8AfterSave,在点击【开发工具】-【Visual Basic】,在选择此工作表,在选择AfterSave模式,在代码处写上arr=Range(“b2,[d2].End(xIDown))。



2.在代码处将不需要的代码删除,在代码处在添加Fori=1 To UBound(arr) ReDim Preserve arr1(1 To i)。



3.在代码处在添加arr(i)=arr(i,1)+arr(i,2)+arr(i,3) Next [e2].Resize(UBound(arr),1)=Application.Transpose(arr1)。



4.在将上面的代码变成绿色,在下面在添加上For n=2To UBound(arr)Step2 n=n&","&n+&":"&n+1。



5.在将代码处的进行换行,在下面在添加上r1=(Left(r,Len(r)-1))。



6.在给代码的下面在添加上Range(r1).Color=RGB(80,230,101)。



7.在将表格的颜色去掉,在将合计一列的数字删除,将表格保存。



8.在点击一下表格会发现把合计算了出来,还隔一行就会出现绿色,这是代码的结果。



9.在对立面一行的代码进行修改,r=r&"a"&n&","&"e"n&","。



10.这样在将表格的颜色取消,在重新点击会发现绿色的区域只出现在有内容的部分。




1.本节课主要讲的是VBA基础-2,点击【开发工具】-【Visual Basic】,选择ThisWorkbook,在将模式选择【BeforePrint】。



2.在代码处在写上If ActiveSheet.Name<>"成绩表"Then Cancel=True。



3.在下面在输入写入密码的代码,Do x=InputBox("请输入打印密码“) Loop Until x="123"。



4.最终在给代码添加上End If。



5.在点击【文件】-【打印】的时候会弹出输入打印密码的密码数字。



6.讲成绩表的下面在添加上Cancel=False,这样在点击除了成绩表以外的表格就不需要密码。




1.本节课主要讲的是VBA基础-2.6BeforeRightClick在点击【开发工具】-【Visual Basic】,选择sheet1禁用右键菜单,将模式选择BeforeRightClick。



2.本节课主要要实现的是除了表格以外的地方点击右键会出现窗口,在表格内容区域点击右键什么也没有。



3.在点击窗口,在代码处写上Dim rng As Range Set rng=Intersect([a1:d10],Target) If Not rng Is Nothing Then。



4.在代码下面在添加上Cancel=True Else Cancel=False。



5.下面讲的是内容右键选择合并单元格的命令会将相同的进行合并。



6.就可以点击【开发工具】-【Visual Basic】,在下面写入代码。




1.本节课主要讲的是VBA基础-2.9BeforeClose,本节课要讲的是在关闭表格是弹出密码窗口。



2.在点击【开发工具】-【Visual Basic】,选择workbook,在将模式选择BeforeClose。



3.在代码处在写上dim x Do x=InputBox("主人刚离开一会,请输入密码“) Loop Until=123。



4.最后,在给代码处的密码处添加上“”,这样当点击关闭时必须输入上密码不然窗口关不掉。



5.就算点击关闭密码的窗口也是关不掉的。




索引

如何处理VBA基础BeforeDoubleClick事件

如何处理VBA基础AfterSave事件

如何处理VBA基础BeforePrint事件

如何处理VBA基础BeforeRightClick事件

如何处理VBA基础BeforeClose事件

相关百科

最新知识

相关教程

特惠
充值
7折购
今日还在继续学习的你,太棒了!
7
折扣券可用于
年费无限VIP
立 即
使 用
此活动优惠不可与其他活动叠加使用
有效期:000000
消息
登录即可查看消息记录
建议
意见
官方
客服
在线咨询客服热线

您可以与在线客服进行沟通获得帮助

工作日:9:00~22:00节假日:9:00~18:00

联系在线客服

您可以电话联系客服进行沟通获得帮助

工作日:9:30~18:30

400-862-9191
虎课
积分
免费学习89000+个教程!
配套素材、源文件一键下载!
昨日学员已学习了48,550
并提交了249份作业!
登录后立即学习!
loading
微信扫码关注即可登录
您需要同意协议才可以进行登录
登录虎课网,每天免费学课程全站 89000+ 视频会员教程 | 每日可免费学 1
为确保账户信息安全
请先进行真实姓名验证后进行充值付款
立即验证