職種別転職体験談
新着記事
地道にコツコツと積み上げていく仕事が多いですが、誰よりも先に情報を手に入れられる可能性があるのが魅力です。
営業職という分野にプロ意識を持つ自分としては、成功の証（インセンティブ）を頂くことが大きなモチベーションとなっています。
何とかなるだろうと未経験で挑戦した求人広告営業。経営者とお会いする機会が多く、ワクワクしながら仕事をしています。
「感謝の言葉が私達のエネルギー」困っている人には手を差し伸べ、戦う時には無になって対応する。
未経験の仕事でも日々努力し挑戦して経験に変えていけば、自分のスキルや成長にもつながる。
「もっと利益を追求したい」という一部の欲求を満たすために転職。その他の条件面を確認しなかった結果・・・。
私の手がけた広告がきっかけで転職する方がいること、そしてその転職を喜んでもらえることが何よりの喜びです。
チャレンジすることは恥ずかしいことではないことを学びました。
保存パス = 保存フォルダ & ファイル名
‘ 保存パスを設定
ファイル名 = 得意先コード & “”_”” & 得意先名 & “”.xlsx””
‘ ファイル名を生成
得意先名 = ws.Range(“”C1″”).Value
‘ セルC1の値を取得（シートごとに修正が必要な場合あり）
得意先コード = ws.Range(“”B1″”).Value
‘ セルB1の値を取得（シートごとに修正が必要な場合あり）
End If
GoTo NextSheet
If ws.Name = “”Sheet1″” Then
‘ シート名が「Sheet1」の場合はスキップ
For Each ws In ThisWorkbook.Sheets
‘ 各シートをループ処理
MkDir 保存フォルダ
If Dir(保存フォルダ
‘ フォルダが存在しない場合は作成
保存フォルダ = “”C:Usersユーザー名Documents得意先ファイル”” ‘ 実際のフォルダパスに修正
‘ 保存フォルダを指定
Dim 保存フォルダ As String
Dim 保存パス As String
Dim ファイル名 As String
Dim 得意先名 As String
Dim 得意先コード As String
Dim ws As Worksheet
Sub 複数シートをファイル名で保存()
複数のシートを個別のファイルとして保存したい場合、For Eachループを使って各シートを処理することができます。以下に、各シートを個別のファイルとして保存するコードの例を示します。
応用編：複数ファイルの自動保存
保存フォルダ = ""C:Usersユーザー名Documents得意先ファイル"": 保存先のフォルダパスを指定します。実際のフォルダパスに書き換えてください。
保存フォルダ = ""C:Usersユーザー名Documents得意先ファイル""
変更点:
MsgBox “”ファイルが保存されました: “” & 保存パス
ThisWorkbook.SaveAs Filename:=保存パス
‘ ファイルを保存
得意先名 = ThisWorkbook.Sheets(“”Sheet1″”).Range(“”C1″”).Value
‘ セルC1の値を取得
得意先コード = ThisWorkbook.Sheets(“”Sheet1″”).Range(“”B1″”).Value
‘ セルB1の値を取得
