VBA初心者です。いろいろ調べて徐々に進められていますが、、
こちらもなかなか見つからなかったので質問させていただきます。
現在、ユーザーフォームにテキストボックスをいくつか配置し、
さまざまな計算などをさせて、最終的にエクセルシートに反映させる。
といったことが出来るようにプログラムをしています。
ユーザーフォームのテキストボックスに一度入力したものを、
エクセルシートを閉じるまで残すことはできるでしょうか?
一度、×ボタンで閉じてしまうと、次に呼び出したときには初期の状態になってしまいます。
ユーザーフォームに入力し、エクセルシートで確認、
その後 再度ユーザーフォーム呼び出して修正する
といった作業をするために、一度入力したものが消えないようにしたいです。
よろしくお願いいたします。
No.3
- 回答日時:
こんばんは。
シートにデータを保存する方法ですが、ControlSourceプロパティを使うのはどうでしょうか。
このプロパティは、Sheet1!A1 と言うように設定し、設定したセルにValueプロパティの値を保存できます。
No.2
- 回答日時:
#1です。
そういう予感はしたのですが、小出し質問・ついでに質問は避けて下さい。
さて、UserForm_Terminate()の方を書き換えて下さい。
Select Caseで、valueをメンバに持たずエラーになるものや、CommandButtonの様に記録したく無いものを列挙して下さい。
Private Sub UserForm_Terminate()
Dim myControl As Control
Dim destSh As Worksheet, destRange As Range
Set destSh = ThisWorkbook.Worksheets("temp")
destSh.Cells.Clear
Set destRange = destSh.Range("A1")
For Each myControl In Me.Controls
'Debug.Print TypeName(myControl)
Select Case TypeName(myControl)
'valueをメンバに持たずエラーになるものや、記録したくないものを列挙
Case "Frame", "Label", "CommandButton"
Case Else
destRange.Value = myControl.Name
destRange.Offset(0, 1).Value = myControl.Value
Set destRange = destRange.Offset(1, 0)
End Select
Next myControl
End Sub
No.1
- 回答日時:
「temp」という名前のワークシートに保持する方法です。
ワークシートを閉じても保存されてしまいますが、気に入らなければWorkbook_BeforeCloseででも保存データをクリアして下さい。ご参考まで。
Private Sub UserForm_Initialize()
Dim tempSh As Worksheet, tempRange As Range, myRow As Range
Set tempSh = ThisWorkbook.Worksheets("temp")
Set tempRange = tempSh.Range("A1").CurrentRegion
If tempRange.Cells.Count = 1 Then Exit Sub
For Each myRow In tempRange.Rows
Me.Controls(myRow.Cells(1).Value).Value = myRow.Cells(2).Value
Next myRow
End Sub
Private Sub UserForm_Terminate()
Dim myControl As Control
Dim destSh As Worksheet, destRange As Range
Set destSh = ThisWorkbook.Worksheets("temp")
destSh.Cells.Clear
Set destRange = destSh.Range("A1")
For Each myControl In Me.Controls
If TypeName(myControl) = "TextBox" Then
destRange.Value = myControl.Name
destRange.Offset(0, 1).Value = myControl.Value
Set destRange = destRange.Offset(1, 0)
End If
Next myControl
End Sub
ご回答ありがとうございます。
保存することができました。
すいませんがついでに、チェックボックスや、オプションボタンの情報も残すには
どのようにすればいいのでしょうか?
もし、よろしければご指導ください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Excel(エクセル) エクセルのファームにプルダウン設置できますか? 2 2022/05/19 23:38
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- PHP php 確認表示画面で値をSESSIONから取り出す理由の解釈は正しいでしょうか? 1 2023/06/09 17:39
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
テキストボックス入力データの保持について
Visual Basic(VBA)
-
エクセルでフォーム中のテキスト値の保存方法
Excel(エクセル)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
ユーザーフォームのデータをそのまま保存する方法
Excel(エクセル)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
UserForm1.Showでエラーになります。
工学
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
10
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
11
ExcelVBAのユーザーフォームで一度保存したデータを同じフォームに呼び出して編集する方法
Visual Basic(VBA)
-
12
excel VBA ユーザーフォームを消すとTextBoxから反映させたセルの値も戻ってしまう
Excel(エクセル)
-
13
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
14
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
15
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
16
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
17
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
18
ACCESS フォームで入力データを残したいです。
その他(Microsoft Office)
-
19
ファイルを終了しても、値を保持する。
Excel(エクセル)
-
20
コンボボックスにリストが表示されません・・・
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
【VBA】色のついたシート名を取得
-
セルの値によって、シート見出...
-
ブック名、シート名を他のモジ...
-
別のシートを参照して計算する方法
-
XL:BeforeDoubleClickが動かない
-
VBAで同じシート名のコピー時は...
-
マクロを使って、シート印刷完...
-
ExcelのVBAのマクロで他のシー...
-
VBA 存在しないシートを選...
-
VBA 最終行まで数式をコピーする
-
特定の文字を含むシートだけマ...
-
【Excel VBA】Worksheets().Act...
-
Access エクセルシート名変更
-
ExcelVBA シート名を複数セルか...
-
エクセルVBA 別シートからのコ...
-
同じ作業を複数のシートに実行...
-
実行時エラー'1004': WorkSheet...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報