ベストアンサー

フォーム上の現在アクティブなコントロールの取得

2009/09/14 08:52

Excel2003についてですが、VBAでフォーム上の現在アクティブなコントロールの名前が取得できないかと思います。方法はありますでしょうか？

urourojp
お礼率34% (34/100)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

watabe007
ベストアンサー率62% (476/760)

2009/09/14 09:05 回答No.1

MsgBox UserForm1.ActiveControl.Name

質問者

お礼 2009/09/17 00:54

ありがとうございました。いけました。

関連するQ&A

フォーム上の全てのコントロールを取得したい

フォーム上の全てのコントロールを取得したいです。（サブフォームも含め）自分なりにＶＢＡで考えてみたのがこれです。 Sub test() Dim 数 As Long For Each 数 In Form_フォーム1.Controls.Count ’Debug.Print　？ End If Next End Sub でもこれだけでもデバックしてみると「コンハ゜イルエラー for　Eachは、コレクション　オブジェクトまたは配列でのみ繰り返しを実行します。」となります。答えを教えてください！よろしくお願いします。（アクセス2003です）
エクセル　フォーム上の全てのコントロールを取得した

エクセル　フォーム上の全てのコントロールを取得したい http://okwave.jp/qa/q4879853.html のNo.１さんの回答を参考に、 Sub try() Dim i As Integer Dim StrFormName As String StrFormName = "フォーム１" For i = 0 To Forms(StrFormName).Controls.Count - 1 Debug.Print Forms(StrFormName).Controls.Item(i).Name Next End Sub を作ったのですが、「Forms」の部分が、「Sub、Function、または Property が定義されていません。(Error 35)」というコンパイルエラーになってしまいます。上記のコードをアクセスＶＢＡにつけると、全てのコントロール名が取得できます。同じようにエクセルで使うにはどこを修正すればいいでしょうか？フォーム名は、変数に入れて使いたいです。
vbaで、フォームコントロールを挿入する方法

vbaで、フォームコントロールを挿入する方法エクセル２００７を使っています。最近、vbaを始めたのですがわからない事があります。開発→挿入→挿入→フォームコントロールで、オプションボタンやチェックボックスを、 vbaで挿入したいのですが可能でしょうか？例えば、フォームコントロールのボタンを押しただけでオプションボタンを６つ挿入するなどです。 ActiveXコントロールでは、可能とどこかのサイトで見たのですが、どうしてもフォームコントロールの方を使いたいの…。よろしくお願いします。
別ファイルのフォームコントロールで作成したチェックボックスの値の取得方法

Excel2007で別ファイルのチェックボックスの値を取得したいと思っています。値（オンかオフか）を取得するチェックボックスは「フォームコントロール」で作成したものです。チェックボックスはフォームなどの上ではなく、シート上に直接置いてあります。 ShapesやOLEobjectだとサポートしてませんエラーが出てしまいうまくいきません。何かいい方法はありませんでしょうか。
もしフォームヘッダーにコントロールがあるのなら

アクセスのフォームの、フォームヘッダーに検索用テキストボックスとコンボボックスがあり、詳細エリアにレコードソース（コントロールソース）に紐付いたテキストボックスが複数あります。フォームヘッダーのフィルタを解除するコマンドを実行して、フォームヘッダーのテキストボックスとコンボボックスをnullにしたいのですが、 vbaで「もしフォームヘッダーなら」ってするにはどうすればいいでしょうか？フォームヘッダーのコントロール名も詳細エリアのコントロール名も区別のないコントロール名でなのでコントロール名で条件分岐をすることは不可能です。 Private Sub フィルタを解除コマンド_Click() Dim ctl As Control For Each ctl In Me.Controls If (ctl.ControlType = acTextBox) Or (ctl.ControlType = acComboBox) Then 'ここで、もしフォームヘッダーにコントロールがあるのならってしたい Me.Controls(ctl.Name) = Null End If Next ctl Me.Form.FilterOn = False End Sub このコードに付け加えてくれませんか？ Debug.Print ctl.Name でコントロール名を取得するとフォームヘッダーも詳細もどちらのコントロール名も取得されてしまいます。 On Error Resume Next 以外でお願いします。
Excelのフォームコントロールを変更禁止にしたい

Excel2007のフォームコントロールで作成した画面を他人が勝手に変更できないようにしたのですが、”校閲”　”シート保護”でロックをかけますとフォームコントロールでの入力ができなくなります。何か良い方法はないのでしょうか？教えてください。
フォームの値取得について

