フォーム マクロ

質問

フォームをつくり、そのデータを１枚の表に入れていきます
４月１日からはじまり、1年分です

フォームで数字を入力し、データ移行のボタンを押すたびにマクロが動き処理します
その時
4/1 ? 4/2?.....っと聞いてくれます
始めは良いですが、5月には30回聞かれます・・
省力するに、記述マクロありますか

回答No.2

hige_082 · ベストアンサー

マクロの
＞4/1 ? 4/2?.....っと聞いてくれます
の部分を削除しては？

お礼

できました・・・・

マクロ初心者で、参考マクロを張り合わせてマクロ作成してました
1行1行追ったら・・・・解決できました

私が勝手に、そういうマクロ書いていたんですね
自動で勝手になるって勘違いしました

回答No.1

n-jun

＞フォームで数字を入力し、データ移行のボタンを押すたびにマクロが動き処理します
このマクロのコード次第なのでは？

＞4/1 ? 4/2?.....っと聞いてくれます
なぜ聞いてくるのかがわからないし、どう回避すればいいのかもわかりにくい
と思いますよ。

補足

Private Sub CommandButton3_Click()
入力結果 = MsgBox("データを入力しますか", vbYesNo)
If 入力結果 = 6 Then
'表が6行目から始まる
Dim 行
行 = 6
Do While Cells(行, 2).Value <> ""
MsgBox Cells(行, 2).Value
行 = 行 + 1
Loop
'フォームからセルに
Cells(行, 2).Value = TextBox1.Value
Cells(行, 4).Value = ComboBox1.Value
Cells(行, 5).Value = ComboBox2.Value
'フォームを閉じる
UserForm1.Hide
End If
End Sub
こんな感じで作ったら、初めの日から今日まで12/13OK?っと画面がでます