Question

宏命令在在32在32位操作系统中运行正常，如何让它在64位操作系统中运行，下面命令该怎么修改？

Private Sub CommandButton1_Click()
Call Vdate
Call Clear
Call Actuator

End Sub

Private Sub Actuator()

On Error Resume Next
Dim a
Dim d1, d2
n = 0
r = 0
Do While Sheets("台账表").Cells(r + 2, 2).Value <> ""
d1 = Sheets("台账表").Cells(r + 2, 3).Value
d2 = TextBox1.Value

If DateValue(d1) = DateValue(d2) Then
a = a & Sheets("台账表").Cells(r + 2, 2).Value & "#" & "、"

End If
r = r + 1

Loop
Sheets("报审").Range("D5:N5").Value = Left(a, Len(a) - 1)

End Sub

Private Sub Clear()
Sheets("报审").Range("D5:N5").ClearContents

End Sub

Private Sub Vdate()
If Not IsDate(TextBox1.Value) Then
MsgBox "请输入正确日期格式，如:2017/01/01!"
End

End If
End Sub

Answer 1

大部分32位的软件是可以在64位系统中运行的。但是64位的软件却并不能在32位系统中运行。

附上win7 64位优缺点供参考：
优点：win7 64位系统最大的优点体现在内存上。它可以使用超过4G的内存，相比与最大只能使用3G内存的32位版本来说，性能方面提升了不少。Win7 64位处理性能好于32位是事实，但也存在这样的一个误区。两台计算机均是2G内存，系统分别是win7 64位与win7 32位，你会发现win7 32位的速度要快一些;但是如果把win7 64位的内存换成4G，这时候win7 64位的性能就真正体现出来了。这也就是说，win7 64位需要更高的内存来支持它运行。
缺点：过去一段时间里很多人都不选择win7 64位的系统。原因就是很多软件不支持64位，在win7 64位系统下无法运行。当时win7 64位系统的不兼容性的确让一部分人把它换掉了。但是，发展都需要一个过程，现在win7 64位系统已经不存在这样的缺点。或者应该这么说：这本来就不是它的缺点，只是当时的软件普遍适用于32位的系统，当64位系统问世时导致没有软件支持它。这样与其说64位不兼容32位的软件，还不如说32位软件已经跟不上64位系统的步伐。如果硬要说win7 64位的缺点，那就是它比较占内存了。一个系统的功能越强大就会越占用内存，这两者之间并不矛盾。

总而言之，64位系统取代32位系统已经成为一种趋势。当64位系统能做到完美兼容所有软件的时候，32位系统将会正式退出舞台。