![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
excel VBA ユーザーフォームを消すとTextBoxから反映させたセルの値も戻ってしまう
上記で困っているので解決策を教えて欲しいです。
VBA初心者です。
ユーザーフォームを表示して、フォーム内のTextBoxに入力した値をシート上のセルに反映させたいです。
実際反映するのですが、フォームが閉じると反映されていたセルの値が戻って(消えて)しまいます。
↓ユーザーフォーム上コマンドボタンのコードです。
コマンドボタンを押すとフォーム上テキストボックスに入力した値がセルに挿入されるようにしたつもりのものです。
-------------
Private Sub 更新_Click()
Worksheets("test").Range("AL11").Value = ""
Worksheets("test").Range("AL11").Value = UserForm1.TextBox1
Unload Me
End Sub
----------------
Unload Meを消して、xボタンで閉じても同じです。
また、Unload Meの前にActiveWorkBook.Saveでシートを上書きしてから閉じる動作にしても同じく消えてしまいました。
こちらは何故消えてしまうのでしょう。
初歩的な質問と思いますが、解決策を教えて頂けますと有り難いです。
何卒宜しくお願い致します。
No.3
- 回答日時:
こんばんは。
全てのコードを念のために表示された方が良いかもしれません。
Excelのバージョンは、365だったりしないでしょうか?
(365はVBAだと色々と不具合が多い様で、まともに動かない時がある)
No.2
- 回答日時:
こんばんは
#1様同様ですが、簡単な確認方法の一例です
ステップ実行で確かめてみましょう。
Private Sub 更新_Click()
Worksheets("test").Range("AL11").Value = ""
Worksheets("test").Range("AL11").Value = UserForm1.TextBox1
Stop 'これを書き足す
Unload Me
End Sub
シートとVBEが見えるようにモニターに縮小化すると判り易いです。
UserFormを表示して更新ボタンを押します
追加したStopで処理が止まります
その後 F8キーを押すと1行ずつ実行されますので
AL11セルが消えるところまでF8キーを押してみてください。
消えた時に止まっているコードの1行前の処理がそれです。
その処理がどの様なもので何のため記されているか、確認しましょう。
原因の処理などが見つからなかった場合は、
新規ブックを作成してUserForm1、TextBox1を作成
ご質問のコードを貼り付け、シート名をtestに変更して実行環境を作り試してみましょう。
新規ブックでも同様の事象が発生した場合、アドインなどの処理かも知れませんが可能性は低いかと思います。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
-
4
エクセルでフォーム中のテキスト値の保存方法
Excel(エクセル)
-
5
テキストボックス入力データの保持について
Visual Basic(VBA)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
VBAでユーザーフォームが自動的に消える
Visual Basic(VBA)
-
8
Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。
Visual Basic(VBA)
-
9
エクセル・VBA CheckBoxのオブジェクト名に変数を使うことは可能でしょうか?
Excel(エクセル)
-
10
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
11
入力済み、選択したセルに連動した行のデータをユーザーフォームで呼び出すには
Excel(エクセル)
-
12
VBA テキストボックスの計算
Visual Basic(VBA)
-
13
UserForm1.Showでエラーになります。
工学
-
14
別のユーザーフォームのコマンドボタンを押す
Visual Basic(VBA)
-
15
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
16
フレーム内に移動したい
Visual Basic(VBA)
-
17
Excel-VBA>コントロールをグレイアウトするには?
Excel(エクセル)
-
18
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
19
ユーザーフォームへのデータ入力を繰り返す方法
Visual Basic(VBA)
-
20
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
Excelで複数シートの選択セルを...
-
エクセルのセルに、マウスで選...
-
エクセルで1月0日と表示される!!
-
別シートのセルを絶対参照にする
-
日付が未入力の際はゼロか、空...
-
Rangeメソッドは失敗しました。...
-
エクセルでシート保護をかける...
-
シート参照で変数を使いたい(EX...
-
エクセルで条件に一致したセル...
-
=HYPERLINK(VLOOKUPに関して。
-
Excelでスクロールすると文字が...
-
エクセルで印刷部数をセルに表...
-
複数シートの同じセル内容を1シ...
-
Excelシートの保護時にデータの...
-
ExcelでTODAY関数を更新させな...
-
エクセルで20万行あるシート...
-
エクセルで複写のように自動入...
-
マクロ 新しいシートにデータ...
-
エクセル ハイパーリンクで画像...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで1月0日と表示される!!
-
エクセルで条件に一致したセル...
-
Rangeメソッドは失敗しました。...
-
Excelで複数シートの選択セルを...
-
(Excel)あるセルに文字を入力...
-
別シートのセルを絶対参照にする
-
シート参照で変数を使いたい(EX...
-
エクセルで20万行あるシート...
-
Excelシートの保護時にデータの...
-
Excelでスクロールすると文字が...
-
Excelのファイル容量が減らない...
-
複数シートの同じセル内容を1シ...
-
ExcelでTODAY関数を更新させな...
-
エクセルの文字
-
エクセル ハイパーリンクで画像...
-
エクセルで、加筆修正したセル...
-
マクロの書き方を教えて下さい
-
エクセルで別シートからの最大...
おすすめ情報