• 締切済み

activeXのフォームにマクロ登録する方法

マクロ超初心者です。 ある図形を「Red」というマクロ(マクロの記録から作成したもの)を実行すると 枠が赤色になるマクロを作成したとします。 一方でActiveXのフォームからRedというチェックボックスを作成し、 チェックボックスをON(True)にすると「Redのマクロが実行」されるように設定したのですが、どのようにすればよろしいでしょうか。

みんなの回答

回答No.2

ActiveXのフォームというのが何を意味するのかわかりませんが・・・ Redという名前のマクロがあるのだから、Redというチェックボックスは使えません。 下記例ではチェックボックスを「RedCheckBox」としています。 マクロを「ChangeBorderRed」としています。 '--- ユーザーフォーム内 Private Sub RedCheckBox_Click() If RedCheckBox.Value = True Then Call ChangeBorderRed End If End Sub '--- 標準モジュール内 Public Sub ChangeBorderRed() 'ここに枠を赤にするロジック End Sub

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

>ActiveXのフォームから、質問に書いているが エクセルVBAなら フォームにActveXとその他は無いのではないか。 ーー 「コントロール」では ・フォームコントロール と ・ActiveX コントロール の2種があるのは、有名なエクセルVBAのトッピクスだが。 そもそもエクセルVBAの質問だということを質問には明記すべきなんだ。 それにエクセルバージョンの書くべきだ。回答が変わる場合もありえるのだ。 http://www.239-programing.com/excel-vba/basic/basic101.html など ーー 基本的にはイベントの(エクセルVBAの例) Private Sub ComboBox4_Change() End Sub などの中にRedのルーチンを挟めばよいのでは。 ただ処理するObjectについては注意しないとならないが。 エクセルのシートのセルとワードの表のセルが同じコードになるとは限らないはず。 ーー >ある図形を「Red」というマクロ(マクロの記録から作成したもの)を実行すると 枠が赤色になるマクロを作成したとします この文章は、「「Red」というマクロを実行すると、図形の枠を赤色になる,コード」と書くべきと思う。 それを「チェクボックス」をクリックしたとき実行したときに実行にしたいなら 上記の通り。イベントが何か(クリックとかChangeとか)認識しないとだめ。 「チェックボックスをON(True)にする」というのは、イベントそのものではない

