[已解决]程式运行后，格式会改变

a543770434

dear  

为啥我的程式运行后，格式都完全改变了。比如时间都变成###了。求帮助。。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-16 19:56

Sub 预约()
    x = 36
    y = Sheets(6).[m65535].End(xlUp).Row - 1
    y2 = Sheets(3).[f65535].End(xlUp).Row - 1
    ReDim arr(1 To y, 1 To x), brr(1 To y2, 1 To x)
    arr = Sheets(6).Range("A2").Resize(y, x).Value
    brr = Sheets(3).Range("A2").Resize(y2, x).Value
    For i = 1 To y2
        For i2 = 1 To y
            If brr(i, 6) = arr(i2, 13) Then
                brr(i, 30) = arr(i2, 28)
                brr(i, 31) = arr(i2, 29)
                brr(i, 32) = arr(i2, 30)
                brr(i, 36) = arr(i2, 35)
            End If
        Next
    Next
    '也可指定从Sheets(3)的哪一列到哪一列，单元格格式是文本
    Sheets(3).Range("A2").Resize(y2, x).EntireColumn.NumberFormat = "@"
    Sheets(3).Range("A2").Resize(y2, x) = brr
End Sub


把输出区域设置为文本格式，就不会出现了

跳转到最佳答案楼层

爱疯

建议说明：

比如哪个单元格变了，本来应该是什么。

a543770434

爱疯 发表于 2016-4-15 22:11
建议说明：

比如哪个单元格变了，本来应该是什么。

现在的格式就是最原始的格式，缩小单元格都不会出现###，但是当运行程式后，时间就会有2016/04/06这类的变成2016/4/6，而且如果缩小单元格的话就会出现####。还有数值本来是123456789这类的运行后就会变成类似于2.000E+15这种，你可以运行下程式看看。

爱疯

Sub 预约()
    x = 36
    y = Sheets(6).[m65535].End(xlUp).Row - 1
    y2 = Sheets(3).[f65535].End(xlUp).Row - 1
    ReDim arr(1 To y, 1 To x), brr(1 To y2, 1 To x)
    arr = Sheets(6).Range("A2").Resize(y, x).Value
    brr = Sheets(3).Range("A2").Resize(y2, x).Value
    For i = 1 To y2
        For i2 = 1 To y
            If brr(i, 6) = arr(i2, 13) Then
                brr(i, 30) = arr(i2, 28)
                brr(i, 31) = arr(i2, 29)
                brr(i, 32) = arr(i2, 30)
                brr(i, 36) = arr(i2, 35)
            End If
        Next
    Next
    '也可指定从Sheets(3)的哪一列到哪一列，单元格格式是文本
    Sheets(3).Range("A2").Resize(y2, x).EntireColumn.NumberFormat = "@"
    Sheets(3).Range("A2").Resize(y2, x) = brr
End Sub


把输出区域设置为文本格式，就不会出现了

a543770434

爱疯 发表于 2016-4-16 19:56
Sub 预约()
    x = 36
    y = Sheets(6).[m65535].End(xlUp).Row - 1

原来是输出有问题了哇，谢谢哇