□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
ユーザーフォーム更新について

    [196607] ユーザーフォーム更新について-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ VBA初心者 -(2025/06/06(17:34))
    □U R L/ 
      Worksheets("入力")セルA1の値を
ユーザーフォームのテキストボックスに表示させて
そのテキストボックスの値を変更すると
Worksheets("結果")セルA2に入力させる方法についてですが、


表示更新（ユーザーフォーム）というユーザーフォームを作成して

Private Sub UserForm_Initialize()
   TextBox1=Worksheets("入力").Range("A１").Value
End Sub

Private Sub TextBox1_Change()
Worksheets("結果").range("A2")=TextBox1.Value
End Sub

そのユーザーフォームに更新というコマンドボタンを作成して
Private Sub CommandButton1_Click()
Unload Me
End Sub

とすれば、上記の事が実現するのでしょうか？
どなたかご教示頂ければ幸いです


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒Windows 11
      Version⇒Excel 2019
      ++++++++++++++++++++



    [196608] Re[1]: ユーザーフォーム更新について-

    ■記事引用/メール受信=OFF■

    □投稿者/ 判別 -(2025/06/06(17:52))
    □U R L/

      UserForm1.Repaint

      ？？？
      UserForm1
      と打って最後に . を打てばプロパティやら色々候補が出ます
      Repaintだと、チラつくかも
      Doeventsでもいいか・・・



    [196610] Re[2]: ユーザーフォーム更新について-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ VBA初心者 -(2025/06/09(21:36))
    □U R L/

      自己解決しました。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

- Child Forum -
Edit:ゆう-Ｇ