小编Mic*_*el 的帖子

我有一个excel宏,它做了两件非常简单的事情:

1. 它在一个小窗口中显示当前日期和时间.
2. 它将显示复制为文本字符串,以便根据需要粘贴到其他应用程序中.

显示的单元格中包含以下公式:

=TEXT(NOW(),"yyyy.MM.dd hh:mm:ss")

每5秒钟,宏刷新时间和时钟滴答.

我的问题是,当我从单元格复制时间时,我不会始终将内容粘贴到剪贴板.有时单元格内容会发布到剪贴板.我无法弄清楚为什么它有时会起作用而不是其他因为没有很多事情发生.它应该始终有效.

我知道数据不在剪贴板上,因为我可以尝试将剪贴板粘贴到不同的程序,如记事本和其他文本应用程序,没有任何反应.

整个代码都在一个模块中.

     Dim stopSwitch As Integer
     Dim NextTick
     Sub myupdate()
        If ActiveCell.Address = "$B$1" Then
            growWindow ' resize window beyond just clock display
            stopTime '
            Exit Sub ' stop updating
        End If

        Range("a1").Select
        Calculate

        DoEvents
        If ActiveWorkbook.Name = "calendar clock.xlsb" Then shrinkWindow
        NextTick = Now + TimeValue("00:00:05") ' give me 5 seconds to copy/paste
        Application.OnTime NextTick, "myupdate"
        ThisWorkbook.Save ' futile attempt to prevent save dialog
    End Sub

    Sub auto_open()
    ' to stop …