大家好,小编今天为大家分享关于如何 *** 动态鼠标指针(鼠标动态指针下载)的信息,很多人还不知道,今天让我们一起来看看吧!
1、之一在VBA编程中,鼠标的形状也可以改变 。通常,很少主动设置鼠标形状 。如果你熟悉Windows系统设置,你就熟悉鼠标设置 。
2、VBA不是一个视觉操作 。本节将讲述如何在编程中动态改变鼠标形状 。
3、鼠标形状是一个参数设置,在VBA是以常量的形式固定的 。
4、如何让鼠标按照我们师傅定义的方式显示,只需要改变常量就可以实现 。这个进程的属性是Cursor,它是Application对象的属性 。应用常量XlMousePointer 。
【如何制作动态鼠标指针 鼠标动态指针下载】5、有四种XlMousePointer常量:Application.Cursor=XlDefaultApplication.Cursor=XlBeamApplication.Cursor=XlNorthwestArrowApplication.Cursor=XlWait常量说明xlDefault默认指针xlIBeamI形指针xlNorthwestArrow西北向箭头指针xlWait沙漏型指针
6、如上图所示,对于鼠标形状设置,选中红 *** 域时,鼠标变成I形,选中其他区域时,鼠标变成默认形状 。申请表还是很简单的 。
7、第二密码PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)DimcellAsRange,rAsRange,CyAsBooleanCy=FalseSetcell=Range(ActiveSheet.Cells(9,2),ActiveSheet.Cells(13,10))ForEachrIncellIfTarget.Address=r.AddressThenCy=TrueExitForEndIfNextrIfCyThenApplication.Cursor=xlIBeamcell.Value=""r.Value="https://www.jinnalai.com/n/指针变为I形"ElseApplication.Cursor=xlDefaultcell.Value=""cell.Item(1).Value="https://www.jinnalai.com/n/指针恢复默认"EndIfEndSub上面的代码应该放在Worksheet_SelectionChange事件中 。
8、执行后,观察鼠标形状,并在I形状和默认形状之间切换 。鼠标应用比较少见,有些情况下甚至可以用也可以不用 。
如何 *** 动态鼠标指针(鼠标动态指针下载)的介绍就到这里,感觉你的阅读!
推荐阅读
- 如何让狗狗过马路时让车
- 孕妇水肿 如何消除水肿?
- 如何用html创建一个网站 怎么写html建网站
- 申请创业贷款申请书范文 深圳创业贷款如何申请
- 什么是房产税?房产税如何征收?
- 亚瑟士哪款鞋跑步最好百度知道 如何选择亚瑟士各系列跑鞋怎么选择适合自己的跑鞋
- 如何让发财树四周发芽
- 怎么恢复单个微信好友的聊天记录 如何找回单个好友的微信聊天记录
- 盘点中国十大营销专家之一(如何成为营销专家 如何成为营销专家)
- 如何制做鲜美的香菇瘦肉汤