テキストボックス内のデータを複数のセルに

投稿者 : 初心者     投稿日時 : 2024/07/08(Mon) 11:32:42     OS : Windows 11     EXCEL : Excel 2013

---

こんにちは。

個人名簿が作成されているシートがあり、10行目を、氏名、生年月日、住所・・・etcといった見出しにしていて、F10を確認日という見出しにしています。

個人名簿は11行目以下の行に入力されていて、F列の確認日は、担当者が確認した年月日を入力することになっています。

確認日を入力したい人のF列の行を右クリックするとユーザーフォームが出てきて、ユーザーフォームにテキストボックスがあり、テキストボックスには、ユーザーフォームを開いた時の年月日が自動で表示されるようにしてあります。

確認日は開いたその日とは限らないので月日を手入力で変更する場合もあります。

最後はユーザーフォームに設置してある決定という名にしてあるコンボボックスをクリックすると、年月日がF列右クリックした行に入力されるようにしてあります。
F13を右クリックした場合、ユーザーフォームの決定を押すと、テキストボックスの年月日がF13に入力されるといった仕様です。

これが現状なのですが、ここからやりたいことは、確認日を入力したい人が複数いる場合、一度に済ませたいので、該当者のF列セルを右ドラッグして、ユーザーフォームを呼び出し、ユーザーフォーム上の確認ボタンを押すと選択した行全てに年月日が入力されるようにしたいのですが、未熟な知識ゆえに入力コードがわかりません。

例えば、F12〜F19をドラッグ選択し、コントロールを押して離れたF26行目を選択して右クリックしたら、ユーザーフォームが現れて、決定ボタンを押すとこれらの選択したセル番地全てにテキストボックス内の年月日が入力されるといった仕組みにしたいのです。

どなたか教えていただけると大変嬉しいです。

投稿者 : さんこう     投稿日時 : 2024/07/08(Mon) 11:53:20

---

＞F12〜F19をドラッグ選択し、コントロールを押して離れたF26行目を選択して右クリックしたら、ユーザーフォームが現れて、決定ボタンを押すとこれらの選択したセル番地全てにテキストボックス内の年月日が入力されるといった仕組みにしたい

現状のコードが示されていないのでわかりませんが、

現状の動作をするコードそのままでよさそうな気がします。

投稿者 : ピロリ     投稿日時 : 2024/07/08(Mon) 17:50:59

---

■[質問] 初心者さん（2024-07-08 11:32:42）の記事
＞ 例えば、F12～F19をドラッグ選択し、コントロールを押して離れたF26行目を選択して右クリックしたら、・・・
＞ ・・・これらの選択したセル番地全てにテキストボックス内の年月日が入力されるといった仕組みにしたいのです。
現状のコードのご提示がないので良く分かりませんが、下のような感じで選択セルへ出力してみてはいかがでしょう？
F11～F30セルの範囲内の、選択中セルへ、テキストボックスの値を出力します。　的外れでしたら読み捨てて下さい。

　　If Not Intersect(Range("F11:F30"), Selection) Is Nothing Then
　　　　Intersect(Range("F11:F30"), Selection) = UserForm1.TextBox1
　　End If