職種別転職体験談
新着記事
地道にコツコツと積み上げていく仕事が多いですが、誰よりも先に情報を手に入れられる可能性があるのが魅力です。
営業職という分野にプロ意識を持つ自分としては、成功の証（インセンティブ）を頂くことが大きなモチベーションとなっています。
何とかなるだろうと未経験で挑戦した求人広告営業。経営者とお会いする機会が多く、ワクワクしながら仕事をしています。
「感謝の言葉が私達のエネルギー」困っている人には手を差し伸べ、戦う時には無になって対応する。
未経験の仕事でも日々努力し挑戦して経験に変えていけば、自分のスキルや成長にもつながる。
「もっと利益を追求したい」という一部の欲求を満たすために転職。その他の条件面を確認しなかった結果・・・。
私の手がけた広告がきっかけで転職する方がいること、そしてその転職を喜んでもらえることが何よりの喜びです。
チャレンジすることは恥ずかしいことではないことを学びました。
コードを貼り付け: モジュールに、上記のコードのいずれかをコピー＆ペーストします。
新しいモジュールを挿入: VBAエディタで、「挿入」→「標準モジュール」を選択します。
VBAエディタを開く: エクセルを開き、「開発」タブをクリックし、「Visual Basic」をクリックします。
コードの実行方法
ブックのクローズ、次のファイルの検索、メッセージボックス: 前述のコードと同様です。
貼り付け先の行の更新: pasteRow = pasteRow + 1で、貼り付け先の行を更新します。
pasteRow = pasteRow + 1
データのコピーと貼り付け: 条件を満たす場合、ws.Rows(i).Copyでその行をコピーし、wb.Sheets(""Sheet1"").Cells(pasteRow
ws.Rows(i).Copy
wb.Sheets(""Sheet1"").Cells(pasteRow
条件チェック: If ws.Cells(i
If ws.Cells(i
行のループ処理: For i = 2 To lastRowで、各行を順番に処理します（ヘッダー行を除く）。
For i = 2 To lastRow
最終行の取得: 前述のコードと同様です。
ファイルのループ処理、ブックのオープン、シートのループ処理: 前述のコードと同様です。
ブックの設定、ファイルパスの指定、ファイル検索: 前述のコードと同様です。
変数の宣言: 前述のコードと同様に必要な変数を宣言します。
コードの解説:
このコードでは、各シートの各行をチェックし、F列の値が “”a”” の行のみをコピーして貼り付けます。
End Sub
MsgBox “”データ集計が完了しました！””
Loop
fileName = Dir()
‘ 次のファイル
wbSource.Close SaveChanges:=False
‘ コピー元のブックを閉じる
Next ws
End If
Next i
‘ 貼り付け先の行を更新
wb.Sheets(“”Sheet1″”).Cells(pasteRow
‘ データをコピーして貼り付け
‘ F列の値が “”a”” の場合
For i = 2 To lastRow ‘ ヘッダー行を除く
‘ 各行をチェック
If lastRow > 1 Then ‘ ヘッダー行を除く
‘ データがある場合
lastRow = ws.Cells(Rows.Count
‘ 最終行を取得
For Each ws In wbSource.Worksheets
‘ 各シートを処理
Set wbSource = Workbooks.Open(filePath & fileName)
‘ コピー元のブックを開く
Do While fileName <> “”””
fileName = Dir(filePath & “”*.xlsx””) ‘ Excelファイルを検索
‘ コピー元のフォルダ内のすべてのファイルを処理
pasteRow = 1
‘ 貼り付け先の最初の行を設定
