こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

窓からファイルを開くときフォームも表示したい

Excel365solo,windows10を使っています。VBA超初心者です。
現在以下のコードで作業しています。
マクロ記述ブックAに、ユーザーフォームBをつくりコマンドボタンCを設置しました。
Private Sub 基礎データCボタン_Click()
Unload Me
Workbooks.Open Filename:=ThisWorkbook.Path & "\2年度\計算5月.xlsm"
 ’このブックが開いた時に、自動で開いた複数のコマンドボタンDで処理
End Sub

これを窓から選んでブックを選ぶ方式にしたいです。
Private Sub testボタン_Click()
Dim OpenFileName As String
ChDir Application.ThisWorkbook.Path & "\2年度"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xlsm")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If
End Sub

でも、ブック\2年度\計算5月.xlsmは開きますが、ブックが開いた時「複数のコマンドボタンD」が表示されず困っています。これを表示させるようにしたいです。ご教示よろしくお願いします

投稿日時 - 2020-05-26 12:32:46

QNo.9753305

すぐに回答ほしいです

質問者が選んだベストアンサー

UF.show
を最後にもってくればいかがですか。

投稿日時 - 2020-05-26 16:02:00

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

名前を指定してブックを開く
http://officetanaka.net/excel/vba/file/file02.htm

> 「複数のコマンドボタンD」が表示されず困っています

どこにあるボタンですか。フォームなら
Private Sub Workbook_Open()
UserForm1.Show
End Sub
とかに

投稿日時 - 2020-05-26 13:25:06

補足

すみません。自分で付け加え、再度次のコードでやったら表示されました。
Private Sub testボタン_Click()
Unload me
Dim OpenFileName As String
ChDir Application.ThisWorkbook.Path & "\2年度"
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xlsm")
UF.show
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If
ただ、そのUFというユーザーフォームがシートの裏に隠れていたので、表示されないと誤認してしまいました。それでこのユーザーフォームが後ろでなく、シートの前面に表示したいです。もうしわけありません。よろしくご指導お願いします。

End Sub

投稿日時 - 2020-05-26 15:06:25

あなたにオススメの質問