質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

解決済

VBAで別シートの内容を参照して、欠落している時刻があれば行追加したい

qwe001
qwe001

総合スコア129

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

2回答

0リアクション

0クリップ

365閲覧

投稿2022/08/24 10:02

編集2022/08/24 10:08

サンプル

https://docs.google.com/spreadsheets/d/e/2PACX-1vSXvCjZB5eIS_ojLOxKiCsf7rfH4qDWfXDMko6KnkWVRfAn9CIMN3C2DEipChB1g2VGpLiqLdY6vmTT/pubhtml

前提

  • イベントリストシート(EventListsシート)には、曜日別、開始時刻別のイベント一覧が記載されています。
  • マスターシート(Masterシート)には、日付別のイベント一覧が記載されています。
  • マスターシート(Masterシート)に入るデータは、一か月分のみです
  • 開始曜日は月曜日とします
  • 曜日の区切りは 05:00 ~ 28:59 とします

やりたいこと

Masterシートについて、EventListsシートに存在しない時刻があれば、行追加して、対象時刻を埋め込みたいです
サンプルURLにある、期待結果シートのような形にしたいです。(背景色はつかなくていいです)

現状、Masterシートは以下のような並びですが

イベント日曜日開始時刻種別
20220901502B
20220901502B
20220901502A
20220901502A
20220901502A
20220901502A
20220901510A
20220901510A
20220901606A
20220901606A

EventListsシートのC列 開始時間を見ると、5:00からのイベントがありますので、
以下のように、先頭に行追加したいです

種別も見分けがつきやすいように、ADDとつけたいです

イベント日曜日開始時刻種別
20220901500ADD
20220901502B
20220901502B
20220901502A
20220901502A
20220901502A
20220901502A
20220901510A
20220901510A
20220901606A
20220901606A

現在の実装

vba

Sub appendPositionToMaster() Dim ws As Worksheet Dim ws2 As Worksheet Dim lastRowNum As Long Dim lastRowNum2 As Long Dim i As Integer Dim j As Integer Dim weekName As String Dim startTime Dim weekName2 As String Dim startTime2 Set ws = Worksheets("EventLists") Set ws2 = Worksheets("Master") ' A列の最終行番号を取得 lastRowNum = ws.Range("A" & Rows.Count).End(xlUp).row lastRowNum2 = ws2.Range("A" & Rows.Count).End(xlUp).row ' EventListsシート 行単位でループ For i = 2 To lastRowNum ws.Activate ' L列(fix_week_name) の値を取得 weekName = Cells(i, 12).Value ' M列(fix_start_time) の値を取得 startTime = Cells(i, 13).Value ' M列(fix_start_time) の値をセミコロンなしの数値に変換する(0.208333333 -> "5:00" -> 500) startTime = Val(Format(startTime, "hmm")) ' Masterシート 行単位でループ For j = 2 To lastRowNum2 ws2.Activate ' B列(曜日) の値を取得 weekName2 = Cells(j, 2).Value ' C列(開始時刻) の値を取得 startTime2 = Cells(j, 3).Value If weekName2 = "" Then Exit For ' C列(開始時刻) の値を数値に変換する("502" -> 502) startTime2 = Val(startTime2) ' 曜日が同じの時 ' EventListsの開始時刻がMasterシートの開始時刻よりも早い時 If weekName = weekName2 And startTime > startTime2 Then MsgBox "Hit" Rows(j).Insert Exit For End If Next j Next i End Sub

困っていること

  • VBAで、行追加して、任意の値を代入する方法がわからないです
  • ループ処理の適切な条件設定がわからないです

どのようにすれば、やりたいことが達成できますでしょうか。
VBAは経験が少なくてよくわからないです。

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

hatena19

2022/08/24 14:52 編集

Masterシートは、日付、開始時刻の昇順になってますか。 また、エクセルのバージョンはなんでしょうか。
qwe001

2022/08/25 01:22

日付、開始時刻の昇順です。ExcelのバージョンはMicrosoft® Excel® 2019 MSO (バージョン 2111 ビルド 16.0.14701.20204) 32 ビット です。よろしくお願いいたします。
tatsu99

2022/08/27 01:02 編集

Masterに行を追加するのではなく、別のシートにMatserの行とEventListsの必要な行を追記する方法でも良いですか。最終的にMasterのシートが欲しいなら、Materシートを削除して、別のシートをMasterにRenameすればよいかと思います。 別のシートに出力するのはMatserのA列~H列までです。 EventListsの出力項目も、MatserのA列~H列に該当する列になります。 EventListsのP列を作業用に使用します。 (M列時刻(5:00)を数値(500)に変換したものをP列に書き込みます) 上記で良ければ、対応可能です。
qwe001

2022/08/28 01:23

@tatsu99 ご連絡ありがとうございます。それで大丈夫です。Masterシート自体、私が他社から提供されたオリジナルのシートを作業しやすいように型変換などをしたシートですので。(もともとのシートは全ての値が文字列形式になっていて値の比較ができませんでした) よろしくお願いいたします。

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。