![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.5ベストアンサー
- 回答日時:
Withブロックの後に
「CommandButton1 = CType(ExlSheet.CommandButton1,MSForms.CommandButton)」
を挿入してもだめでしょうか?
takkunnet様
ありがとう御座いました。
御指導のとおりCommandButton1 = CType(ExlSheet.CommandButton1,MSForms.CommandButton)を挿入しましたら出来ました。
ここ一週間なやみに悩んでいたことがついに出来ました。いろいろなサイトなどで調べましたが、調べ方がまずいのかついに解りませんでした。
やっと解決です。感謝にたえません。謝謝!!!!
No.4
- 回答日時:
CommandButton作成までのソースを教えてもらえませんか?
この回答への補足
たびたび申し訳ありません。
Form1上のButton1でExcelを新規作成(MyFile)し、データを書き込みました。
Button5では、単にButton1で作成したExcelを呼び出すだけのものです。このときシートに動的CommandButtonを貼り付け、これをクリックすることにより、Excelを終了させようというものを作成したいのです。
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ExlBooks = CType(ExlApp.Workbooks, Excel.Workbooks)
ExlBook = CType(ExlBooks.Open(MyFile), Excel.Workbook)
ExlSheets = CType(ExlBook.Worksheets, Excel.Sheets)
ExlSheet = CType(ExlSheets.Item(1), Excel.Worksheet)
ExlSheet.OLEObjects.Add("Forms.CommandButton.1", Left:=780, Top:=10, Height:=30, Width:=65)
With ExlSheet.CommandButton1
.Caption = "×閉じる"
.ForeColor = QBColor(12)
.BackColor = QBColor(14)
.Font.Size = 14
.Font.Bold = True
End With
ExlApp.Visible = True
End Sub
同じホーム上に以下のとおり記述しました。
Private Sub CommandButton1_Click() Handles CommandButton1.Click
ExlApp.Quit()
End Sub
Excelの開放などは別のForm1上のButtonに記述しています。
わかりぬくい説明で申し訳ありませんが、要するに既存のExcelを呼び出し、そのときCommandButtonを貼り付けそれをクリックすることにより、Excelを終了するとゆうものを作りたいのです。
よろしくお願いいたします。
No.3
- 回答日時:
波線の警告文は何でしょうか?
また、
Private Sub CommandButton1_Click() Handles CommandButton1.Click
ではだめですか?
この回答への補足
takkunnet様
お忙しい中たびたびのご回答まことにありがとうございます。
波線の警告文は次のとおりです。
「メソッド'CommandButton_Click'でイベント'Click'を処理できません。指定されているシグニチャが異なります。」
なお、御指導のとおり
Private Sub CommandButton1_Click() Handles CommandButton1.Click
ExlApp.Quit()
End Sub
(とりあえずExcelを終了さすCommandButtonとした。Excelの開放は省略)
波線は消えましたがコマンドボタンをクリックしても状態の変化がありません。
お忙しい中まことに申し訳ありませんがよろしくお願いいたします。
No.2
- 回答日時:
WithEventsを付加した変数はFormにかかれましたか?
そうすると通常の「From上のコントロール」と同様の方法でイベントが取れると思うのですが。。。
この回答への補足
takkunnet様
ご回答ありがとう御座います。
Form1に以下の変数を宣言しました。
Dim WithEvents CommandButton1 As MSForms.CommandButton
そして以下のプロシージャを書きました。
Private Sub CommandButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CommandButton1.Click
しかし、最後のCommandButton1.Clickに波線が入り、先に進めません。
どうかよろしく御指導お願いいたします。
No.1
- 回答日時:
動的にCommandButtonを作成してそのボタンのイベントをとりたい場合には、「WithEvents」でコマンドボタンの変数を定義してやる必要があります。
<例>
Private WithEvents cmdTest As MSForms.CommandButton
また、この場合 Microsoft Forms 2.0 への参照設定が必要です。
ただ、その他たくさんの機能があるようでしたら事前に機能を持ったExcelを作成しておくことをお勧めします。
そうすれば、デバッグも簡単ですし、動作も比較的速いですし、開発も分散化が可能なので効率的になるためです。
この回答への補足
takkunnet様
先のご回答ありがとう御座います。
御指導のとおり、「WithEvents」でコマンドボタンの変数を定義し、Microsoft Forms 2.0 への参照設定を行いました。
しかし、ボタンのイベントを取る方法が解りません。どこにコードを書くのかが解りません。
よろしく御指導のほどお願いいたします。
開発環境は、VB.NET2003、Excel2003、OS WinXPです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- その他(Microsoft Office) Excelで総数量を変動させたい 2 2022/11/04 23:49
- Excel(エクセル) Excelシフト表 固定シフトの自動変換化 1 2022/04/14 16:10
- Visual Basic(VBA) 以前シートを集めて1シートへ繋げる下記コードをご教授いただき作成しました。 今回すでに集めてある「ま 1 2022/08/29 20:38
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) VBA : スクレイピングできない 4 2023/05/12 22:26
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
コマンドボタンやイメージにマ...
-
Access VBA でデータペーストを...
-
Excel VBA Application.caller...
-
TextBoxでEnterキーを押すと、...
-
C#でSendInputを使ったサンプル...
-
C♯初心者で、四則演算の電卓を...
-
CommandButtonのCaptionを変化...
-
プロシージャからイベントをコ...
-
VBA CommandButtonの文字ずれ
-
ボタンをマウスで押し続けたと...
-
ボタン
-
VBA マクロでの網掛けについて
-
VB 電卓 数字キーを押して...
-
C#で動的に作ったtextboxを消す。
-
VB2010 クリック数カウント
-
VBS でユーザーからいくつかの...
-
vaSpreadコントロールのボタン...
-
VBAで指定したシートの指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
セルをマクロのボタンにしたい。
-
Excel VBA Application.caller...
-
コマンドボタンやイメージにマ...
-
Access VBA でデータペーストを...
-
VBAのボタンの位置が変わって困...
-
ボタンをマウスで押し続けたと...
-
ボタン
-
C#プログラムで、ボタンをショ...
-
VBA でのボタンの移動について
-
閉じると「+」になり開くと「-...
-
ダウンロードダイアログをVB...
-
[Excel VBA]コマンドボタンの入...
-
ASP.Net ラベルの内容をすぐに...
-
プロシージャからイベントをコ...
-
CommandButtonのCaptionを変化...
おすすめ情報