エクセルのVBAで作成したフォームから、シートの選択をしたいのですが

Question

Anonymous

エクセルのVBAで作成したフォームにコマンドボタンを配置しました。このボタンをクリックすると、シートを選択するプログラムは、どのように書けば良いのでしょうか。例えば、コマンドボタンをクリックして、sheets1を選択して、アクチブシートにすることです。

フォームに、以下の記術をしても、選択できません。そして、プログラムが終了しません。

Private Sub CommandButton1_Click()

Worksheets("sheets1").Visible = True

Worksheets("sheets1").Select

Range("D4").Select

End Sub

なを、このプログラムを記述したファームは、モーダルをfalseに設定しています。

また、sheets2に、コマンドボタンを配置して、このプログラムを記述すると、

sheet1は、選択されます。

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

質問作成者が受け入れた回答

1 件の追加の回答

Answer 1

コマンドボタンはどこに配置されたんでしょうか？(ユーザーフォームに配置と思いますが念のため）

提示のコードでもちゃんとアクティブになります。

また、終わらないと書かれていますが、どういう意味でしょうか？

モードレスになっていますので、コマンドボタンを押してもユーザーフォームが消えないのは正常な動きです。

提示されたコードでちょっと気になるところを指摘させていただくと、

１．シート名がSheets1　になってますが、Sheet1ではないのか？

２．Range("D4").Select　はActiveSheetが対象になっていますので、この場合は問題ないのですが、きちんとワークシートから指定すべきです。

３．シートが非表示に変えていなければ、Visibleにする必要はありません。

４．ワークシートはSelectではなく　Activateの方が感覚的に馴染むと思います。

次のように試してみてください。

１．新規ブックでユーザーフォームを一つ入れ、そこにコマンドボタンを一つ配置

２．ユーザーフォームのコードに

Private Sub CommandButton1_Click()

With Worksheets("sheet1")

.Visible = True

.Activate

.Range("D4").Select

End With

End Sub

３．標準モジュールに

Sub main()

UserForm1.Show (False)

End Sub

として、mainを実行

Answer 2

y sakuda さん、いつもアドバイスありがとうございます。

小田昭さん、こんにちは。

マイクロソフトコミュニティをご利用いただきありがとうございます。

同様の質問でこちらのスレッドを見られた方にも参考となるよう [ 回答としてマーク ] をさせていただきました。

また何かありましたらマイクロソフトコミュニティをご利用ください。