フォームとコントロールツールボックスの違い

コマンドボタンでＶＢＡのプログラムを実行させたいんですがフォームとコントロールツールボックスにあるコマンドボタンの違いがよくわかりません？？？？
どうやって使い分ければいいんでしょーか？？？

No.5 ベストアンサー 回答者： noname#102878 回答日時： 2002/08/07 02:41

#4です。

不具合の件ですが、Excel97ではシートに貼り付けたActiveXコマンドボタンを押した瞬間にアクティブセルを見失ってしまうんです。
Private Sub CommandButton1_Click()
Dim r As Long
r = Range("A1").CurrentRegion.Rows.Count
End Sub
これ、エラーになっちゃいます。
いやーこれにははまりました。
ボタンを押した瞬間にフォーカスがボタンに移ってしまい、アクティブセルがない状態、すなわち「どのセルも選択されていない状態」になってしまう。
なので、
Private Sub CommandButton1_Click()
Dim r As Long
ActiveCell.Activate
r = Range("A1").CurrentRegion.Rows.Count
End Sub
なんていうヘンなコードを書く必要があります。
Excel2000からは解消された不具合みたいですけどね。

まぁ最近は目立った不具合にぶち当たっていませんが、Public Subプロシージャを実行するだけなら、それこそオートシェイプでも良いわけで、フォームのコマンドボタンは使いますが、ActiveXコマンドボタンは使っていません。


ツールバーの件。自動的に開業された部分は直してください。ThisWorkbookのコードモジュールに記述します。

Private Sub Workbook_Open()
Dim myCmdBar As CommandBar
Dim myCtrl As CommandBarButton

' ツールバーを作成
Set myCmdBar = Application.CommandBars.Add(Name:="Hoge", Temporary:=True)
With myCmdBar
.Visible = True
.Position = msoBarTop
End With

' 読み込みボタン
Set myCtrl = myCmdBar.Controls.Add(Type:=msoControlButton)
With myCtrl
.Caption = "読み込み"
.Style = msoButtonCaption
.OnAction = "ReadDataFile"
End With

' 仕訳ボタン
Set myCtrl = myCmdBar.Controls.Add(Type:=msoControlButton)
With myCtrl
.Caption = "データ仕訳"
.Style = msoButtonCaption
.OnAction = "JournalizeData"
End With

Set myCtrl = Nothing
Set myCmdBar = Nothing
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
' マクロブック終了時にツールバーを削除する
On Error Resume Next
Application.CommandBars("Hoge").Delete
End Sub


Private Sub Workbook_Activate()
' マクロブックがアクティブならツールバーは有効
On Error Resume Next
Application.CommandBars("Hoge").Enabled = True
End Sub


Private Sub Workbook_Deactivate()
' 他のブックがアクティブならツールバーは無効
On Error Resume Next
Application.CommandBars("Hoge").Enabled = False
End Sub

このブックが開かれると同時に独自のツールバーを作成し、コマンドボタンを２つ作成します。
ボタンのOnActionプロパティにはクリック時に実行させたいPublic Subプロシージャの名前を記入します。
Excel上で手作業でツールバーを作成するとそのツールバーは次回Excel起動時にも残っていますが、 Temporary:=True とすることでツールバーがExcelに記録されず、Excel終了時に自動的に削除されます。
まぁこの例ではブック終了時に明示的にツールバーを削除していますが、これは同時に別の目的で別のブックを開いていた場合の対処です。マクロのブックを閉じてもツールバーだけ残ってしまうのを防ぐためです。
それと、マクロのブックがアクティブになった時と他のブックがアクティブになった時にツールバーの有効・無効をコントロールしています。

この回答へのお礼

うぉぉぉぉぉぉぉーーーーーっ！！！
私は今、言葉では言い尽くせないほど感激しています！！
たいへんすばらしいぃ！！！
どーーもありがとうございますっ！！！
うぉぉぉぉぉぉぉーーーーーっ！！！
感動です！！感激です！！感謝です！！

お礼日時：2002/08/08 15:52

No.4 回答者： noname#102878 回答日時： 2002/08/06 00:21

フォームのコントロールは旧来のコントロールです。

ツールボックスのコントロールはActiveXコントロールです。

フォームのコントロールにはコードを記述できません。
ですのでイベント処理を記述することができません。
多少のプロパティしかありません。
マクロ（Public Subプロシージャ）を呼び出すことぐらいしかできません。（一部のコントロールは自身が持つ機能の範囲で特殊な動作をしますが）

ツールボックスのコントロールはイベント処理を記述できます。
イベント処理を記述できるということはイベント内で完結する処理を記述することもできますし、「Public Sub」を呼び出す以外にも、Public Functionや、同じモジュール内のSubやFunction、他のユーザーフォームなどを呼ぶこともできます。
各種プロパティを設定できます。


私の使い分けですが、シート上に必要なコントロールの種類とその機能によって全体をセットで使い分けています。
単にPublic Subを呼び出すだけならフォームのコントロールを置いて「マクロの登録」でPublic Subを指定します。

応用として、ExcelのShapeオブジェクト(オートシェイプ)もマクロの登録ができますから、ボタンのように「押したよ」という視覚的な効果が必要じゃない場合はオートシェイプで華やかにすることもできます。

コンボボックスの内容を動的に変える必要があれば、その他のコントロールもActiveXコントロールを使用します。

ただし私の場合はシート上にActiveXコントロールを置くのは不具合の原因になったりすることもあり、あまり好きではありません。
最近はなるべくBook起動時にToolBarをテンポラリで作成し、そこに必要なコントロールを配置するようにしています。

この回答への補足

