![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBA*セルに値があればシート名に反映 2 2023/02/21 14:52
- Visual Basic(VBA) Excel VBAのリストボックスの値を他のフォームに反映させる方法を教えてください。 2 2023/07/14 14:06
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 【再投稿】VBAのシフト表でバグが出て困っています 3 2022/09/24 08:29
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
UserForm1.Showでエラーになります。
工学
-
-
4
エクセル・VBA CheckBoxのオブジェクト名に変数を使うことは可能でしょうか?
Excel(エクセル)
-
5
VBAでユーザーフォームが自動的に消える
Visual Basic(VBA)
-
6
VBA フォームのテキストボックスにセルの値を表示させたいが改行していたら改行もあわせて表示させたい
Excel(エクセル)
-
7
フレーム内に移動したい
Visual Basic(VBA)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
11
コマンドボタンをクリックでシートからシートに移動させたい
Visual Basic(VBA)
-
12
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
-
13
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
14
ユーザーフォーム、コンボボックスで重複せず選択リストを表示させるには
Excel(エクセル)
-
15
テキストボックス入力データの保持について
Visual Basic(VBA)
-
16
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
17
コマンドボタンの長押し
Visual Basic(VBA)
-
18
Excel-VBA>コントロールをグレイアウトするには?
Excel(エクセル)
-
19
コンボボックスにリストが表示されません・・・
Excel(エクセル)
-
20
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで1月0日と表示される!!
-
Excelで複数シートの選択セルを...
-
Rangeメソッドは失敗しました。...
-
エクセルで条件に一致したセル...
-
ワードからエクセルのシートに...
-
エクセルで特定の文字を打つと...
-
(Excel)あるセルに文字を入力...
-
複数シートの同じセル内容を1シ...
-
エクセルで20万行あるシート...
-
VBAで変数に関数式の結果をセッ...
-
エクセルのセルに、マウスで選...
-
エクセル ハイパーリンクで画像...
-
シート参照で変数を使いたい(EX...
-
別シートのセルを絶対参照にする
-
エクセルのシート間で連続した...
-
マクロ 新しいシートにデータ...
-
EXCELマクロで、シート間でのコ...
-
エクセルで別シートからの最大...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで1月0日と表示される!!
-
エクセルで条件に一致したセル...
-
Rangeメソッドは失敗しました。...
-
(Excel)あるセルに文字を入力...
-
Excelで複数シートの選択セルを...
-
エクセルで複写のように自動入...
-
Excelシートの保護時にデータの...
-
シート参照で変数を使いたい(EX...
-
別シートのセルを絶対参照にする
-
複数シートの同じセル内容を1シ...
-
Excelでスクロールすると文字が...
-
Aというブックの1というシート...
-
エクセルで20万行あるシート...
-
エクセルの文字
-
エクセルで、加筆修正したセル...
-
VBAで変数に関数式の結果をセッ...
-
ExcelでTODAY関数を更新させな...
-
VBAで、セル(Range)のオブジ...
おすすめ情報