时钟输入和时钟输出系统

时间:2015-07-09 17:17:11

标签: excel

在那里我创建了一个电子表格,用于计时和退出工作,并且已经设置了一个简单的wee GUI。随着这个我有当前时间显示我启动工作表但它显示在每个页面我想知道如何阻止这?示例代码如下: Global clockOn As Boolean

Sub runClock()
Range("M15").Value = Now()
If clockOn = True Then
Application.OnTime Now + TimeValue("00:00:01"), "runClock"
End If
End Sub

Sub Auto_Open()
clockOn = True
runClock
End Sub


Sub stopClock()
clockOn = False
End Sub

除此之外我将做一个宏来将信息放到一个特定的页面上一切顺利,因为这将取决于从下拉菜单中选择的那一天任何帮助,这将是非常appriciated :)如在可能是VBA代码中的if语句,用于选择正确的页面并将数据留在那里。

1 个答案:

答案 0 :(得分:0)

您需要指定要放置值的工作表;目前您只指定范围,但您没有指定工作表。可以通过多种方式完成,例如:

http://aspalliance.com/articleViewer.aspx?aId=957&pId=-1

这将选择工作簿中的第一个工作表。如果您有多个工作簿,则还需要以某种方式指定(通过引用活动工作簿或工作簿的名称等)。例如:

Sheets(1).Range("M15").Value = Now()