| |
▼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
|
|
１２３
- 03/5/14(水) 13:43 -
