No.2ベストアンサー
- 回答日時:
>この場合、ご説明頂いたような、("a1")のように特定のセルを記述する方法だとうまくいかないのです。
別に数が増えただけで、基本的に出来ますよ
'書き込みボタン
Private Sub CommandButton1_Click()
Select Case ComboBox1
Case "第1分冊_テキスト"
rtn0 = ComboBox1.Value
rtn1 = Range("E7").Value
rtn2 = Range("H7").Value
rtn3 = Range("I7").Value
rtn4 = Range("I7").Interior.Color
Range("H7") = Range("E7").Value
Range("I7").Interior.Color = vbYellow
Range("I7") = ""
Range("E7") = TextBox1.Value
TextBox1 = ""
Case "第1分冊_添削問題"
rtn0 = ComboBox1.Value
rtn1 = Range("E8").Value
rtn2 = Range("H8").Value
rtn3 = Range("I8").Value
rtn4 = Range("I8").Interior.Color
Range("H8") = Range("E8").Value
Range("I8").Interior.Color = vbYellow
Range("I8") = ""
Range("E8") = TextBox1.Value
TextBox1 = ""
End Select
End Sub
'戻すボタン
Private Sub CommandButton2_Click()
Select Case rtn0
Case "第1分冊_テキスト"
Range("E7").Value = rtn1
Range("H7").Value = rtn2
Range("I7").Value = rtn3
Range("I7").Interior.Color = rtn4
Case "第1分冊_添削問題"
Range("E8").Value = rtn1
Range("H8").Value = rtn2
Range("I8").Value = rtn3
Range("I8").Interior.Color = rtn4
End Select
End Sub
同じ処理なので、後半端折りました
ComboBoxの値も変数へ取り込み
書き込みの時と同じように、その変数でselect caseで判断すればよいのです
ここに気づけば、最初の回答と同じ処理でいけますよね
なるほど、大変勉強になりました。
なんとか、思っていた通りに処理することが出来るようになりました。
どうもありがとうございました!
No.1
- 回答日時:
詳細が無いので要点だけ
textboxからセルへ書き出しは
range("a1").value=userform1.textbox1.value
のようにしてるとして
セルへ書き出す前に、セルの値を他のセルや変数に書き出す必要があります
例として
1 他のセルに記憶しておく(シート2のA1)
worksheets("sheet2").range("a1").value=userform1.textbox1.value
range("a1").value=userform1.textbox1.value
2 変数に記憶しておく(変数=abc)
abc=userform1.textbox1.value
range("a1").value=userform1.textbox1.value
戻す場合は
1 セルに記憶したものを戻す
range("a1").value=worksheets("sheet2").range("a1").value
2 変数に記憶したものを戻す
range("a1").value=abc
基本的にはこのような方法になるかと思います
注意点は、2の変数は宣言セクションで宣言しなければいけません
分からない単語等は、自分で調べてね
分かりやすい、ご回答ありがとうございます。
大変参考になりました。
私の説明不足で大変恐縮なのですが、実はフォーム内の
コンボボックスで選んだ項目に応じて、入力が行われるセルが
変わる仕組みになっているのです。
この場合、ご説明頂いたような、("a1")のように特定のセルを記述する方法だとうまくいかないのです。
『以下抜粋』
Private Sub CommandButton1_Click()
Select Case ComboBox1
Case "第1分冊_テキスト"
rtn1 = ("E7")
rtn2 = ("H7")
Range("H7") = Range("E7")
Range("I7").Interior.Color = vbYellow
ActiveCell.Value = ""
Range("E7") = TextBox1
TextBox1 = ""
Case "第1分冊_添削問題"
Range("H8") = Range("E8")
Range("I8").Interior.Color = vbYellow
Range("I8") = ""
Range("E8") = TextBox1
TextBox1 = ""
Case "第1分冊_答案"
Range("H9") = Range("E9")
Range("I9").Interior.Color = vbYellow
Range("E9") = TextBox1
TextBox1 = ""
Case "第1分冊_模範"
Range("H10") = Range("E10")
Range("I10").Interior.Color = vbYellow
Range("E10") = TextBox1
TextBox1 = ""
End Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) EXCEL ActiveX コマンドボタンで実行する前にいったんmsgBoxで確認を求めたい 1 2022/07/06 19:41
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- PHP php 入力画面から確認表示画面へ情報の受け渡しについて。 1 2023/06/07 18:00
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
マクロ実行後元に戻すことは
PowerPoint(パワーポイント)
-
ユーザーフォームで一つ前に戻りたい
Excel(エクセル)
-
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
エクセルVBA
Excel(エクセル)
-
10
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
11
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
マクロ最終行挿入
Excel(エクセル)
-
14
エクセルで薄く透ける文字を入れたいのですが
Excel(エクセル)
-
15
コマンドボタンをクリックでシートからシートに移動させたい
Visual Basic(VBA)
-
16
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
17
VBAでユーザーフォームにセル値を表示させるには
Visual Basic(VBA)
-
18
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
19
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
20
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
指数関数近似を行うプログラム...
-
あああ..ああい..ああう とい...
-
VBAにて『元に戻すボタン』を作...
-
Excelで、あるセルの値に応じて...
-
Excel UserForm の表示位置
-
VBAを使って検索したセルをコピ...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
B列の最終行までA列をオート...
-
エクセルVBA 配列からセルに「...
-
Cellsのかっこの中はどっちが行...
-
VBAマクロ実行時エラーの修正に...
-
エクセルの合計を自動で表示さ...
-
マクロのコマンドボタン《Activ...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
エクセルで離れた列を選択して...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 別ブックからの転記の高速...
-
【ExcelVBA】zip圧縮されたCSV...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
あああ..ああい..ああう とい...
-
VBAにて『元に戻すボタン』を作...
-
select caseの入れ子
-
VBAバーコード照合 バーコード...
-
xlookup関数の引数を利用して検...
-
vbs 文字位置を中央に
-
エクセルで選択したセルがディ...
-
スペース区切りのAND検索
-
ASPでバイナリ(ビッグエンディ...
-
半透明ブラシ重ね塗りのアルゴ...
-
エクセルで特定の文字列が入っ...
-
VBAマクロ実行時エラーの修正に...
-
マクロの「SaveAs」でエラーが...
-
VBA シートをコピーする際に Co...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで離れた列を選択して...
-
Worksheets メソッドは失敗しま...
-
VLOOKUPの列番号の最大は?
-
Excelで、あるセルの値に応じて...
おすすめ情報