PHP4を利用しています。フォームからのデータ取得で以前はフォームで利用した名前に$をつければその値を変数として利用できたと思うのですが、 PHP4からは設定によっては出来ないと言うことなのでフォームの名前と同じ名前の変数に値を入れる為 $name1=$_POST['name1']; で取得しようと思ったのですが、フォームで利用しているテキストボックスが多いのです。やはりひとつづづ取得する方法しかないのでしょうか？なにか良い手があったら教えてください。よろしくお願いします。
Ｃ＃　タブのコントロール取得

お世話になります。 FOAM上のコントロールを取得する場合は foreach (Control ctr1 in Controls){ } で取れますが、FOAM上のTabControlにADDしてあるコントロールを取得することができませんでした。タブコントロールまでは取得できますが…。タブ上に配置してあるオブジェクトを取得するにはどのようにしたらよいのでしょうか？お知恵を拝借できればと思います。よろしくお願いします。
AccessVBA全てのコントロールのイベントを取得したいです。

AccessVBA全てのコントロールのイベントを取得したいです。フォーム上にコントロールが20個ほどあります。現在は抽出ボタンを使用し、抽出実行イベントを行っています。出来れば、すべてのAfterUpdate()で抽出実行させたいのですが、コードの書き方がわかりません。全てのコントロールに対しAfterUpdate()のイベントを書くしか方法はないでしょうか？フォーム内どのコントロールでも抽出実行Functionさせたいです。 ExcelVBAの様にシート内の全てのChangeイベントの様な取得方法はないものでしょうか？ご存じの方がおられましたら、アドバイスよろしくお願いいたします。 m(_ _)m
コントロールの絶対位置を取得したい

フォーム内の複数のコンテナ上にあるコントロールの絶対位置（フォーム左端からの位置）を簡単な方法で取得できないでしょうか（VB.NET）。すべての親コンテナの相対位置を積算すればわかると思うのですが、もっと簡単な方法で取得できないでしょうか。
VBAでコントロールのハンドルを取得したい

Excel2000のVBAでFormに配置したコントロールのハンドルを取得するにはどうしたらよいのでしょうか？目的は、Winsock API(ws2_32.dll)の WSAAsyncSelect関数の2番目の引数にセットする値を取得することです。USER32.dll の GetDlgItem が使用できそうなことがわかったのですが、こちらもその２番目の引数にセットするＩＤがわかりません。
フォームコントロールのボタン設定

ExcelのVBAで、ActiveX コントロールのボタンは、 CommandButton1.Enabled=False のようにして押せなくできますが、フォームコントロールのボタンの場合でも、押せなくなる設定をすることは可能ですか?
フォームコントロールの文字編集

Excel2007のUserです。フォームコントロールのことについて質問します。開発、挿入でコントロールの挿入を行いますが、たとえばコンボボックスをシートに挿入した場合、このボックス内の文字を大きくしたり色をつけたりする編集の方法がわかりません。もともと編集できない物でしょうか？文字が小さすぎです
サブフォームのコントロールの値を取得したい（ＶＢＡ）

連続投稿失礼します。ファーム１のなかにサブフォーム（フォーム２）を設置しました。フォーム２の中にはテキスト１があります。ＶＢＡでテキスト１の値を取得したいのですがうまくいきません。フォーム２を開いた状態で、 Sub test1() MsgBox Forms("フォーム2").Controls("テキスト1") End Sub を行なうと、「あああ」が返ってくるのですが、フォーム2を閉じて、フォーム１を開き、上のコードを実行すると、「マクロの式、またはVisual Basicのコードで参照されている 'フォーム２'フォームが見つかりません。」となってしまいます。普段はフォーム２は閉じ、フォーム1を開いて使うため、この状態でのＶＢＡコードが知りたいです。ちなみに変数を代入したいので「Form_フォーム2.テキスト1」の書き方よりカッコでくくる書き方でご回答いただければ助かります。よろしくお願いします。
ユーザコントロールのイベント取得について（C#）

環境：Visual Studio 2005 C# Windows Application フォームに自作のユーザコントロールを貼り付けてそのイベントを取得する勉強をしているものです。フォームでのユーザコントロールイベントを取得して処理をする方法が分かりません。状況ユーザコントロールにはテキストボックスを追加しています。また、フォームにそのユーザコントロールを追加しています。確認したいことは、ユーザコントロールのテキストボックスになにか値を入力したタイミングでチェンジイベントをフォーム側で察知し、処理をするというものです。どなたか、要点だけでもいいので教えていただけないでしょうか？宜しくお願いいたします。
フォームコントロールの使い方

