Excel VBAなんですけど…

質問

ワークシートにコマンドボタンを配置して、ユーザーフォームを呼ぶという、簡単なことを忘れてしまいました。どなたか教えてください。お願いします。

回答No.3

nishi6 · ベストアンサー

私もkirara_pikaさんと同じ方法でやっています。コントロールツールボックスのボタンしか使いませんが。

UserForm1.Show の後に『Rangeメソッドは失敗しました』が出るのなら、ユーザーフォームは呼べているはずです。
Initializeのコードや内部のコードに不具合がないでしょうか。シート名を指定しないでRangeを使っている可能性もあります。

また、Excelのバージョンが分かりませんが
　コマンドボタンのTakeFocusOnClickプロパティを False にする。または、
　コードの最初で ActiveCell.Activate 等を実行してワークシートをアクティブにする
ことで状況が変わるかもしれません。

お礼

>>"Initializeのコードや内部のコードに不具合がないでしょうか"

全くそのとおりでした。Rangeの名前をExcel側で変えていたにもかかわらず、VBAでも変えるのを忘れていました。ありがとうございました。

回答No.2

imogasi

Module1の部分はマクロの記録から得ました。
Ｍｏｄｕｌｅ１に
Worksheets("sheet1").OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=225, Top:=20.25, Width:=54, Height:= 29.25).Select
---------
Ｓｈｅｅｔ１のClick Ｅｖｅｎｔ　Ｐｒｏｃｅｄｕｒｅに
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

回答No.1

kirara_pika

１．Visual Basicのツールバーを表示しておきます。
２．Visual Basic Editorで別にユーザーフォームを作成しておきます。（フォーム名をUserForm1とします。）
３．コントロールツールボックスからコマンドボタンを選択して配置したいところにボタンを配置します。
（ボタンの名前をCommandButton1とします。）
４．配置したボタンをダブルクリックします。
（Private Sub CommandButton1_Click() ～End Subとなってると思います。)
５．Private Sub ～　から　End Subの間にコードを記述します。
（例）
Private Sub CommandButton1_Click()
　UserForm1.Show
End Sub

補足

それがなぜだか"Rangeメソッドは失敗しました"と出るんです。フォームのボタンを使っても同じで、cmdBttnからSubルーティンを呼んで、そこからユーザーフォームを呼んでも、だめみたいなんです。どうすれば良いんでしょう?

ps　UserFormを呼ぶ時って、最初にLoad ufしてから、uf.showじゃないんでしたっけ?