いつもお世話になっています。
初めて、Excelのフォームで入力画面を作りました。
複数の項目があって、それを最後に[登録]ボタンをクリックで
表に入れたいのですが、一度にまとめて実行する方法が分かりません。
アドバイスよろしくお願いいたします。
Private Sub cmd_1()
Dim i As String
If man.Value = True Then
ActiveCell = man.Caption
End If
If woman.Value = True Then
ActiveCell = woman.Caption
End If
ActiveCell.Offset(0, 1).Select
End Sub
Private Sub cmd_2()
Dim i As String
If man.Value = True Then
ActiveCell = Yes.Caption
End If
If woman.Value = True Then
ActiveCell = No.Caption
End If
ActiveCell.Offset(0, 1).Select
End Sub
Private Sub cmd_downlist()
Dim ListNo As Long
ListNo = group.ListIndex
ActiveCell.Value = group.List(ListNo, i)
ActiveCell.Offset(0, 1).Select
End Sub
Private Sub cmd_comment()
ActiveCell = comment.Text
ActiveCell.Offset(1, -3).Select
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
質問の詳細化を図りたく伺います。
・フォームに複数のテキストボックスなどがあり、登録(コマンド)ボタンをクリックするとそれがワークシート上に転記される、というイメージでしょうか
・「登録」ボタンをクリックした後はどのように動くことを期待していますか?
→たとえば、ワークシートの次の行へ追加するために
・フォームのデータをクリアし、
・ワークシートのオフセットを移動する とか。
・Cmd_1, Cmd_2...は特定のコンポーネント(たとえば、コマンドボタンのクリックイベント)と関連づいていますか?
初めてということなので、一応記載しますと、
フォームのデザイン画面で「登録」ボタンをダブルクリックすると、コマンドボタンのクリックイベント(ボタンがクリックされたときに呼び出されるブロック)を実装するエディタが開きます。
そこに、ワークシートに入力したい内容をプログラムします。
この回答への補足
御回答いただきありがとうございます。
・「登録」ボタンをクリックした後はどのように動くことを期待していますか?
→たとえば、ワークシートの次の行へ追加するために
・フォームのデータをクリアし、
・ワークシートのオフセットを移動する とか。
・Cmd_1, Cmd_2...は特定のコンポーネント(たとえば、コマンドボタンのクリックイベント)と関連づいていますか?
一つの操作を一つのボタンに関連づけて実行することはできるのです。
ただ、一つ一つの操作を一つのボタンで実行するとなると、
強引ですが、callで呼び出して次々実行、そして次の分でデータをクリアしか
思い浮かびません。
↓これは、資料を参考にしたものです。
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = ""
Next Ctrl
それでも動くので問題ないのかもしれませんが、どうもすっきりしません。
納得のいくスマートな記述があればどうか教えてください。
よろしくお願いいたします。
前回は、御回答ありがとうございます。
もう一度、勉強し直して無事解決しました。
また機会がありましたらよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) Excel VBAの解読について質問があります。 概要は、マクロでチェックボックスにチェックすると日 1 2023/02/10 07:50
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
フォームの再読み込み
-
Excel VBA Application.caller...
-
CommandButtonのCaptionを変化...
-
コマンドボタンやイメージにマ...
-
セルをマクロのボタンにしたい。
-
ボタン
-
Access VBA でデータペーストを...
-
VBA でエクセルにパスワードを...
-
[Excel VBA]コマンドボタンの入...
-
C♯初心者で、四則演算の電卓を...
-
VB.net でトグルボタンを実現し...
-
VBAのボタンの位置が変わって困...
-
VBAでオプションボタンによって...
-
ASP.Net ラベルの内容をすぐに...
-
コマンドボタンの文字色
-
フォームから別のフォームを呼...
-
閉じると「+」になり開くと「-...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
Excel VBA Application.caller...
-
VBAのボタンの位置が変わって困...
-
Access VBA でデータペーストを...
-
プロシージャからイベントをコ...
-
他のアプリケーションとの連携
-
閉じると「+」になり開くと「-...
-
C#で動的に作ったtextboxを消す。
-
ボタンをマウスで押し続けたと...
-
VBA でのボタンの移動について
-
ボタン
-
CommandButtonのCaptionを変化...
-
TextBoxでEnterキーを押すと、...
-
VB.net でトグルボタンを実現し...
おすすめ情報