| |
▼ponpon さん：
有難うございます。
>A,B,C,D列の書き込む行は、それぞれバラバラですか？
>それとも同じ？
行は同じですが、最初の列は日付、後３列はデータ(数字です）
>同じならば、Range("A" & Rows.Count).End(xlUp).Offset(1)を
>resizeして、TEXTBOXの値を配列で入れてもいいかな？
>または、For Nextで列と"TEXTBOX" ＆iで回しても良いかと思います。
なんとなく分かりますが…一度コード考えます。自信は無いですが。
>あと、未入力のチェックも必要かと。
そうですね、４項目が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がアクティブにならないように
しています。(見よう見まねでつくりましたが、４項目が埋まらないとは
未だ、できていません。
>日付は、セルの書式設定をマクロの記録を取れば、すぐに出来るかと。
有難うございました。マクロの記録ですね。有難うございます。
|
|
Yoshi
- 10/1/29(金) 16:18 -
