【EXCEL VBA】フォルダを選択するダイアログボックスを表示するには?

訪問して頂きありがとうございます。まさふくろーです。

今回は、フォルダを選択するダイアログボックスを表示する方法をご紹介します。

フォルダを選択するダイアログボックスを表示する

作成手順

「開発」タブの確認

リボンに「開発」タブが表示されているかの確認をします。

 

 

「開発」タブが表示されていない場合は、「開発タブの表示」をご覧ください。

ボタンの作成

①「開発」タブをクリック⇒②「挿入」をクリック⇒③「ボタン」をクリックします。

 

 

シート上にカーソルを移動すると、ポインターが「+」の状態になります。

 

 

左クリックを押したまま、緑の矢印の方向にズルズルっとカーソルを移動します。

 

 

「マクロの登録」画面が表示されます。

 

 

①「マクロ名」を変更⇒②「新規作成」ボタンをクリックします。

 

 

MEMO
マクロ名は、どんな名前にしても問題ありませんが、処理と関係ある名前にしたほうが、コードを見る際にわかりやすくなります。

自動的にVBE(Visual Basic Editor)が起動します。

 

VBAコードの入力

VBE(Visual Basic Editor)のピンク枠の部分に、VBAコードを入力していきます。

 

 

入力するコードは以下になります。

ボタンの名前を変更する

エクセルのブックに戻り、ボタンの上にフォーカスを当てます。すると、ポインターが「」マークに切り替わります。

 

 

右クリックでショートカットメニューを表示し、「テキストの編集」を選択します。

 

 

ボタンの名前を変更します。

 

VBAコードの保存

「ファイル」タブをクリックします。

 

 

「名前を付けて保存」を選択し、ファイル保存画面を起動します。

 

 

①ファイル名を入力⇒②「Excel マクロ有効ブック(*.xlsm)」を選択⇒③「保存」ボタンをクリックします。

 

解説

Withステートメント

構文 With オブジェクト
 .オブジェクトに対する処理
 .オブジェクトに対する処理
End With
解説 「Withオブジェクト」から「End With」までの間は、Withオブジェクトで指定したオブジェクトの記述を省略できる。
「オブジェクトに対する処理」を記述するときは、「.プロパティ=設定値」「.メソッド」のように「.」(ピリオド)に続けてオブジェクトに対する処理を記述する。

セルA2~D2について、以下の処理を実行する。
1.フォントサイズを12ポイントにする。
2.太字にする。
3.左右中央にする。
4.Withステートメントを終了する。

Withステートメントを使用する場合
With Range("A2:D2")

   .Font.Size = 12
   .Font.Bold = True
   .HorizontalAlignment = xlCenter

End With

Withステートメントを使用しない場合
Range("A2:D2").Font.Size = 12
Range("A2:D2").Font.Bold = True
Range("A2:D2").HorizontalAlignment = xlCenter
Withステートメントを使用しなくても問題ありませんが、なるべく同じことを書かないようにするためにも、Withステートメントを使用することをおすすめします。

FileDialogオブジェクト

構文 Application.FileDialog(FileDialogType)
解説 ダイアログ画面を表すFileDialogオブジェクトを取得する。
引数

FileDialogType:ダイアログ画面の種類を指定する。

設定値 内容
msoFileDialogFolderPicker フォルダを選択する
msoFileDialogFilePicker ファイルを選択する
msoFileDialogOpen ファイルを開く
msoFileDialogSaveAs ファイルを保存する

Showメソッド

構文 FileDialog.Show
解説 ダイアログ画面を表示し、画面でクリックしたボタンに対応する戻り値を取得する。
「開く」ボタンまたは「保存」ボタンをクリックすると-1(True)、「キャンセル」ボタンをクリックすると0(False)が返る。

SelectedItemsプロパティ

構文 SelectedItems(Index)
引数 Index:1からはじまり2、3・・・と設定する。
解説 選択したファイルのパスを取得する。
Indexに1を指定すると1つ目のファイルのパス、2を指定すると2つ目のファイルのパスとなります。

最後まで読んでいただき、ありがとうございました!