VBA对Excel办公软件提供了十分强大的支持,合理有效的利用VBA编程可以提高工作的效率。下面小编就以制作一个动态时钟功能为例,给大家讲解一下Excel VBA的具体使用方法,希望对初学者有所帮助。
![Excel应用技巧:[9]创建动态时钟](http://www.52ij.com/uploads/allimg/160401/19433G458-0.jpg)
详细的操作方法或具体步骤
动态时钟界面的制作
首先制作如图所示的时钟界面,当然也可以根据自己的爱好制作更加精美的钟面。
![Excel应用技巧:[9]创建动态时钟](http://www.52ij.com/uploads/allimg/160401/19433I529-1.jpg)
对各引用单元格进行命名
为了方便以后编程的需要,将需要引用的单元格进行命名,这样就方便以后编程时进行引用。
![Excel应用技巧:[9]创建动态时钟](http://www.52ij.com/uploads/allimg/160401/19433G027-2.jpg)
按键盘快捷键”Alt+F11“进入VBA编程环境。 在VBA环境下,右击“Microsoft Excel对象”,在弹出的菜单中选择“插入”→“模块”。
![Excel应用技巧:[9]创建动态时钟](http://www.52ij.com/uploads/allimg/160401/19433Kb7-3.jpg)
接着在模块中输入如图所示的代码:
Sub RT()
Range("nian")=Year(Now())
Range("yue")=Month(Now())
Range("ri")=Day(Now())
Range("shi")=Hour(Now())
Range("feng")=Minute(Now)
Range("miao")=Second(Now)
If Range("C2")="J" Then
Range("zhishi")="K"
Else
Range("zhishi")="J"
If
Application.OnTime Now + TimeValue("00:00:01"), "RT"
Sub
![Excel应用技巧:[9]创建动态时钟](http://www.52ij.com/uploads/allimg/160401/19433I293-4.jpg)
双击”ThisWorkBook“,在打开的窗口中,选择”Open“事件,并输入”RT“,使文档被打开时就调用该函数。
Private Sub Workbook_Open()
RT
Sub
![Excel应用技巧:[9]创建动态时钟](http://www.52ij.com/uploads/allimg/160401/19433IJ0-5.jpg)
关闭当前文档,并再次打开,就会发现想要的效果出现啦。
Excel应用技巧(共9篇)上一篇:数值文本及其相互...经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士。作者声明:本文系本人依照真实经历原创,未经许可,谢绝转载。
- 评论列表(网友评论仅供网友表达个人看法,并不表明本站同意其观点或证实其描述)
-
