- ベストアンサー
不特定多数のコントロールを発生させる方法
kakusukeの回答
- kakusuke
- ベストアンサー率36% (95/259)
クラスを使っては？ なんか問題あるんですか？
関連するQ&A
- VBAでイベント発生時に自分の呼ばれたコマンドを知る方法
イベントが発生したときに自分がどのオブジェクトから呼ばれているイベントか知る方法ってありますか？あるいは上から何番目のコマンド（縦に同じコマンドがズラッと並んでいるイメージ）から呼ばれているかをイベント内部から知る方法ってありますか？ 今コーディングで新規フォームを作ってそこにレコード数だけコントロールを配置するというコーディングを考えております。 そのコマンドにクリックイベントも発生させたいので、コントロールを作成してイベントを埋め込むという作業まではできたのですが、不特定多数のコマンドボタンの作成設置方法に悩んでおります。 ＶＢＡではコントロールの配列はできないので、コントロールの名前などを全て変えて作らなければなりません。そこをどうするかで頭を悩ませています。 しかも後でどのコントロールがクリックされて呼ばれたのかも知りたいので、コントロール配列のindex番号みたいなものを取得しておく必要もありますが、何か良い方法はないでしょうか？ いっそのことコマンドの名前を数字にして、後でそのコントロール名とかオブジェクトのメソッドを参照してインデックス番号を取得・・・みたいなことを考えてたのですが、たしか既存の（目に見えて形となっている）（オブジェクト名自体を持っている）コントロールのメソッドを使用するのはかなり不可能だったような気がするので、タグやオブジェクト名も拾えない気がします。 ＶＢなら同じイベント内容のコマンドを全て配列にしてまとめてクリックイベントにしてそのIndexを見ればプロシージャ１つで済みますが、ＶＢＡで似たような方法をする方法を教えてください。 ループで回しながらオブジェクト名の違うコントロールを配置する方法は自分でなんとかやってみますのでindex番号の取得の方法だけお願いします。
- ベストアンサー
- その他（プログラミング・開発）
- ExcelVBA UserFormに沢山のボタンを貼り付けたい
Excel2003のVBAを使っています。 コマンドボタンが沢山付いたユーザーフォームを起動したいのですが、 フォームに貼り付けるコマンドボタンの個数は、マクロを実行した時に決めたいです。 （例えば任意のセルの値を読み込むなどして） 要するにコードの中で、コマンドボタンの生成をしたいのですが、 可能でしょうか。 VBでプログラム組んでる知人に聞いたところ、「コントロール配列」なるものを利用すれば可能だそうですけど、 VBAにはそれが無いと聞きました。
- ベストアンサー
- オフィス系ソフト
- なぜエラーになるのでしょう？アクティブコントロール
ちょっと変なやり方かもしれないのですが、都合上こうやりたいので教えてください。 フォーム1の中にフォーム2を入れてサブフォームとして フォーム2の中にコマンドボタンを一つ置きました。 そのコマンドボタンを押した時に、そのコマンドボタン名を取得したいのですがうまくできません。 フォームは２０個ぐらいあってこれと同じ動きをしたいので、 フォームモジュールには Private Sub コマンド0_Click() Call アクティブコントロール名を取得する End Sub として、 標準モジュールにコードは書いています。 Sub アクティブコントロール名を取得する() Dim フォーム As String フォーム = Screen.ActiveForm.Name MsgBox "アクティブコントロール名" & Forms(フォーム).ActiveControl.Caption End Sub にすると、オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)になります。 そもそも、フォーム = Screen.ActiveForm.Nameの時点で、フォーム1になっています。 実際のコマンドボタンはフォーム2にあるのに。 なので、無理矢理 MsgBox "アクティブコントロール名" & Forms("フォーム2").ActiveControl.Caption にしたら、 実行時エラー2450 マクロの式またはVisualBasicコードで参照されている'フォーム2'が見つかりません。 という違うエラーになりました。 Sub アクティブコントロール名を取得する() Dim フォーム As String フォーム = Screen.ActiveForm.Name Forms("フォーム2").SetFocus MsgBox "アクティブコントロール名" & Forms("フォーム2").ActiveControl.Caption End Sub にすればいいのかな？と思ったら Forms("フォーム2").SetFocusでアウトでした。 もともとはサブフォームのコントロールから発信したイベントなのに、 サブフォームのコントロールの値が取れないのでしょうか？ 実際のmdbファイルではコマンドボタンではなくテキストです。 ご回答よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- アクティブエックスコントロールが挿入できない
アクティブエックスコントロールが挿入できない シートにコマンドボタンを設置しようと思ったら 「オブジェクトを挿入できません」という、画像のようなエラーになります。 既存のコマンドボタンをクリックしても、へこまないし、リンクしているＶＢＡコードも実行されません。 デザインモードにして既存のコマンドボタンをクリックしても、ＶＢＥコードに移動しません。 ファイルが壊れているのでしょうか？
- ベストアンサー
- Excel（エクセル）
- ラベルに「コントロールソース」を設定することは不可能でしょうか？
単票形式のフォームのレコードソースに紐付くコントロールソースを ラベルに設定したいのですができません。 ハイパーリンクをテキストボックスではなく ラベル上に表示したいです。 テキストボックスのプロパティには「コントロールソース」があるのですが ラベルに「コントロールソース」はありません。 設定することは不可能でしょうか？ VBAでも可能なら教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルＶＢＡ コントロールのプロパティの変更
エクセル２００３でシート上に割り付けたラベルコントロールをＶＢＡでＣａｐｔｉｏｎプロパティで 変更するプログラムを作ってみました。(同じ様にボタンコントロールのＣａｐｔｉｏｎプロパティに ついても作りました。) ステップ実行（Ｆ８）では、思ったとおり変更されますが、普通の実行(Ｆ５)では思ったとおり 変更されず、遅れて最後のコマンド分しか変更されませんでした。 ＊条件ループでセルのテキストを順番に読みコントロールのＣａｐｔｉｏｎとして変更するプログラム です。 なぜ出来ないのか分かりません。 原因又は、方法を教えていただけないでしょうか？ ＶＢＡでは、オブジェクト名に配列を使えないらしかったのでＯＬＥObjectｓ（コントロール?、 コレクション?）でオブジェクト名の配列のように使っています。 あまり、詳しくないので用語が間違っていたらすいません。 後、途中にインターバルタイマー入れたりして、動作確認しましたがやはりダメでした。
- 締切済み
- その他MS Office製品
- VB6からの移行したいけど、VB.NETのコントロール配列は？
VB6ではフォーム上にボタンコントロールとかを配列で作成できクリックされた時にはボタンイベントのインデックス値によってどのボタンを押されたが判断できて各処理を記述できていましたが、VB.NETでは同じようにはできないようです。オブジェクト指向的?にはこちらがいいのでしょうが、どうも面倒くさくなったなぁというイメージしかわかず、なぜこの方がいいのかという納得いく書籍とかも見つけることができていません。 どなたか、ご教授頂きたいのですがよろしくお願いします。参考になる書籍やＷＥＢとかもありましたらお教えいただければ幸いです。
- ベストアンサー
- Visual Basic
- フォームとコントロールツールボックスの違い
コマンドボタンでＶＢＡのプログラムを実行させたいんですがフォームとコントロールツールボックスにあるコマンドボタンの違いがよくわかりません？？？？ どうやって使い分ければいいんでしょーか？？？
- ベストアンサー
- オフィス系ソフト
- Access2007 コントロールの削除
イベント内プログラムで以下のようにフォームのコントロールの削除を行っていますが、 コントロール名が条件に合っていても削除されません。 DeleteControlが失敗しているのではなく、 If Left(ctlSche.Name, 6) = "lblBox" Then にひっかからないようです。 しかも、同じように 頭に"lblBox"とつくラベルコントロールでも、ひっかかるものとそうでないものがあります。 以下のコーディングでは不十分でしょうか？ Dim ctlSche As Control DoCmd.Close acForm, FName, acSaveYes DoCmd.OpenForm FName, acDesign, , , , acHidden Set ctlSche = CreateControl(FName, acLabel) For Each ctlSche In Forms!TestForm.Controls If Left(ctlSche.Name, 6) = "lblBox" Then 'コントロールの削除 DeleteControl FName, ctlSche.Name End If Next DoCmd.Close acForm, FName, acSaveYes DoCmd.OpenForm FName, acDesign, , , , acHidden
- ベストアンサー
- Visual Basic
- vbaで、フォームコントロールを挿入する方法
vbaで、フォームコントロールを挿入する方法 エクセル２００７を使っています。 最近、vbaを始めたのですがわからない事があります。 開発→挿入→挿入→フォームコントロールで、 オプションボタンやチェックボックスを、 vbaで挿入したいのですが可能でしょうか？ 例えば、フォームコントロールのボタンを押しただけで オプションボタンを６つ挿入するなどです。 ActiveXコントロールでは、可能とどこかのサイトで見たのですが、 どうしてもフォームコントロールの方を使いたいの…。 よろしくお願いします。
- ベストアンサー
- Visual Basic
お礼
実はクラスを使ったことがないので使い方がよくわかりません。
補足
よければそのクラスを使ったやり方教えてください。