フォームコントロールでオプションコントロール（丸いやつ）を複数表示した時、初めの状態では一つしか選べません。これを複数選べるようにするにはどうしたらいいでしょうか。それともそもそもフォームコントロールは見た目の”チェックボックス”ではないため出来ないのでしょうか。その場合、代替案はありますか？
Excelのコントロールツールボックスでデータの入力フォームを作成しま

Excelのコントロールツールボックスでデータの入力フォームを作成しました。内、何項目かはテキストボックスになっているのですが、これを特定の順番でTabキーかEnterキーで移動させたいのですができません。方法をご存知の方がいらっしゃれば教えてください。 VBAエディタからのフォーム作成ではプロパティでできていたのでExcel全般の仕様だと思っていたのですが・・・。
現在アクティブなフォーム名を取得するには

アクセスの標準モジュールでのプロシージャーで、現在アクティブなフォーム名を取得したいです。フォームモジュールなら、Me.Nameでイケますが、すべてのフォームから使えるように、標準モジュールで作りたいのですが、どうすればいいでしょう？ Debug.Print ActiveForm.Name とすると、コンパイルエラーになります。 Debug.Print ActiveForms.Nameでも同じです。ご回答よろしくお願いします。
Excel フォームコントロール　オプション

いつもお世話になってます。 ActiveXのOptionButtonやChekcBoxは複製Windowでは働かないので、フォームコントールを使おうと思います（フォームコントロールは動作します）。例えばVBAなら,次のようにすればCheckBox2はoffになります。　これをフォームコントロールのチェック（ボックス）でやりたいのですが？ Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox2.Value = False" End Sub
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除

Excelのvbaでユーザーフォームを作成しました。 UserForm_initialize()内でコントロールを以下のように動的に作成・配置しました。 Me.Controls.Add("Forms.ComboBox.1", "ComboBox" & i, True) 別のコマンドを用意して、そこから表示するコントロール数を変更させたいので、パブリック変数を使用してループ回数を指定したうえでフォームを再表示させました。しかし、ループ回数を増やした場合は良いのですが、減らした場合でも一度表示されたコントロールが消えません。良い方法を教えて下さい。よろしくお願いします。

フォーム上の現在アクティブなコントロールの取得

質問者が選んだベストアンサー

お礼 2009/09/17 00:54

関連するQ&A

フォーム上の全てのコントロールを取得したい

エクセル　フォーム上の全てのコントロールを取得した

vbaで、フォームコントロールを挿入する方法

別ファイルのフォームコントロールで作成したチェックボックスの値の取得方法

もしフォームヘッダーにコントロールがあるのなら

Excelのフォームコントロールを変更禁止にしたい

フォームの値取得について

Ｃ＃　タブのコントロール取得

AccessVBA全てのコントロールのイベントを取得したいです。

コントロールの絶対位置を取得したい

VBAでコントロールのハンドルを取得したい

フォームコントロールのボタン設定

フォームコントロールの文字編集

サブフォームのコントロールの値を取得したい（ＶＢＡ）

ユーザコントロールのイベント取得について（C#）

フォームコントロールの使い方

Excelのコントロールツールボックスでデータの入力フォームを作成しま

現在アクティブなフォーム名を取得するには

Excel フォームコントロール　オプション

ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

フォーム上の現在アクティブなコントロールの取得

質問者が選んだベストアンサー

お礼 2009/09/17 00:54

関連するQ&A

フォーム上の全てのコントロールを取得したい

エクセル フォーム上の全てのコントロールを取得した

vbaで、フォームコントロールを挿入する方法

別ファイルのフォームコントロールで作成したチェックボックスの値の取得方法

もしフォームヘッダーにコントロールがあるのなら

Excelのフォームコントロールを変更禁止にしたい

フォームの値取得について

Ｃ＃ タブのコントロール取得

AccessVBA全てのコントロールのイベントを取得したいです。

コントロールの絶対位置を取得したい

VBAでコントロールのハンドルを取得したい

フォームコントロールのボタン設定

フォームコントロールの文字編集

サブフォームのコントロールの値を取得したい（ＶＢＡ）

ユーザコントロールのイベント取得について（C#）

フォームコントロールの使い方

Excelのコントロールツールボックスでデータの入力フォームを作成しま

現在アクティブなフォーム名を取得するには

Excel フォームコントロール オプション

ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　フォーム上の全てのコントロールを取得した

Ｃ＃　タブのコントロール取得

Excel フォームコントロール　オプション

カテゴリ
一覧

専門家に質問してみよう
専門家登録