- ベストアンサー
エクセル VBA
エクセルのユーザーフォームのチェックボックスについて 教えて下さい。 現在チェックボックスが15個あるのですが 例えばテキストボックスが2個あり テキストボックス1に数字の2 テキストボックス2に数字の6 を入れ、コマンドボタンを押すと チェックボックスの2から6にまとめてチェックが入るようなコードが組みたいです。 宜しくお願いします。
- yyrd0421
- お礼率50% (86/170)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
チェックボックスには、CheckBox1~CheckBox15のオブジェクト名が付いているものとします。違っていたら誤動作するので、オブジェクト名は確認して下さい。 テキストボックスに 1~15以外を入れた場合などの対応はしておりません。必要なら追加して下さい。 ' Option Explicit Private Sub CommandButton1_Click() ' Dim NControl As Control Dim No As Integer ' For Each NControl In Controls If NControl.Name Like "CheckBox*" Then No = Mid(NControl.Name, 9) NControl.Value = (No >= TextBox1 And No <= TextBox2) End If Next NControl End Sub
関連するQ&A
- EXCELのVBAについて
エクセルのVBAでユーザーフォームに作ったテキストボックスに入力した値を、コマンドボタンによる「実行」とともに別に作った標準モジュールの変数として代入するにはどうすれば良いでしょうか? 具体的な流れは、 マクロ実行 ↓ ユーザーフォーム出現 ↓ テキストボックスに数字を代入→「実行」 ↓ 変数を代入された標準モジュールによる処理完了 というものです。 ご教授お待ちしております。
- ベストアンサー
- オフィス系ソフト
- エクセル ユーザーフォーム
エクセルのユーザーフォームでコマンドボタンを使ってテンキーを作りたいのですが、入力するときにテキストボックス1、テキストボックス2の切り替え方がわからなく困っています。 2つのテキストボックスに対応させるにはどのようにコードを書いたら良いでしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルVBAの質問です。
こんばんわ! エクセルVBAのユーザーフォーム上のテキストボックス等をマクロを実行した状態で、動かしたりしたいのですが、可能でしょうか? 具体的には、コマンドボタン1をクリックすると、テキストボックス等を移動したりできるようにしたいです。 参考URL、あるいは方法があればご教授お願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセルの日付について、教えてください。
エクセルの日付について、お伺いしたいのですが、 ユーザーホームにて、テキストボックスを三つ作り、 その、おのおのに、任意の数字をいれて、ユーザーホームのコマンドボタンを押すと、その三つの数字を合わせてできた数字を日付として、シートに表示したいのですが、コマンドボタンの、VBAはどのように記述すればいいのか、教えていただけませんか? 例 テキストボックス1←2007 テキストボックス1←09(※09は9でもかまいません) テキストボックス1←05 コマンドボタンを押す。 シート→2007/09/05(日付として認識してほしい。) 解りにくいかも知れませんがよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- エクセルVBAでコンボボックス
エクセルVBAのコンボボックスの使い方について質問します。 実現したいプログラムは 「チェックボックスから選んだ数字で計算するプログラム」 です。 具体的には… まず、コンボボックスをシート上に配置します。そのコンボボックスには 数字の1から10を選べるようにしておきます。 次に、コマンドボタンを配置します。これは単にプログラムをスタート させる目的です。 ユーザーは、まずコンボボックスから好きな数字を選択します。 そしてスタートボタン(コマンドボタン)を押します。 すると、選んだ数字の2倍がセルに表示されます。 さらに発展系としては… チェックボックスを4つ配置します。各チェックボックス には、+、-、×、÷を割り振っておきます。 また、コンボボックスを2つ用意し、それぞれ1~10の数字をリストにします。 ユーザーは、チェックボックスから好きな記号を選び、さらにコンボボックスから 好きな数字を選びます。そしてスタートボタンを押すと、選んだ数字を選んだ記号 で計算した値がセルに表示されます。 というようなプログラムを考えているのですが、うまくできません。 ポイントは、 ・チェックボックスにリストを入力する方法 ・チェックボックスの選択状態や、リストボックスから選ばれた数字を、 変数として取得する方法 インターネットで調べているのですが、リストボックスに値を入れるのにもマクロを走らせ なければならない方法とか、ユーザーフォームでの説明ばかりでなかなか実現に至りません。 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_userform05.html プログラムのイメージ図としては添付の図の通りです。 どのようにプログラムを書けばいいのでしょうか。
- ベストアンサー
- Visual Basic
- VBAでセルの数値の計算
現在ユーザーフォームのテキストボックスに数値を入力し、コマンドボタンをクリックするとSheet1のセルのA1に数字が入り、その後例えばテキストボックスの数字を変更して再度コマンドボタンをクリックするとA2・A3と続けて数字が入ります。そこで、コマンドボタンをクリックするとSheet2のセルA1にSheet1のA列の数字の合計が表示されるようにするにはどうしたら良いでしょうか??
- 締切済み
- Visual Basic
- エクセルVBAで困ってます。
ユーザーフォームのテキストボックスで入力制限をしたいのですが、制限は桁とかではなく特定の数字です。そこでテキストボックスに入力後チェックをかけるコーディングをしてるつもりなのですがフォーカスが次のテキストボックスへ遷移してしまいます。フォーカスを自分自身へ戻せないものでしょうか。大変困っています宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセルのユーザーフォームについての質問です。
エクセルのユーザーフォームについての質問です。 かなりの初心者です。 テキストボックスを3つ、チェックボックスを10個作りました。 チェックボックスは複数チェックすることができます。 コマンドボタンをクリックすると、テキストボックスに入力された値とチェックされた チェックボックスがsheet1に自動入力できるようにしたいです。 たとえば、 テキストボックス1には「あいう」 テキストボックス2には「かきく」 テキストボックス3には「さしす」と入力。 チェックボックス1から10のうち、「1」「2」「3」にチェック。 この状態でコマンドボタンをクリックすると、Sheet1には A列 B列 C列 D列 1行目 テキスト1 テキスト2 テキスト3 チェックボックス 2行目 あいう かきく さしす 1 3行目 あいう かきく さしす 2 4行目 あいう かきく さしす 3 このように、チェックボックスにチェックがあった数だけ、テキストボックスも コピーされて、次々と下の行に入って行くようにしたいのです。 こんなことができるのでしょうか? できるのなら、コードを教えてください。 お願いします。
- ベストアンサー
- Visual Basic
- EXCEL VBAのユーザーフォームの操作方法について教えていただきたいことがあります
EXCEL VBAのユーザーフォームの操作方法について教えていただきたいことがあります。 (1)ユーザーフォームにテキストボックスを2つ作る (2)コマンドボタンを1つ作る。 この場合に、コマンドボタンを押すと、セットフォーカスされている方のテキストボックスに「新春」と表示させることはできるのでしょうか。 キーボードは当然セットフォーカスされているテキストボックスに入力されますが それと同じ機能をコマンドボタンにも持たせたいのです。 Private Sub CommandButton1_Click() で TextBox1がセットフォーカスされているならTextBox1に"新春"と入力する TextBox2がセットフォーカスされているならTextBox2に"新春"と入力する というような条件式になるのでしょうか。 色々調べましたが答えが見当たりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAについて
エクセルシートのデータ入力でユーザーフォームを作成してみました。テキストボックスを複数用意してそれぞれに顧客名であったり商品名、数量などを入力するものです。 そこで質問がございます。 現在の設定ではリターンキーを押すと「次行」コマンドが有効になり、次行のセルがアクティブになります。なのでマウスでテキストボックスをクリックしないとそれぞれの情報を入力できません。 顧客名から始まり、次に商品名、数量etc.とユーザーフォーム内でリターンキーで移動させる方法はあるのでしょうか。教えてくださいまし。
- ベストアンサー
- Visual Basic
お礼
ありがとうございます。 まさに求めていたことができました。 本当にありがとうございます。