Excel VBA質問箱 IV

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

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


75718 / 76732 ←次へ | 前へ→

【5446】Re:DateDiff が どうしてもできない
質問  123  - 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

1 hits

【5444】DateDiff が どうしてもできない 123 03/5/14(水) 12:37 質問
【5445】Re:DateDiff が どうしてもできない Taka-mk2 03/5/14(水) 12:48 発言
【5446】Re:DateDiff が どうしてもできない 123 03/5/14(水) 13:43 質問
【5447】Re:DateDiff が どうしてもできない Taka-mk2 03/5/14(水) 14:40 回答
【5448】追記! Taka-mk2 03/5/14(水) 14:41 回答
【5467】Re:DateDiff が どうしてもできない 123 03/5/15(木) 11:10 質問
【5478】Re:DateDiff が どうしてもできない Taka-mk2 03/5/15(木) 13:19 回答
【5483】Re:DateDiff が どうしてもできない JuJu 03/5/15(木) 15:11 回答
【5490】Re:DateDiff が どうしてもできない りん 03/5/15(木) 17:09 回答
【5512】これで ひとつ 仕事が終わりました。 123 03/5/16(金) 17:51 お礼

75718 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free