職種別転職体験談
新着記事
地道にコツコツと積み上げていく仕事が多いですが、誰よりも先に情報を手に入れられる可能性があるのが魅力です。
営業職という分野にプロ意識を持つ自分としては、成功の証（インセンティブ）を頂くことが大きなモチベーションとなっています。
何とかなるだろうと未経験で挑戦した求人広告営業。経営者とお会いする機会が多く、ワクワクしながら仕事をしています。
「感謝の言葉が私達のエネルギー」困っている人には手を差し伸べ、戦う時には無になって対応する。
未経験の仕事でも日々努力し挑戦して経験に変えていけば、自分のスキルや成長にもつながる。
「もっと利益を追求したい」という一部の欲求を満たすために転職。その他の条件面を確認しなかった結果・・・。
私の手がけた広告がきっかけで転職する方がいること、そしてその転職を喜んでもらえることが何よりの喜びです。
チャレンジすることは恥ずかしいことではないことを学びました。
‘ フォルダが存在しない場合は作成
保存パス = 保存フォルダ & ファイル名
‘ 保存パスを設定
保存フォルダ = “”C:Usersユーザー名Documents得意先ファイル”” ‘ 実際のフォルダパスに修正
‘ 保存フォルダを指定
ファイル名 = 得意先コード & “”_”” & 得意先名 & “”.xlsx””
‘ ファイル名を生成
得意先名 = ThisWorkbook.Sheets(“”Sheet1″”).Range(“”C1″”).Value
‘ セルC1の値を取得
得意先コード = ThisWorkbook.Sheets(“”Sheet1″”).Range(“”B1″”).Value
‘ セルB1の値を取得
Dim 保存フォルダ As String
Dim 保存パス As String
Dim ファイル名 As String
Dim 得意先名 As String
Dim 得意先コード As String
Sub ファイル名を自動生成して保存()
上記のコードでは、ファイルをデスクトップに保存するように設定されていますが、保存場所を自由に指定することも可能です。例えば、特定のフォルダに保存する場合は、以下のようにコードを修正します。
応用編：ファイル保存場所の指定
Excelに戻り、「表示」タブの「マクロ」→「マクロの表示」を選択します。先ほど作成したマクロ「ファイル名を自動生成して保存」を選択し、「実行」ボタンをクリックします。これにより、ファイルが自動的に生成され、デスクトップに保存されます。
ステップ5: マクロを実行する
MsgBox “”ファイルが保存されました: “” & 保存パス
ThisWorkbook.SaveAs Filename:=保存パス
‘ ファイルを保存
保存パス = Environ(“”USERPROFILE””) & “”Desktop”” & ファイル名
‘ 保存パスを設定（デスクトップ）
得意先名 = ThisWorkbook.Sheets(“”顧客データ””).Range(“”C2″”).Value
‘ セルC2の値を取得
得意先コード = ThisWorkbook.Sheets(“”顧客データ””).Range(“”B2″”).Value
‘ セルB2の値を取得
上記のコードでは、シート名が「Sheet1」、得意先コードのセルがB1、得意先名のセルがC1となっています。実際のシート名やセル番地に合わせて、コードを修正してください。例えば、シート名が「顧客データ」で、得意先コードがB2、得意先名がC2の場合は、以下のように修正します。
ステップ4: コードの修正（シート名、セル番地）
MsgBox ""ファイルが保存されました: "" & 保存パス: 保存完了メッセージを表示します。
MsgBox ""ファイルが保存されました: "" & 保存パス
保存パス = Environ(""USERPROFILE"") & ""Desktop"" & ファイル名: デスクトップのパスを取得し、ファイル名と組み合わせて保存パスを生成します。
保存パス = Environ(""USERPROFILE"") & ""Desktop"" & ファイル名
ファイル名 = 得意先コード & ""_"" & 得意先名 & "".xlsx"": 得意先コードと得意先名を「_」で連結し、””.xlsx””を付加してファイル名を生成します。
ファイル名 = 得意先コード & ""_"" & 得意先名 & "".xlsx""
得意先名 = ThisWorkbook.Sheets(""Sheet1"").Range(""C1"").Value: シート1のセルC1の値を「得意先名」変数に代入します。
得意先名 = ThisWorkbook.Sheets(""Sheet1"").Range(""C1"").Value
得意先コード = ThisWorkbook.Sheets(""Sheet1"").Range(""B1"").Value: シート1のセルB1の値を「得意先コード」変数に代入します。
得意先コード = ThisWorkbook.Sheets(""Sheet1"").Range(""B1"").Value
Dim: 変数を宣言します。
Dim
Sub ファイル名を自動生成して保存(): マクロの開始を宣言します。
Excel VBAでファイル名を自動生成！業務効率化とキャリアアップを目指そう
