- ベストアンサー
BVAユーザーフォーム上でのオプションボタンについて
komkomaの回答
こんなコードではどうでしょうか? オプションボタン側にはコードはいりません。 Private Sub CommandButton1_Click() With Range("A65535").End(xlUp).Offset(1) If OptionButton1 = True Then .Value = "a" If OptionButton2 = True Then .Value = "b" If OptionButton3 = True Then .Value = "c" End With Unload Me End Sub
関連するQ&A
- VBA ユーザーフォームのオプションボタンについて
VBA初心者です。宜しくお願い致します。 ユーザーフォームのオプションボタンをONにした時に、 楕円が入力されるようにしたいのですが、可能でしょうか?
- 締切済み
- Visual Basic
- Access フォームの入力について
アクセス初心者です。 フォームA(メインとなる画面)でコマンドボタンをクリックすると フォームBが開くように設定しました。 フォームAでレコード1を入力時にコマンドボタンをクリックすると フォームBのレコード1に フォームAのレコード5を入力時にコマンドボタンをクリックすると フォームBのレコード5に移動してデータを入力できるようにすることは可能でしょうか?可能であればどのようにしたらよいでしょうか? 具体的には テーブル 社員NO、氏名・・・、希望地域(yes/no型)があります。 フォームA ・社員NO ・氏名など フォームB ・希望地域(チェックボックスでチェックする。複数選択可) フォームAを入力時にフォームBを開いて希望地域にチェックできる というようにしたいのですが、 フォームAからフォームBに移動するといつもレコード1が表示されてしまいます。 自分なりに試行錯誤しているのですがどうしてもできません。 よろしくお願いします。
- ベストアンサー
- その他(データベース)
- ユーザーフォーム上のボタンの使い方
今、VBAの本とインターネットで調べながら初めてユーザーフォームを作成中ですが、 どうしてもわからないことがあり、ご質問させていただきました。 初歩的なことかも知れませんが、ご教授よろしくお願い致します。 1.オプションボタンを二つ作成しました。 一方を選択した場合、フレーム全体をグレーアウトに することはできますか。 例)ユーザーフォーム上のオプションボタン A:住所登録 (郵便番号・所在地等を入力) B:電話番号登録 (電話番号を入力) ※Bをオプションボタンで選択した場合、Aのフレーム全体を グレーアウト(入力禁止)にすることはできますか。 2.ComboBoxで"年"、"月"、"日"それぞれプルダウンで選択できるように したのですが、ワークシートに反映する時、同一セルに入力するか、 それらの数字を認識して日付として一つのセルに表示することはできますか。 例)ユーザーフォーム上 2007▼年 4▼月 19▼日 ※一つのセルに“2007年4月19日”と表示することはできますか。 3.2.の続きで、"年"、"月"、"日"すべて選択している場合、 チェックボックスにチェックが入り、どれか一つでも空白の場合は チェックボックスがグレーアウトしている、という状態はできますか。 4.ユーザーフォームで入力した内容がExcel上にどんどん 追加していく時のマクロはどのように記述したらいいのですか。 (ユーザーフォームに入力した内容を、セルを指定せずにどんどん 追記していく方法) 質問が多くて申し訳ございませんが、よろしくお願い致します。
- ベストアンサー
- Visual Basic
- エクセルのオプションボタンについて
エクセルVBAの初心者です。 ブックAのSheet1にコントロールツールボックスよりオプションボタンを使って、OptionButton1にA室、OptionButton2にB室、OptionButton3にC室という名前をつけて作成しました。この3つのオプションボタンの内いずれかを選択した時に、別のブックBのSheet1のセルA1に転記したいのですが、VBAを使って転記をすることはできるでしょうか? 分かりにくい説明で申し訳ありませんが、宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- ユーザーフォーム動作で○○○.xlsはすでにひらいています警告文の対策
excel2000 windowsXPを使用しています。マクロ超初心者です。 1)ワークシートにユーザーフォームA が現れます。その中のコマンドボタンをクリックすると a b c 3個のボタンが配置されたフォームB が現れます。 フォームBの aボタンをクリックすると処理用のシートが現れ、このシートに入力複写が完了したので 戻るボタンをクリックして、前のフォームBが表示されます。 問題はここでbボタンを押すと、「○○○.xlsはすでに開いています。2重にひらくと・・・」と警告文がでます。 そこでこの警告文が出ないように もし○○○.xlsが開いていないときは、開き、開いているときは開く命令をやめてその次の行からマクロを実行しなさいというスクリプトを作りたいのですが、どう書いたらよろしいでしょうか? 2)上記フォーム正常に動作していました。フォームの中のボタンを1個だけ削除しました。再度起動したところ 「実行時エラー指定されたオブジェクトをは見つかりません」と出てフォームの修正ができません。 すでに出来たフォームの修正はどうやったらよろしいでしょうか?
- ベストアンサー
- Visual Basic
- エクセルのユーザーフォームの作り方で
エクセルのVBAの初歩的なことで教えてください。小学生の子供用の学習ソフトを試作しています。シート1を問題の表示画面とし、シート2に問題のデータを保存しています。学習者はシート1を見て、最初に名前や使った日をユーザーフォームに入力すると、そのデータがシート1の表示されていない下の方のセルに記録されるようにマクロを組んで作りました。そのユーザーフォームを、シート1に作ったコマンドボタン(テキストは「開始」としました)を押すと表示されるようにしたいのです。そのためのコマンドボタンをどのように作ればよいでしょうか。ユーザーフォームの方は、マクロを実行すれば立ち上がり正常に入力(登録)できます。VBAの本を読んで独学で勉強し始めたばかりですので、できればわかりやすく教えてください。
- ベストアンサー
- その他MS Office製品
- ユーザーフォームでのコンボボックスについて。
同じような内容の質問を探したのですが、解決の糸口がつかめず質問させていただきます。 VBAは初挑戦なんですが、本とネットではなかなか理解しづらいところがあって・・・。 自分の作っているフォームとは多少違いますが、説明を簡単にするために例を挙げさせていただきます。 まずSHEET1において、ユーザーフォームに3つのコンボボックスを配置しています。それぞれ、「月」「日」「曜」とします。 これを、SHEET2においてあるリスト「1~12」と「1~31」「月~金」にそれぞれ反映させたいのですが。 それを一つめのデータとして、「月」をA1、「日」をB1、「曜」をA2にそれぞれ配置して、二つめのデータはA3から始めたいのですが。 あともうひとつ。 SHEET3に表紙をおいて、コマンドボタンを配置し、そのボタンをクリックすると、SHEET1が開くと同時に、上記のユーザーフォームが出るってコトはできるのでしょうか? ややこしくてすみません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ボタンを押すとフォームからフォームの画面にとぶようにするには
アクセスで、フォームの画面をいくつか作り、コマンドボタンのイベントビルドをVBAで書いています。 いま、フォーム1の画面のボタンをクリックすると、フォーム2の画面にとんでいくようにするにはどうすれがいいでしょうか。
- 締切済み
- Visual Basic
- VBAエクセルのフォームについて
お世話になっております。 VBAエクセルのフォームについて教えていただきたいのです。 VBAで入力のフォームを作ったのですが(TEXT BOXが4つ、コマンドボタン1つ、コマンドボタンを押したときに登録される用にしたい) 各シートの集計にしたい為、各シート(31のシートがあります)に入力フォームがあります、その各シートでの入力結果を1つのシートに 集計したいのですが、どの様なコードにしたらようか判りません。 素人のためお手数ですが、なるべく判りやすくお願いします。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- オプションボタン
昨日も質問させていただいたものです。 オプションボタンの使い方について質問があります。 コマンドボタン1つ、テキストボックスを1つ、ラベルを一つ、 フレームを二つ用意し、それぞれのフレームに3つずつオプションボタンを配置します(●フレームA、B●オプションA1、A2、A3、オプションB1、B2、B3とする)。 オプションA1~3には1~3年生というキャプションを、 オプションB1~3には1~3組というキャプションを設定します。 テキストに名前を打ちこんでコマンドボタンを押すと、 ラベルに(テキストが太郎の場合)"太郎は3年1組です" と表示されるようなものを作ろうと考えています。 コマンドボタンを使用せずに、オプションボタンのみで作ると Privat Sub OptionA1_Click() If OptionB2.Valrue=True Then Label1.Caption="" と言うような感じで何個も書けば良いと思うのですが、 これにをコマンドボタンで実行させようとすると方法がわかりません。 アドバイスお願いします。
- ベストアンサー
- Visual Basic
お礼
ありがとうございました!非常に助かりました!!