本学習テーマ紹介動画
- YouTube
YouTube でお気に入りの動画や音楽を楽しみ、オリジナルのコンテンツをアップロードして友だちや家族、世界中の人たちと共有しましょう。
youtube.com
👆本学習テーマをYouTubeで紹介しています！
チャンネル登録宜しくお願いします！
効果音ラボ ナレーション 音読さん
＊基本的に, 記事投稿日翌日夜18:30頃から, 動画を閲覧できます。
本学習ツールでの問題文・解答例
問題文
以下の要件を満たすVBAのプログラムを実装して下さい。
要件
| フォルダ選択画面を表示し, ユーザーにフォルダを選んでもらい, 選択してもらったフォルダのパスを シート「書き込みシート」 の 「フォルダパス」に入力する。 |
| プログラム終了時にシート「書き込みシート」をアクティベートにして, MsgBox関数で「実行完了」と表示する。 |
解答例
Option Explicit
Sub correctAnswerExample()
Dim flPath As String
Dim writeWs As Worksheet: Set writeWs = ThisWorkbook.Worksheets("書き込みシート")
Dim flPathCell As Range: Set flPathCell = writeWs.Cells(6, 2)
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
flPath = .SelectedItems(1)
End If
End With
flPathCell.Value = flPath
writeWs.Activate
MsgBox ("実行完了")
End Sub上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい！
本学習ツールの内容
下👇の画像のように, vbaでフォルダ選択画面を表示し, ユーザーにフォルダを選んでもらうプログラムの作り方を学ぶことが出来ます！
＊2枚目の「正答シート」の画像は, 学習前に答えを知りたくない方は飛ばして見て頂くようお願い致します。
本学習テーマの格言
- フォルダ選択機能実装で, ユーザーが使いやすいプログラムを作ろう！
- フォルダ選択機能を実装できれば, フォルダパスが必要な際にユーザーがフォルダパスをコピペする必要がなくなり, 便利です！
VBA設定
尚, 本ツールには, 「VBA」（Excelのプログラミング言語）が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。
ダウンロード
ぜひ, 勉強にご活用下さい！（xlsmファイル）👇
コメント