関連するQ&A

  • エクセル マクロ フォームのチェックボックス

    エクセルのフォームのチェックボックスで【On】にした際に 「コントロールの書式設定」にある「リンクするセル」のロックをしたいのですが マクロで実現する際、どのようなにできるのでしょうか? また、フォームのチェックボックスで【Off】にした際に、「リンクするセル」のロックの解除のしたいです。 初心者で下記を記述しましたが、チェックボックスが多いため、すべてのチェックボックスに登録するのが時間がかかるのあで、教授お願いします。 Cells.Locked = False ActiveSheet.Protect userinterfaceonly:=True ActiveSheet.Range("AY29").Locked = True

  • エクセルのフォームのチェックボックスについて

    エクセルのフォームのチェックボックスについて あるセルにフォームのチェックボックスを付け、 そのセルに、true・falseの条件設定をしました。 その設定を利用して、条件式書式の設定で、 trueの時にとなりのセルを赤にするようにしました。 以上のような行が1500行あります。 1つ1つ設定するのが困難のため、 マクロが使えるフォームのチェックボックスを使用しようと試みております。 しかし、マクロ内のVBAの記述方法が解りません。(1行だけなら解ります) ご存知の方がおられましたら教えてください。 よろしくお願いいたします。

  • エクセル2010のフォームコントロールについて

    エクセル2003で作成したファイルを、エクセル2010の互換モードで編集作業しています。 互換モードで編集をしている中で、フォームコントロールのチェックボックスを作成すると、最初からチェックボックスのアウトライン沿いに影がつきます。 見栄えを整えるために、どうしてもこの影を消したいと思っているのですが、書式タブから図形の効果を選択しようとしてもグレー色になっていてクリックができません。 どうしたら、フォームコントロールの影を消すことができるでしょうか?ご存じの方いましたら教えてください。 なお、ActiveXのコントロールのチェックボックスであれば、影が消せるのですが、こちらは使いたくありません。よろしくお願いします。

  • マクロ フォームでのチェックボックスについて

    教えてください。 1)フォームでテキストボックス2つ、ボタンで新しい入力フォーム表示 2)入力フォームでチェックボックス6個、コンボボックス6個を作ります。 3)チェックボックスにチェック(1個のみ)したら、1)のフォームのテキストボックスにチェックされた、項目とコンボボックスで選択された内容が転記したい。 例)果物にチェック、コンボでブドウと選択  テキストボックス→果物 ブドウ というようにフォームに転記させたい。 以前、シートでのマクロを教えていただきましたが、フォームだと頭が混乱してしまいました。 簡単で良いので、マクロの記述を教えてください。

  • Access マクロについて

    Accessのマクロについて教えてください。 仮テーブルに 管理コード(オートナンバー) 「あ」(Yes/No型) 「判定」(短いテキスト) があります。 仮テーブルを元に作成した、Aフォームで「あ」チェックボックスがTrueだったら「判定」フィールドに”OK” という文字を 上記のような処理はマクロではできないのでしょうか。 アクションカタログを見てもチェックボックスが〇〇だったら(IF)、までしか作成できないので。 フィールドに書き込むことはマクロでは難しいのでしょうか。 すみませんが、よろしくお願いします。

  • VBAにてフォームコントロールの変更

    VBAでフォームコントロールのチェックボックスのON・OFFを変更することは可能でしょうか。 具体的にはA.xlsmのマクロを実行して、 A.xlsmのセルA1が0ならB.xlsの"チェック 1"がOFF状態に。1ならON状態になる。 以上のような仕組みを作りたいです。 (フォームコントロールなのは様式(B.xls)がフォームコントールで作成されており、変更不可のため) ですが、同じシート内でもチェックボックスのON・OFFができずに挫折しそうです。 まずは同一シート内で作ってみようと思い下記コードを作成したのですが、 ”SubまたはFunctionが定義されていません”となってしまいます。 Public Sub test() If Range("A1") = 0 Then CheckBoxes("チェック 1").Value = False ElseIf Range("A1") = 1 Then CheckBoxes("チェック 1").Value = True Else MsgBox "無効な値が設定されています" End If End Sub エラーは”CheckBoxes”のところで出てしまいます。 どなたかご教授ねがいます。

  • マクロの組み方とチェックボックスに関して

    【マクロ】の設定とチェックボックスを一括ではずす方法 1.マクロは新しいマクロの記録しか使ったことがないのですが、以下のことをやるとうまくいきません。 ・「目次」というセル以外を選択 ・B列を選択し、「ジャンプ」→「セル選択」→空白セルにチェックマーク ・「書式」→「行」→「表示しない」 以上のことをマクロに記録したいです。 マクロでなければうまく反映したのですが、新しいマクロの記録からだとうまく行きません>< 2.チェックボックスを一括(全シート)ではずす方法がありましたら教えて下さい!! ツールバーから作ったので図形のようになっていて、全シート選択すると○になってしまい選択できないのです。。

  • 【Excel】フォームを使ったマクロ記述について

    教えて下さい! マクロ初心者ですが、ユーザーフォームを使って以下のような対話型マクロに挑戦しています。 ワークシート内にあるフォームボタンをクリックすると下の内容を聞いてくるチェックボックスが出てきます。 「比較方法を選択して下さい。」  ・担当者別  ・箇所別 ”担当者別”にチェックを入れ、OKボタンを押すと”担当者選択”というリストボックスが出てきます。 ”箇所別”にチェックを入れ、OKボタンを押すと”箇所選択”というリストボックスが出てきます。 どちらにもチェックを入れずにOKボタンを押した場合、”エラー”というOKボタンのみのフォームが出て、OKボタンを押すと再度チェックボックスの画面に戻ります。 リストボックスやフォームは完成していて、いくつか「IF」や「Select Case」を使って行ってみたのですがうまくいきません。 困っています。 教えて下さい!!

  • マクロを他のブック上で実行できなくなった

    あるマクロを作成して、シート上の図形に登録します。 (たとえば、Msgboxなど簡単なマクロです。図形を押すとメッセージボックスが表示されますよね) そのシートを新規ブックにコピーして、図形を押してもマクロが実行できません。 図形に登録されたマクロを調べると、新規ブックのマクロとして設定されてしまってます。 これはどこかの設定を変更すると治るのでしょうか? (最近まで出来てたのに突然出来なくってしまったのです) 環境はExcel2007。OSはWindows7です。 よろしくお願いします。

  • エクセルのマクロが実行できません

    オフィス2002ではマクロを実行できたのに、オフィス2003に変えたらマクロに無署名のため、自動的にマクロが実行できないようになっているらしくて、マクロが実行できません。マクロを有効にするためには、「この発行者のマクロを常に信頼するチェックボックスをオンにする」「マクロを有効にするボタンをクリックする」とあるのですが、それらはどこをクリックすれば出てくるのでしょうか?