VBA：消息框上的標題

Question

我的代碼是：

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) = vbDate Then
    Call CLICK_INFOS
End If
If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) <> vbDate Then
   MsgBox ("Entrez la date en format jj/mm/aaaa")
End If
End Sub

我想用“Contrôle”替換“Microsoft Excel”這個詞：

謝謝您的幫助 ！

Answer 1

MsgBox ("Entrez la date en format jj/mm/aaaa", vbOK, "Controle"))

Answer 2

這段代碼對我來說很好：

是否有您未顯示的其他代碼？

請注意，我更改了您的子呼叫，因為我沒有那個宏。 我還刪除了MsgBox arguments 周圍的括號

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) = vbDate Then
    MsgBox "CLICK_INFOS"
End If
If Not Intersect(Target, Range("Ma_date")) Is Nothing And VarType(Target.Value) <> vbDate Then
   MsgBox "Entrez la date en format jj/mm/aaaa", Title:="Controle"
End If
End Sub