Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10044 / 13644 ツリー ←次へ | 前へ→

【24047】ユーザーフォームのテキストボックス ひろ 05/4/11(月) 0:45 質問[未読]
【24050】Re:ユーザーフォームのテキストボックス ちゃっぴ 05/4/11(月) 1:39 回答[未読]

【24047】ユーザーフォームのテキストボックス
質問  ひろ  - 05/4/11(月) 0:45 -

引用なし
パスワード
   はじめまして質問させていただきます。
早速で申し訳ないところですが。

ユーザーフォームで、年月日(過去)の入力をしようと思っています。
複数のテキストボックスに年月日を入れるようにしているのですが
同一のセルにまとめて反映させることができません。

Private Sub TextBox1_exit(ByVal Cancel As _
               MSForms.ReturnBoolean)
  Range("B1") = ActiveControl.Value
End Sub

TextBox1を年としてTextBox2に月を入れようと試行錯誤しています。
よい方法があればご教示頂けませんでしょうか。

【24050】Re:ユーザーフォームのテキストボックス
回答  ちゃっぴ  - 05/4/11(月) 1:39 -

引用なし
パスワード
   TextBoxが複数あって、それをMargeしてCellに代入するのに
特定のTextBoxのExit Eventでは無理があるとは思いませんか?

こういった場合、<登録>とかのCommand Buttonを用意するのが普通では?

で、MargeしてCellに出力するわけですが、
"/"で連結してやれば、日付型で代入されます。

ただし、TextBoxで入力となると、どんな値でも入力できてしまうので
それに対する入力制限ないし、Error処理は必要でしょうけど・・・

はじめから入力制限を前提にするなら、
ComboBoxを使ってお手軽に済ませる手もあります。

10044 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free