求助！帮忙指出下面宏的错误

Dim t As Double
t = Now
Dim m, n, o As Integer
m = Sheet6.Range("c51") & t
o = 45292
n = Sheet6.Range("c51") & o
Sheet6.Cells(4, 1) = m
Sheet6.Cells(5, 1) = o
End Sub
运行宏时，显示：运行时错误“6”溢出。
请教大佬如何修改，谢谢！

o是integer，最大值是32767，所以你溢出了。

可能integer数据类型范围超出了，-32768～32767之间。你把o的数据缩小一点试一下。

VBA的整数类型规则与VB6相同，Integer是16位的，想用32位的整数需要用Long类型，另外VBA似乎不支持64位整数？

解决不了可以找我

Dim m, n, o As Integer 需要改成 Dim m As Integer, n As Integer, o As Integer

Dim m As Integer, n As Integer, o As Long

AI 给你建议了这样的代码
Dim nowTime As Double
nowTime = Now
Dim combinedText1 As String
Dim combinedText2 As String
Dim setNumber As Integer
setNumber = 45292
combinedText1 = Sheet6.Range("C51").Value & Format(nowTime, "yyyy-mm-dd hh:mm:ss")
combinedText2 = Sheet6.Range("C51").Value & setNumber
Sheet6.Cells(4, 1).Value = combinedText1
Sheet6.Cells(5, 1).Value = setNumber
代码的 base64
RGltIG5vd1RpbWUgQXMgRG91YmxlCm5vd1RpbWUgPSBOb3cKCkRpbSBjb21iaW5lZFRleHQxIEFzIFN0cmluZwpEaW0gY29tYmluZWRUZXh0MiBBcyBTdHJpbmcKRGltIHNldE51bWJlciBBcyBJbnRlZ2VyCgpzZXROdW1iZXIgPSA0NTI5MgoKY29tYmluZWRUZXh0MSA9IFNoZWV0Ni5SYW5nZSgiQzUxIikuVmFsdWUgJiBGb3JtYXQobm93VGltZSwgInl5eXktbW0tZGQgaGg6bW06c3MiKQpjb21iaW5lZFRleHQyID0gU2hlZXQ2LlJhbmdlKCJDNTEiKS5WYWx1ZSAmIHNldE51bWJlcgoKU2hlZXQ2LkNlbGxzKDQsIDEpLlZhbHVlID0gY29tYmluZWRUZXh0MQpTaGVldDYuQ2VsbHMoNSwgMSkuVmFsdWUgPSBzZXROdW1iZXI=

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

12回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六