Excel 同一代码不适用于新参数

如果相关的水费和水费账单迟了一个月或更长时间，我正试图将此代码粘贴到房子上。我在同一工作簿中使用另一组类似的数据（尽管不同的工作表）运行了完全相同的代码，但在运行该代码时，在指示行上显示“Run.time error'1004”：应用程序定义或对象定义的错误”。为什么该代码在这些情况下不起作用

'General Variables
    Dim myDate As Integer
    Dim getDate As String
    Dim colPaste As String
    Dim colPensionNumb As String
    Dim colPaste3 As String
    Dim colPaste2 As String
    Dim colCelular As String
    Dim colPaste4 As String
    Dim colPaste5 As String

    'Agua Variables
    Dim aguaNumb As Integer
    Dim aguaNumb2 As Integer
    Dim colNameAgua As String
    Dim colPasteA As String

    'Luz Variables
    Dim luzNumb As Integer
    Dim luzNumb2 As Integer
    Dim colNameLuz As String
    Dim colPasteL As String

    'General Values
    colPaste = "A"
    colCelular = "G"
    colPensionNumb = "H"
    myDate = Month(Date)
    colPaste3 = "E"
    colPaste4 = "F"
    colPaste5 = "G"

    'Agua Values
    colNameAgua = "C"
    colPasteA = "B"

    'Luz Values
    colNameLuz = "D"
    colPasteL = "C"


    'Agua
     For aguaNumb = 3 To 5
        If Month(Worksheets("Proxima Lectura").Range(colNameAgua & aguaNumb).Value) < myDate - 1 Then
            ' ---------THE FOLLOWING LINE IS WHERE THE ERROR OCCURS------------
            Worksheets("Title Page").Range(colPasteA & aguaNumb).Value = Worksheets("Proxima Lectura").Range(colNameAgua & aguaNumb).Value
        End If
     Next aguaNumb

“通用变量”
将myDate设置为整数
Dim getDate作为字符串
像绳子一样粘在一起
昏黄的秋千麻木如弦
暗淡的colPaste3作为字符串
暗淡的colPaste2作为字符串
像细绳一样的暗颜色
暗淡的colPaste4作为字符串
暗淡的colPaste5作为字符串
“Agua变量
Dim aguaNumb作为整数
Dim aguaNumb2为整数
Dim colNameAgua作为字符串
像细绳一样暗淡
'卢兹变量
Dim-numb为整数
将数字2设置为整数
Dim colNameLuz作为字符串
淡色蜡笔
“一般价值观
colPaste=“A”
colCelular=“G”
colPensionNumb=“H”
myDate=月份（日期）
colPaste3=“E”
colPaste4=“F”
colPaste5=“G”
“Agua价值观
colNameAgua=“C”
colPasteA=“B”
“卢兹价值观”
colNameLuz=“D”
colPasteL=“C”
“阿瓜
对于aguaNumb=3到5
如果月份（工作表（“Proxima讲师”）.范围（colNameAgua和aguaNumb）.Value）

编辑

---

现在代码没有给我一个错误，但是它没有给我任何来自IF语句中的行的结果。错误在这个特定的段中：

Month(Worksheets("Proxima Lectura").Range(colNameAgua & aguaNumb).Value) < myDate - 1

---

问题是您正在从字符串中减去（

myDate

在开头被标注为字符串）。

在您的评论中，您说单元格“C3”=26-08-2014“C4”空白“C5”19-08-2014。因此…当您运行宏时，它当然会跳过

IF

代码，因为月份是八月，它不满足

IF

条件

---

尝试代码摘录，但日期为“C3”=26-06-2014，“C4”=26-05-2014，“C5”=26-03-2014。我想你会发现它是有效的。

虽然这是一种不好的做法，但Excel VBA 2010确实强制myDate为整数进行此计算。。。此处没有错误。错误发生在IF语句中的行上。嗯，真的，似乎只是被跳过了。运行它不会导致任何更改。我想我重新确认了错误。您的单元格

范围（colNameAgua&aguaNumb）

是否包含日期值？它包含日期值，但这就是为什么我调用

MONTH（）

函数的原因。还有其他方法吗？为什么要从mydate中删除1？您使用的是什么版本的Excel？我使用的是Excel 2013，该代码段没有错误。它一定是其他东西，无论是在你的工作表中，还是在另一本书中，等等。如果没有更多的细节/屏幕截图等，很难/不可能说。Stackoverflow不会让我发布图像，除非我有10个代表点。。。但是，我添加了一些消息框，似乎我需要处理的行被跳过了。它绝对不会给我任何结果（也就是说，它不会改变任何它应该改变的信息）你能进入“Proxima a”表中的单元格C3、C4、C5吗。进入单元格（双击）并复制列标签上方文本框中显示的所有内容？我想这是某种约会，但我需要确切地看到你在那些细胞里有什么。哇……我觉得每当有人指出我的错误时，他们总是那么明显。。。我想这就是学习和学习的意义，对吗？

Dim myDate as Integer