こんにちは、私はこのコードがうまくいかない理由について完全に困惑しています。誰でも助けることができますか？Excelの文字列が機能しない
Sub test()
Dim RpDate As Variant
Dim x As String
RpDate = InputBox("Enter Date", "Date")
If RpDate = "" Then Exit Sub
x = Day(RpDate)
MsgBox x
End Sub
あなただけDateタイプ有効な値を許可するようにInputBoxを強制することができ、以下のコード試してください：あなたは「動作しない」とは何を意味するか
Option Explicit
Sub InputBoxDateFormat()
Dim RpDate As Date
Dim x As Integer
' InputBox that allows only dates
RpDate = Application.InputBox("Enter Date", "Date", FormatDateTime(Date, vbShortDate), Type:=1)
' "Cancel" was selected
If RpDate = 0 Then Exit Sub
x = Day(RpDate)
MsgBox x
End Sub
を？コードは私のために働く。 –
私のためにも動作します。 – Rdster
デバッグを選択するとx = Day（RpDate）行がハイライト表示され、実行時エラー13の型不一致メッセージが表示されます。このマクロだけの空白の新しいワークブックがあります。 –