EXCEL VBA ユーザーフォームについて

質問

• EXCEL VBA ユーザーフォームについて。選択した「1の行」のC1をクリックしたときにユーザーフォームを起動させて入力しその行のセルに、数字の1を反映させたいと思っています。
• EXCEL VBA ユーザーフォームの作成方法。Page1ではテキストボックスとチェックボックスを配置し、Page2ではオプションボタンを配置します。選択後には右下のOKボタンをクリックして反映させます。
• EXCEL VBA 初心者のためのユーザーフォームの使い方。C列の選択した行に対してユーザーフォームを表示し、入力内容をセルに反映させる方法について説明します。複数選択と多数の日付への対応にも言及します。

回答No.3

maverik1226

nightquest 様
こんな感じでどうでしょうか？思いと違ったらスイマセン。

Private Sub CommandButton1_Click()

With Sheets("日にち")

'チェックボックスにチェックがしてあったら○する
If CheckBox1.Value Then '←CheckBox1.Value=Trueと同義です
.Range("F1").Value = "○"
End If
If CheckBox2.Value Then 'チェックしてなかったら何もしません
.Range("G1").Value = "○"
End If

'オプションボタンにチェックがしてあったら○する
If OptionButton1.Value Then
.Range("L1").Value = "○"
End If
If OptionButton2.Value Then
.Range("M1").Value = "○"
End If

End With

'2つの行に入力するパターン
With Sheets("日にち")
.Range("C1").Value = TextBox1.Value
.Range("D1").Value = TextBox1.Value
End With

'「1日」と「2日」のシートに同じ事を入力するパターン
With Sheets("1日")
.Range("C1").Value = TextBox1.Value
.Range("D1").Value = TextBox1.Value
End With

With Sheets("2日")
.Range("C1").Value = TextBox1.Value
.Range("D1").Value = TextBox1.Value
End With

'フォームを閉じる
Unload Me 'もしくはUnload UserForm1でも同義

End Sub

補足

お世話になっております。
早速のご返事ありがとうございます。
無事チェックボックス、オプションボタンの"○"成功しました！
そして「フォームを閉じる」も見事に成功いたしました。
ありがとうございます。
あと、私の質問の仕方が悪かったのですが、
たとえば、1の行を入力した後、7の行、3の行と入力する行が連続して変わります。
入力する列はフォームの記載のアルファベットなのですが、行はダブルクリックして入力フォームを出した行になります。

そして次の日には2日（シート2）も同じようにしたいのですが、1日（シート1）に記載されてしまいます。
やることは同じ作業なのですが、入力「行」がダブルクリックした行、次の日にはシート2、その次の日にはシート3と、シート31まで毎日同じフォーマットのものを入力していきます。

なにかよい方法はありますでしょうか？
毎回下手な質問とお願いが多くて申し訳ございません。