|
▼ponpon さん:
有難うございます。
>A,B,C,D列の書き込む行は、それぞれバラバラですか?
>それとも同じ?
行は同じですが、最初の列は日付、後3列はデータ(数字です)
>同じならば、Range("A" & Rows.Count).End(xlUp).Offset(1)を
>resizeして、TEXTBOXの値を配列で入れてもいいかな?
>または、For Nextで列と"TEXTBOX" &iで回しても良いかと思います。
なんとなく分かりますが…一度コード考えます。自信は無いですが。
>あと、未入力のチェックも必要かと。
そうですね、4項目がTestBoxに埋まっていないと、CommandBoxが使えないと
言うことですね。意味合いが異なりますが、次のようなコードを加えました。
Private Sub TextBox4_Change()
Me.CommandButton1.Enabled = Me.TextBox4.TextLength > 0
End Sub
Private Sub UserForm_Initialize()
TextBox4_Change
End Sub
これはText4が埋まらないと、CommandButtonがアクティブにならないように
しています。(見よう見まねでつくりましたが、4項目が埋まらないとは
未だ、できていません。
>日付は、セルの書式設定をマクロの記録を取れば、すぐに出来るかと。
有難うございました。マクロの記録ですね。有難うございます。
|
|