Excel不用vb怎么设置动态时间，可以详细的讲讲吗，谢谢了

Excel不用vb怎么设置动态时间，可以详细的讲讲吗，谢谢了

你说的动态是什么概念，是打开EXCEL有一块区域一直显示时间吗？如果这样的话需要定时刷新，公式自动重算只有手动和自动，不可以定时刷新，是无法做到时间变更动态的。这样的话只能用VBA，没其他办法

excel 用VB实现

=TEXT(NOW(),"hh时mm分ss秒") 试试这个

自定义一个过程 当工作薄活动时 定义变量 d为日期型，y为文本型，定义数组变量arr，r、i为数值型 r = sheet2.range("a" & rows.count).end(xlup).row rows.count——表中工作表的总行数（excel2003共65536行，excel2010共1048576行） sheet2.range("a" & rows.count)——表示选中sheet2工作表的a列，最最最低下的一个单元格 .end(xlup)——如同按键盘上的“shift+向上箭头”，表示返回“区域内”本列的首行（不一定是第1行）。因为此处是从最最最低下一个单元格向上返回，所以返回的是有内容的行的最后一行。这个你可以试试。 r = sheet2.range("a" & rows.count).end(xlup).row ——假设你的数据到100行，这时r就等于100。 arr = sheet2.range("a1:b" & r) 定义数组arr的范围是sheet2工作表的a1：b100（以100行为例） for i = 1 to ubound(arr) ubound()是求数组的最大下标值，此处为100。 这个地方相当于把a1:b100这个区域的数值放在数组arr里。因为数组在vba里有相应的函数可以用。所以经常把区域赋值给数组。 if arr(i, 1) <> "" and arr(i, 2) <> "" then 做个循环，如果数组的第i行的第一列和第二列不为空（等同于a1，b1不为空）时，然： y = y & chr(10) & arr(i, 1) & " 于 " & arr(i, 2) & " 将到期" 为y赋值，chr(10) 是个换行符。第一个循环里，y默认值为空值，赋值后y有了自己的值。 end if next y = right(y, len(y) - 1) len(y)——y这个字符的长度 right(y, len(y) - 1)——取y字符最后len(y) - 1个字符。 msgbox y 整体的功能，你可运行一下看看结果，慢慢体会一下他的过程。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息