ご回答ありがとうございますっ！！！
シート上にActiveXコントロールを置くとどんな不具合になるんですか？
ということはなるべくフォームのボタンを使ったほうがよいのでしょーか？？
？？？？？
ToolBarをテンポラリで作成しコントロールを配置するのはどのようにすればよいのでしょーか？？
？？？？？？
よろしくおねがいしますうっ！！

補足日時：2002/08/06 08:23

No.3 回答者： imogasi 回答日時： 2002/08/05 21:30

私も貴殿の質問に近いことをずっと疑問に思っていました。

聞く人もなく、説明した本にも出会わず、今日もTextBoxＸのＸの相対化の質問が載り、色々やっていて頭から離れません。
実はＶＢＡなどの本の最初の辺りに、オブジェクトの体系図（
四角で囲んだオブジェクトから四角で囲んだサブオブジェクト
がぶら下っている図）が載っています。ほとんど詳しく述べられず、初心者には載っているだけのようですが、意外に重要なことを物語っているのではないかと思っています。コントロールも２箇所以上にぶら下っているところがあると思います。
エクセルのシステムプログラムに、コントロールを定義するプログラム（＝オブジェクト。オブジェクトとプロパティとメソッドのセット）が２つ以上あって、少しそれらの間で差があるのだと思います。どちらを呼び出すのかは、どのツールバーをクリックして呼び出すかの操作と直結していると思いますが、どれがどれを呼ぶのか説明した
本をみたことはありません。
またＥｘｃｅｌ５．０－＞Ｅｘｃｅｌ９５－＞Ｅｘｃｅｌ９７
－＞Ｅｘｃｅｌ２０００－＞Ｅｘｃｅｌ２００２と改訂されていますが、その都度一部ですが、オブジェクトの体系図の構成が変更になったり、追加は勿論、移し変えもあるようです。
すなわちエクセルのシステムプログラムが構成を変えているのでしょう。
従来のアプリ・プログラムはそのまま動くようにマイクロソフトは考えるので、従来分も残されていることが多いでしょう。それで複雑になっているのだと思います。
最後に私は、確信は持てませんが
（１）ＡｃｔｉｖｅＸコントロール（ＷＥＢがらみ）
（２）ＯＬＥコントロール
（３）Ｓｈａｐｅｓ
の３つがあるのではと思っています。どなたか批判して教えて下されば幸いです。
またコントロールを貼りつける（埋め込む）ことが出来る「台紙」に当たるものは、ＷｏｒｋｓｈｅｅｔsやＣｈａｒｔｓやＦｏｒｍｓなどがあり、「コンテナ」と言うのではないかと思います。そしてラベルの中にはボタンを貼りつけられませんが、その点ではフォームなどは特別なオブジェクトなわけです。
Ｅｘｃｅｌ５．０にはＭｏｄｕｌｅというＷｏｒｋＳｈｅｅｔ
と同列のものがあり、Ｄｉａｌｏｇ１などにコントロールを載せていました。それは９５でＶＢＥ画面が出来るとＳｈｅｅｔとＦｏｒｍに移行したようです。
下記はすべて動きます。同じＳｈｅｅｔ１上のＴｅｘｔＢｏｘ１に対してです。なぜこんなに違うのか判りません。
Sub text04()
Dim sh As Worksheet
Set sh = Worksheets("sheet1")
MsgBox Worksheets("sheet1").TextBox1.Name
MsgBox sh.TextBox1.Name
End Sub
Sub test05()
MsgBox Worksheets("sheet1").Shapes("TextBox1").Name
End Sub
Sub test06()
MsgBox Worksheets("sheet1").OLEObjects("textbox1").Name
MsgBox Worksheets("sheet1").OLEObjects("textbox1").Top
End Sub
Sub text03()
For i = 1 To 2
tb = "TextBox" & i
MsgBox Worksheets("sheet1").DrawingObjects(tb).Left
MsgBox Worksheets("sheet1").DrawingObjects(tb).Name
MsgBox Worksheets("sheet1").DrawingObjects(tb).Index
Next i
End Sub
●ある本の記述を今偶然見つけました。「フォームツールバーの部品はＥｘｃｅｌ９５以前のバージョンで作成したワークシートとの互換を保つために用意されたもので、通常は使用しません。」Ｘ－Ｍｅｄｉａ社ＳｕｐｅｒＭａｓｔｅｒ。Ｅｘｃｅｌ２０００／２００２ＶＢＡ。Ｐ１３。

No.2 回答者： nishi6 回答日時： 2002/08/05 19:05

下にも書いてありますが、

　１．コードの記述場所
　２．イベントへの対応
　３．シート以外の貼り付け先
　４．プロパティやメソッド
が違いでしょうか。

個人的にはほとんどコントロールツールボックスのコントロールしか使いません。
状況によって、フォームツールバーのボタンなどを使います。（理由としては、コードが簡単に書けることがあります）

次に詳しく説明されています。

VBA入門者の”どっち？”・・・フォームツールバー or コントロールツールボックス（１）
http://www.moug.net/cgi-bin/technic.cgi?exvba+TI …

VBA入門者の”どっち？”・・・フォームツールバー or コントロールツールボックス（２）
http://www.moug.net/cgi-bin/technic.cgi?exvba+TI …

No.1 回答者： mayumayukko 回答日時： 2002/08/05 18:52

素人考えで申し訳ありませんが、

(1)フォームの場合はエクセルに依存したものだと思います。昔Ｅｘｃｅｌ９５などＶＢＡがなかったころはエクセル上で動作していたからです。
(2)コントロールツールボックスの場合はＶＢＡに依存したものだと思います。ＶＢＡなのでいろんな設定ができる点が魅力だと思います。

複雑な処理をさせたいときはコントロールツールボックスより使用した方がいいと思います。

後はプロの方にお任せします。