当サイトはアフィリエイト広告を利用しています

VBA学習ツール無料配布!#18 テーマ:vbaでファイル選択

VBA学習ツール-テーマ:vbaでファイル選択 VBA学習
VBA学習ツール-テーマ:vbaでファイル選択

当サイト作成者が業務自動化!

freelance_profile_smartphone

お客様評価★5当サービスの「強み」3選

  1. 経験豊富!現役エンジニアが担当!
    • 販売実績37件!
    • 幅広い技術力!
      • VBA(Excel)
      • GAS(スプレッドシート)
      • Python
  2. 格安!
    • 価格2万円~
  3. 親切・丁寧なご要望・質問対応!

本学習テーマ紹介動画

VBAプログラマーなら分かるはず?![無料配布]VBA学習ツール テーマ:vbaでファイル選択 #ひまえくせる #Excelプログラム #excel #shorts #vba学習
本ツールのダウンロードはこちらのページから👇本ツールの他にも, Excelツール, 無料配布中!こちらのサイトから, ぜひ, ご利用下さい!👇コメント, ど...

👆本学習テーマを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(msoFileDialogFilePicker)
        If .Show = True Then
            flPath = .SelectedItems(1)
        End If
    End With
    flPathCell.Value = flPath
    writeWs.Activate
    MsgBox ("実行完了")
End Sub

上のプログラムが実際に動く様子は, 下の学習ツールをダウンロードして, 確認してみて下さい

本学習ツールの内容

下👇の画像のように, vbaでファイル選択画面を表示し, ユーザーにファイルを選んでもらうプログラムの作り方を学ぶことが出来ます!

*2枚目の「正答シート」の画像は, 学習前に答えを知りたくない方は飛ばして見て頂くようお願い致します。

VBA学習ツール-テーマ:vbaでファイル選択の問題文&解答シート
VBA学習ツール-テーマ:vbaでファイル選択の問題文&解答シート
VBA学習ツール-テーマ:vbaでファイル選択の正答シート
VBA学習ツール-テーマ:vbaでファイル選択の正答シート
VBA学習ツール-テーマ:vbaでファイル選択の書き込みシート
VBA学習ツール-テーマ:vbaでファイル選択の書き込みシート

本学習テーマの格言

  • ファイル選択機能実装で, ユーザーが使いやすいプログラムを作ろう!
    • ファイル選択機能を実装できれば, ファイルパスが必要な際にユーザーがファイルパスをコピペする必要がなくなり, 便利です!

VBA設定

尚, 本ツールには, 「VBA」(Excelのプログラミング言語)が組み込まれている為, 以下のマニュアルに従った設定・エラー時の対処が必要となります。

ダウンロード

ぜひ, 勉強にご活用下さい!(xlsmファイル)👇

コメント

タイトルとURLをコピーしました