Excel VBA質問箱 IV

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

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


7578 / 76732 ←次へ | 前へ→

【74740】Re:テキストボックスとセルのリンク設定について
発言  ichinose  - 13/9/5(木) 18:48 -

引用なし
パスワード
   こんばんは。

>
>ユーザーフォームからシート上の各セルへ入力したいと思っています。
>
>TextBox1 = Worksheets("Sheet1").Range("A1")
>
>では、入力済みのセルの修正ができないので、ControlSourceでリンクさせようと思い、
これで、入力済みのデータをテキストボックスに戻して、入力完了後に
今度は逆にセルに戻せばよいのですけどねえ・・・。
入力完了後というタイミングは、イベントで管理します。
これは、一例ですが・・・。

Private Sub TextBox1_Enter() 
  TextBox1.Value = Worksheets("Sheet1").Range("A1").Value
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Worksheets("Sheet1").Range("A1").Value = TextBox1.Value
End Sub


>ネットで調べて、この様なコードを入れてみましたが、全くリンクしません。
>
>Sub UserForm1_Initialize()
> UserForm1.TextBox1.ControlSource = "A1"
>End Sub
これは、アクティブシートのセルA1と結ばれていますけど、よろしいですか?

>Sub UserForm1_Initialize()
 UserForm1.TextBox1.ControlSource = "Sheet1!A1"

>End Sub
より正確には、上記でしょうか?

書き込みは、Textbox1から、フォーカスが移るタイミングですから、
テストでは、コマンドボタンも作成しておいて、フォーカスがこのコマンドボタン
に移ったタイミングでセルに反映されます。
コマンドボタンというのは、例ですから、別のテキストボックスを作成して
試しても大丈夫です。

ControlSource を使う場合は、
イベントを使うなら、TextBox1_BeforeUpdateでしょうけど、これは、余計な話でした。
4 hits

【74739】テキストボックスとセルのリンク設定について minota 13/9/5(木) 18:05 質問
【74740】Re:テキストボックスとセルのリンク設定に... ichinose 13/9/5(木) 18:48 発言
【74742】Re:テキストボックスとセルのリンク設定に... minota 13/9/5(木) 19:13 お礼
【74744】Re:テキストボックスとセルのリンク設定に... kanabun 13/9/5(木) 20:36 発言
【74745】Re:テキストボックスとセルのリンク設定に... ichinose@ 13/9/5(木) 22:29 発言
【74746】Re:テキストボックスとセルのリンク設定に... minota 13/9/6(金) 5:54 お礼
【74741】Re:テキストボックスとセルのリンク設定に... kanabun 13/9/5(木) 18:53 発言

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