（新人学习VBA）模块内的过程如何让工作表专用

lgl1514

《别怕，Excel VBA其实很简单(第3版)》示例文件第六章6.4.3 制作一个简易的电子时钟（作业）
将以下过程写在模块里


Option Explicit
Public StartTime As Date
Sub OnTime方法()
    StartTime = Now() + TimeValue("00:00:01")
    Application.OnTime StartTime, "更新时间"
End Sub


Sub 更新时间()
    Range("B3") = Format(Now(), "yyyy-mm-dd hh:mm:ss")
    Call OnTime方法¨
End Sub


问题来了，当我在打开一个工作簿或工作表时，每张工作表的B3单元格都被写入了“当前时间”，但我只想工作表“sheet1”被写入当前时间，与其他工作表无关，请问这种情况如何避免？

excel玉米

指定工作表，sheet1.range("b3")＝

lgl1514

excel玉米 发表于 2024-3-9 17:03
指定工作表，sheet1.range("b3")＝

谢谢老师！我也试过这个方法，是有改进，但还是有瑕疵，比如我打开的工作簿有同名工作表“sheet1”，那这样就会修改别的工作簿的工作表sheet1的内容。所以我想能不能将这段代码写入表格对象中，变成表格的私有过程，我不知道要怎么写才对？

taller

lgl1514

taller 发表于 2024-3-10 02:08

谢谢taller老师，您的这段代码，我这样是不是可以这样理解：如果活动工作簿的名称=代码所在工作簿的名称，那么就更新代码所在工作簿Sheet1的B3单元格

那如果我不要判定条件，这样写也可以

Sub 更新时间()
    '更新代码所在工作簿Sheet1的B3单元格
    ThisWorkbook.Sheets("sheet1").Range("B3") = Format(Now(), "yyyy年mm月dd日")
    Call OnTime
End Sub

恳求老师指导！

taller

lgl1514 发表于 2024-3-10 11:40
谢谢taller老师，您的这段代码，我这样是不是可以这样理解：如果活动工作簿的名称=代码所在工作簿的名称， ...

这个改写代码与原代码效果不同。

如果活动工作簿的名称 <> 代码所在工作簿的名称，你的代码继续更新B3单元格，原代码不更新。

不确定你需要哪个效果。

lgl1514

taller老师说的对，受教了！