Question

请 excel vba高手帮忙解析一段代码

请逐句解析用法用意，谢谢
Dim dd As Boolean
Sub test1()
dd = True
[E6] = Format(Now(), "aaaa")
[E8] = Format(Now() + 1, "aaaa")
[E10] = Format(Now() + 2, "aaaa")
test2
End Sub
Sub test2()
Dim t As Single
t = Timer
Do Until Timer > t + 0.2
DoEvents
Loop
If dd Then Range("a2") = Right(Range("a2"), 1) & Left(Range("a2"), Len(Range("a2")) - 1): test1
End Sub
Sub test3()
dd = False
End Sub

Answer 1

E6\E8\E10单元格分别显示今天、明天、后天的星期数。如E6显示 星期一，E8显示星期二...

其他的代码都比较好解决吧

Answer 2

我感觉这个会死循环哦－－在TEST1与TEST2 之间不断调用，或者我没看懂，呵呵

追问

这个确实是可用的，就是文字的自动滚动，主要是有几个地方没懂，第一，test1在整个语段中的用处，第二，test2到loop这段，几个代码看不懂，能帮忙解释下么

追答

前一个是显示时间,后一个是延时用的

Answer 3

这个不行，会出现错误，堆栈空间溢出