|
▼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
|
|