Excel 编译错误：应为：=

在Sub DateDiff中实现Sub TabPaint时出错

Public Sub TabPaint(ss As Integer, cc As Integer)
  With Sheets(ss).Tab
      .Color = cc
      .TintAndShade = 0
  End With
End Sub


Public Sub DateDiff(date1 As String, date2 As String, shn As Integer)
    If DateDiff("d", date1, date2, vbMonday, vbFirstJan1) < 0 Then
        TabPaint (shn, 255)
    Else
        TabPaint(shn,5287936)
    End If
End Sub

公共子选项卡Paint（ss为整数，cc为整数）
带工作表（ss）.选项卡
.Color=cc
.TintAndShade=0
以
端接头
公共子DateDiff（date1作为字符串，date2作为字符串，shn作为整数）
如果DateDiff（“d”，date1，date2，vbMonday，vbFirstJan1）<0，则
TabPaint（第255页）
其他的
TabPaint（上海，5287936）
如果结束
端接头

在VBA中，如果没有将函数的返回值赋给任何对象，或者如果该方法是一个子例程，则省略括号，因此请尝试以下操作：

Public Sub TabPaint(ss As Integer, cc As Integer)
  With Sheets(ss).Tab
      .Color = cc
      .TintAndShade = 0
  End With
End Sub


Public Sub DateDiff(date1 As String, date2 As String, shn As Integer)
    If DateDiff("d", date1, date2, vbMonday, vbFirstJan1) < 0 Then
        TabPaint shn, 255
    Else
        TabPaint shn, 5287936
    End If
End Sub

TabPaint shn, 255

公共子选项卡Paint（ss为整数，cc为整数）
带工作表（ss）.选项卡
.Color=cc
.TintAndShade=0
以
端接头
公共子DateDiff（date1作为字符串，date2作为字符串，shn作为整数）
如果DateDiff（“d”，date1，date2，vbMonday，vbFirstJan1）<0，则
TabPaint shn，255
其他的
TabPaint shn，5287936
如果结束
端接头

当您调用sub-TabPaint之类的sub-Tab时，不得使用括号，因此请尝试以下操作：

Public Sub TabPaint(ss As Integer, cc As Integer)
  With Sheets(ss).Tab
      .Color = cc
      .TintAndShade = 0
  End With
End Sub


Public Sub DateDiff(date1 As String, date2 As String, shn As Integer)
    If DateDiff("d", date1, date2, vbMonday, vbFirstJan1) < 0 Then
        TabPaint shn, 255
    Else
        TabPaint shn, 5287936
    End If
End Sub

TabPaint shn, 255

与此相反：

TabPaint(shn, 255)