一个单元格记录另一单元格的时间

jacksc

请详细讲讲如何做，谢谢！

wudixin96

1. strComputer = "."
   
2. Set objWMIService = GetObject("winmgmts:" _
   
3. & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
   
4. Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")
   
5. For Each objItem in colItems
   
6.     Wscript.Echo "Year: " & objItem.Year
   
7.     Wscript.Echo "Month: " & objItem.Month
   
8.     Wscript.Echo "Day: " & objItem.Day
   
9.     Wscript.Echo "Hour: " & objItem.Hour
   
10.     Wscript.Echo "Minute: " & objItem.Minute
    
11.     Wscript.Echo "Second: " & objItem.Second
    
12. Next

复制代码

把strComputer的值改成远程电脑IP，试试，不过有时时需要一些权限的，不一定可行。

aipan921

如果要B1记录是，时间显示在A1，是怎么调整

twoleavs

原帖由 jacksc 于 2010-10-20 09:28 发表
当A1不为空时，B1自动记录其编辑或修改的时间；
同理，当A2不为空时，B2自动记录其编辑或修改的时间；
以此类推。。。
请问：B1及B2的公式如何设定？谢谢！

你这个问题可以用公式解决，
B1=IF(A1="","",IF(B1="",NOW(),B1))   下拉即可
注意：此公式需勾选“迭代计算”，最多迭代次数为 1
当你清除了A1单元格的数据，重新输入新的数据后，B1单元格将自动记录其编辑或修改的时间。

pengco

高！高！