Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75793 / 76807

←次へ　｜　前へ→


	【5446】Re:DateDiff がどうしてもできない

１２３ - 03/5/14(水) 13:43 -


	引用なし

	パスワード

▼Taka-mk2 さんこんにちは！

>が、私の方ではエラーなく動きました。
あれ～

>サンプルコード、定義エラーがいくつかありましたが、そこを修正(iの宣言やTextBoxの定義ですね）すると、問題なく動きました。
>
>ちなみにどのようなエラーが起きたのでしょうか？
>どんなエラーが起きたのかわかれば、原因もわかりやすいかと存じます。
>
>というわけで、よろしくですー。

ちなみに以下のコードです。（UserForm1にて）
（だいぶ簡略化して書いてますが、同様にエラーになってしまいます）

Dim tdate As Variant
Dim ddate As Variant

Private Sub CommandButton1_Click()

tdate = TextBox1.Value

For i = 1 To 10
ddate = Cells(i, 1).Value

Cells(i, 2).Value = DateDiff("yyyy", tdate, ddate)

Next i

End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox1.Value = Format(TextBox1.Value, "gee.mm.dd")
tdate = TextBox1.Value

End Sub

2 hits

▼

【5444】DateDiff がどうしてもできない １２３ 03/5/14(水) 12:37