エクセルマクロについて

Question

エクセルのマクロについて教えて下さい。

エクセルマクロ（VBA）初心者です。

今回、勤怠管理の自動化をしたいと思っています。
現在ファイルAのデータをファイルBに転記する作業を手動で行っています。
詳細は添付画像をご覧ください。

これをマクロでやろうと思っているのですが、
1 ファイルAのD列の日付をファイルBのA列から探す。
2 日付があった場合（例えば4日）、ファイルAの4日のE列、F列のデータを
ファイルBのD列、E列に転記

という動きにしようと考えているのですが、そもそもこの動きはマクロで可能でしょうか？
可能な場合、記述の仕方を教えて頂けると幸いです（ざっくりでも結構です）

もし、もっといいやり方があれば教えて下さい。

宜しくお願いします。

Comments

[m.ts10806]

>BVA
タグにある通り「VBA」です。調整願います。
またこのタイトルでは要件が分かりません。もう少し具体的に要件を記載してください

[meg_]

そもそもこの動きはマクロで可能でしょうか？　→　可能です。
可能な場合、記述の仕方を教えて頂けると幸いです（ざっくりでも結構です）　→　まず、質問者さんはどのくらいエクセルVBAが出来ますか？

[kato00]

どのくらい出来るかですが、どうお伝えすればいいか、、、、
とりあえず「マクロの記録」で作成されたVBAをネットで調べれば何をしているか分かるレベルです。

他の回答者さんがおっしゃっている
"日付があった場合"という判断と、"日付があった場合"に何をして、
"日付が無かった場合"に何をするか、の部分はマクロのプログラムで補足してやる必要があります。

この部分はIF文かな？と推測できるレベルです。

[meg_]

If文で良いと思います。あとはForループも必要となるでしょうが、とりあえず1行のデータの転記処理をするコードを書いて、質問に追記しましょう。

Answer 1

こんにちはこんばんは、よろしくお願いいたします。
こういった課題の場合、私はいつも、検索したい列をRANGEで定義して、そしてFINDを使っております。
以下のようなVBAを作ってみました。私のほうで実験してみて、動作確認できています。
ご参考になれば幸いです。

Option Explicit

Sub GyomuJikanTenkiMacro()
'ファイルAからファイルBに業務時間を転記するマクロです
'ファイルA､ファイルBともに、開いてある状態からスタートするものとします
'ファイルA、ファイルBともに、シート名はそれぞれ"Sheet1"であるものとします

Dim ASheet As Worksheet
Dim BSheet As Worksheet

Set ASheet = Workbooks("ファイルA.xlsx").Worksheets("Sheet1")
Set BSheet = Workbooks("ファイルB.xlsx").Worksheets("Sheet1")

Dim BSheetSearchRange As Range  'ファイルBのSheet1のA列を検索するので、それを定義します
Dim SheetBFoundRange As Range  'ファイルBのSheet1のA列を検索した結果を格納するための定義です

Dim WorkDay_A As String '検索につかう”日付”を格納するための定義です
Dim StartTime_A As Date '業務開始時間を転記するための定義です
Dim EndTime_A As Date '業務終了時間を転記するための定義です

Dim r As Range  'foreachを回すための変数です

ASheet.Activate '”End”を使うときは、その対象のシートをアクティブにしておかないとうまくいかないので、ここで  activateしています
For Each r In ASheet.Range("D2", Range("D2").End(xlDown))

  WorkDay_A = r.Value
  StartTime_A = r.Offset(0, 1).Value  'offsetを使って、転記するための業務開始時間を得て格納します
  EndTime_A = r.Offset(0, 2).Value  'offsetを使って、転記・格納するための業務終了時間を得て格納します
  
  BSheet.Activate '”End”を使うときは、その対象のシートをアクティブにしておかないとうまくいかないので、ここで  activateしています
  Set BSheetSearchRange = BSheet.Range("A2", Range("A2").End(xlDown))
  
    'ファイルAのシートの日付で、ファイルBの日付列をFINDします。FINDした結果をSheetBFoundRangeに格納します
    Set SheetBFoundRange = BSheetSearchRange.Find(what:=WorkDay_A, lookat:=xlWhole)
  
    If SheetBFoundRange Then  '該当する日付が見つかったら
      With SheetBFoundRange 'ファイルBのSheet1のその行に転記していきます
        .Offset(0, 2).Value = StartTime_A '業務開始時間
        .Offset(0, 3).Value = EndTime_A '業務終了時間
      End With
    End If
    '見つからなかったらなにもしません

'次の行に移ります
Next r

End Sub

Comments

[kato00]

ご連絡遅くなりました！
コードありがとうございました！

Answer 2

Excelには、「マクロの記録」という機能があります。

「マクロの記録」を開始しておいて、"ファイルAのデータをファイルBに転記する作業"を手動で行うと、行った作業がマクロ（VBAのプログラム）として記録されます。

その記録されたマクロは、手動で行った作業を記述したものにほかなりませんから、参考になると思います。

” 日付があった場合（例えば4日）”という判断は人間がしたものですから、マクロには記録されません。
記録されるのは「ファイルAの4日のE列、F列のデータをファイルBのD列、E列に転記」の作業です。

"日付があった場合"という判断と、"日付があった場合"に何をして、"日付が無かった場合"に何をするか、の部分はマクロのプログラムで補足してやる必要があります。