職種別転職体験談
新着記事
地道にコツコツと積み上げていく仕事が多いですが、誰よりも先に情報を手に入れられる可能性があるのが魅力です。
営業職という分野にプロ意識を持つ自分としては、成功の証（インセンティブ）を頂くことが大きなモチベーションとなっています。
何とかなるだろうと未経験で挑戦した求人広告営業。経営者とお会いする機会が多く、ワクワクしながら仕事をしています。
「感謝の言葉が私達のエネルギー」困っている人には手を差し伸べ、戦う時には無になって対応する。
未経験の仕事でも日々努力し挑戦して経験に変えていけば、自分のスキルや成長にもつながる。
「もっと利益を追求したい」という一部の欲求を満たすために転職。その他の条件面を確認しなかった結果・・・。
私の手がけた広告がきっかけで転職する方がいること、そしてその転職を喜んでもらえることが何よりの喜びです。
チャレンジすることは恥ずかしいことではないことを学びました。
5.3 既存ファイルのコピー
ファイル名を、日付や連番など、より詳細な情報に基づいて自動生成することができます。例えば、bookName = ws.Cells(i
bookName = ws.Cells(i
5.2 ファイル名のカスタマイズ
FileFormat:=xlOpenXMLWorkbookの部分を、FileFormat:=xlOpenXMLWorkbookMacroEnabledに変更することで、マクロ有効ブック(.xlsm)として保存できます。これにより、マクロを含むファイルを保存することができます。
FileFormat:=xlOpenXMLWorkbook
FileFormat:=xlOpenXMLWorkbookMacroEnabled
5.1 ファイル形式の指定
さらに、このVBAコードを応用することで、より高度な業務効率化を実現できます。
5. 応用的なテクニック
4.3 プロジェクト管理
プロジェクトごとにフォルダを作成し、プロジェクトに関連するファイルを保存することで、プロジェクトの進捗管理が容易になります。A列にプロジェクト名、B列にプロジェクト関連のファイル名を入力したエクセルシートを作成し、このVBAコードを実行することで、プロジェクトごとのフォルダが自動的に作成され、関連ファイルが保存されます。
顧客ごとにフォルダを作成し、顧客に関する情報をまとめたファイルを保存することで、顧客情報の管理が効率化されます。A列に顧客名、B列に顧客関連のファイル名を入力したエクセルシートを作成し、このVBAコードを実行することで、顧客ごとのフォルダが自動的に作成され、関連ファイルが保存されます。
4.2 顧客管理
営業部ごとにフォルダを作成し、各営業担当者の資料をそのフォルダ内に保存することで、資料の整理と検索が容易になります。例えば、A列に部署名、B列に担当者名、C列に資料名を入力したエクセルシートを作成し、このVBAコードを実行することで、自動的にフォルダとファイルが作成されます。
4.1 営業資料の整理
このVBAコードは、様々な業務シーンで活用できます。以下に具体的な活用例をいくつか紹介します。
4. 実践的な活用例
より堅牢なコードにするためには、エラー処理を追加することをお勧めします。例えば、フォルダの作成に失敗した場合や、ファイルの保存に失敗した場合に、エラーメッセージを表示するようにすることができます。
3.4 エラー処理
新規作成したブックにデータを入力したい場合は、' 新規ブックにデータを入力（必要に応じて）のコメントの下に、必要なコードを追加してください。例えば、特定のセルに値を入力する場合は、newBook.Sheets(1).Cells(1
' 新規ブックにデータを入力（必要に応じて）
newBook.Sheets(1).Cells(1
3.3 ブックへのデータ入力
A列とB列にデータが格納されている範囲が、コードの想定と異なる場合は、lastRowの取得方法や、Cells(i
lastRow
Cells(i
3.2 データの範囲
コード内のSet ws = ThisWorkbook.Sheets(""Sheet1"")の””Sheet1″”を、実際に使用しているシートの名前に変更してください。
Set ws = ThisWorkbook.Sheets(""Sheet1"")
3.1 シート名の変更
このコードを実際に使用する際には、以下の点に注意してカスタマイズしてください。
3. コードの適用とカスタマイズ
処理が完了したことをユーザーに知らせるメッセージボックスを表示します。
MsgBox ""処理が完了しました。""
2.5 メッセージボックス
newBook.Close SaveChanges:=False: 新規ブックを閉じます。変更を保存しない場合は、SaveChanges:=Falseを指定します。
newBook.Close SaveChanges:=False
SaveChanges:=False
newBook.SaveAs folderPath & """" & bookName
Set newBook = Workbooks.Add: 新しいブックを作成します。
Set newBook = Workbooks.Add
If Dir(folderPath
folderPath = ThisWorkbook.Path & """" & department: フォルダのパスを作成します。ThisWorkbook.Pathは、現在のブックが保存されているフォルダのパスを返します。
folderPath = ThisWorkbook.Path & """" & department
ThisWorkbook.Path
department = ws.Cells(i
2行目から最終行までループ処理を行います。1行目はヘッダー行と仮定しています。
For i = 2 To lastRow
2.4 ループ処理
この行は、A列に入力されているデータの最終行を取得します。これにより、データの行数に応じてループ処理を行うことができます。
lastRow = ws.Cells(Rows.Count
2.3 最終行の取得
この行では、処理対象のシートを設定します。シート名(“”Sheet1″”)は、実際のシート名に合わせて変更してください。
2.2 シートの設定
newBook As Workbook: 新規作成するブックを表す変数。
newBook As Workbook
bookName As String: ブック名（ファイル名）を格納する変数。
bookName As String
department As String: 部署名（フォルダ名）を格納する変数。
department As String
fileName As String: 保存するファイル名を格納する変数。
fileName As String
folderPath As String: フォルダのパスを格納する変数。
folderPath As String
i As Long: ループ処理で使用するカウンター変数。
i As Long
