[已解决]为什么month取值相同

ycb20010823

我在Excel A1单元格中输入2012-12-28，用代码msgbox month(a1)=12，而A2是一个空单元格，用msgbox month(a2)也等于12呢？如图，请朋友帮我一下，谢谢！！如何避免这种现象！！

最佳答案

月排行榜 / 总排行榜

爱疯

2012-11-27 22:18

Sub 求月计累计()
    Dim K%
    K = 5
    Do
        If Month(Cells(K, 1)) <> Month(Cells(K + 1, 1)) Or Cells(K + 1, 2) = "" Then
            Rows(K + 1 & ":" & K + 2).Insert
            Cells(K + 1, 3) = "月计"
            Cells(K + 2, 3) = "累计"
            K = K + 2
        End If
        K = K + 1
    Loop Until Cells(K, 2) = ""
End Sub

跳转到最佳答案楼层

爱疯

空单元格a2被认作值为0，即month(0)=12

ycb20010823

如何避免呢，爱疯版主？？？

爱疯

不知道你希望怎样，你能举一个例子吗？

正常时，返回月份
为空值，怎么处理？比如判断一下，If [a2] <> "" Then Month ([a2])

ycb20010823

我在此发了我的例子！！请爱疯版主给看一下我就想在月份不同时，在下面插入月计，累计，可是到了12月，就不好使了，我写的代码，请给指教一下！！谢谢！

FF7

明显的是VBA基础认识不够。
在VBA中，表示单元格的方法有：Range("A1")    ,    cells(1,"A")    ,    cells(1,1)    ,     [a1]
你的代码中 month(a1) ，这里的a1仅仅表示一个变量。
正确写法应该是：
msgbox month(Range("A1"))
msgbox month(cells(1,"A"))
msgbox month(cells(1,1))
msgbox month([a1])

楼主可以测试。

ycb20010823

FF7你好，我知道我发的贴子代码错了，谢谢指教，不过我在五楼里的代码，帮我看一下吧！！我喜欢Square 里的FF8

爱疯

我以为1楼楼主写对了，没仔细看
这样可以吗

Sub test()
    Dim r, i
    r = Range("b65536").End(xlUp).Row
    Range("A5:g" & r).Sort Key1:=Range("a1"), Order1:=xlAscending
   
    For i = r To 6 Step -1
        If Month(Cells(i, 1)) <> Month(Cells(i - 1, 1)) Then
            Rows(i & ":" & i + 1).Insert
            Cells(i, 3) = "月计"
            Cells(i + 1, 3) = "累计"
        End If
    Next i
End Sub

ycb20010823

爱疯版主你好，8楼的代码，还是不运行啊，我在五楼里有ycb.rar那里有代码，你看看能在那个基础上修改一下不？

爱疯

Sub 求月计累计()
    Dim K%
    K = 5
    Do
        If Month(Cells(K, 1)) <> Month(Cells(K + 1, 1)) Then
            Rows(K + 1 & ":" & K + 2).Insert
            Cells(K + 1, 3) = "月计"
            Cells(K + 2, 3) = "累计"
            K = K + 2
        End If
        K = K + 1
    Loop Until Cells(K, 2) = ""
End Sub
日记账3.rar (8.25 KB, 下载次数: 5)

2012-11-27 22:00 上传

点击文件名下载附件