【マクロ画像あり】❶1つの条件一致❷１つの条件に部分一致❸最終行データコピー❶❷❸実現するマクロの件

【やりたい事】
下記画像をご覧ください
図１のC2セルのデータ【2025/6/3/ 12:00】を図2のB4セルに値貼付けしたい

【手順】
1【条件１】図2のA列と本日(today例：6/3)、事例だと6/3を一致(当日作業という意味)を確認

2【条件２】図１のファイル名の先頭【タスクA】と
　1行目のタスク名【タスクAアウトバウンド】の部分一部一致を確認⇒図2のB1セル

3B1からの最終行(lastrow)を調べる⇒B3セルと確認

4図1のC2セルの値を、B4セル(lastrow+1,"B")に値貼付けする

【ファイルパス】
図1↓
C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所\タスクA20250529123939.xls

図2↓
C:\Users\user\Documents\ツール\時間管理シート.xlsx

【ファイル名】
図1↓
タスクA20250529123939.xls

図2↓
時間管理シート.xlsx

No.3 回答者： tatsumaru77 回答日時： 2025/06/08 10:05

>ideone.comのコード表示は大変便利なのですが

>ここは誰でも使えるのでしょうか？
>費用はかかるのでしょうか？
>詳細は調べますので、簡単に教えて頂けると幸いです

回答：登録すれば、だれでも無料で利用できます。

>21行目
>以下は、コードではなく、コメントでしょうか？
>'Len(srcName) <= 18の場合

回答：
コメントではありません。コードです。
但し、このケースの場合、エラー表示後、終了するのが正しい処理なので、以下のようにしてください。
Exit Subを追加します。
-------------------------------------------------
If Len(srcName) <= 18 Then
MsgBox ("該当ファイルが無いか又はファイル名が短すぎます")
Exit Sub
End If


>32行目
>以下でデバックとなります。原因が想定できますでしょうか？
>maxRow = tws.Cells(Rows.Count, "A").End(xlUp).Row

回答：ここでエラーとなるのは、考えにくいです。
Set tws = tbk.Worksheets("Sheet1")　の行であれば、エラーとなるケースは想定可能ですが・・・・。
本当に、maxRow = tws.Cells(Rows.Count, "A").End(xlUp).Rowで
エラーが発生していますか。そうであれば、エラーメッセージの内容は
どのようになってますでしょうか。

No.2 回答者： tatsumaru77 回答日時： 2025/06/03 22:41

下記URLにアップしました。

https://ideone.com/d51yTd

コピー元のシート名：Sheet1
コピー先のシート名：Sheet1
にしてあります。あなたの環境に合わせて適切に設定してください。
27行：Set sws = sbk.Worksheets("Sheet1")
30行：Set tws = tbk.Worksheets("Sheet1")
を変えてください。

この回答へのお礼

tatsumaru77　様

ideone.comのコード表示は大変便利なのですが
ここは誰でも使えるのでしょうか？
費用はかかるのでしょうか？
詳細は調べますので、簡単に教えて頂けると幸いです

21行目
以下は、コードではなく、コメントでしょうか？
'Len(srcName) <= 18の場合

32行目
以下でデバックとなります。原因が想定できますでしょうか？
maxRow = tws.Cells(Rows.Count, "A").End(xlUp).Row

お礼日時：2025/06/08 09:05

No.1 回答者： tatsumaru77 回答日時： 2025/06/03 11:00

いくつか不明点があります。

１．条件１について
「【条件１】図2のA列と本日(today例：6/3)、事例だと6/3を一致(当日作業という意味)を確認」
ということですが、図2のA列は、図1のC列の間違いですか。

上記の条件１を以下のように解釈しましたが、合ってますか。
①システム日付を取得し、その日付と一致するものを図１のC列から検索する。
②一致した場合、そのセルを転記元のセルとする。例ではC2のセル。（該当セルが複数の場合は最初に一致したセルとする）

２．条件２について
①図２のタスク名は、B列、C列、D列に格納されていますか。
②検索対象とする行は、B列、C列、D列の1行目と10行目、19行目ですか。(1,10,19は固定）

３．ファイルのタスク名の取得方法について
タスクA20250529123939.xls　のタスク名は　タスクA ですが、
これは、
ファイル名　タスクA20250529123939.xls から
右側の18文字（20250529123939.xls）を除いたものをファイル名としますがそれでよいですか。
（拡張子は常にxlsであることが前提、xlsx,xlsmのような拡張子のファイルはない前提）

この回答へのお礼

大変、申し訳ございません。画像不鮮明とお礼文字数制限ある為
意味伝わらない場合再度、投稿します

【前提】
⇒前提に⇒図１は、WEBからダウンロードするデータ
⇒6/3に当日に作業をし、当日のデータを取得という前提です
⇒6/3に作業をし、6/2や5/31はありえないという意味です
⇒種類は３種類という意味です。タスクA。タスクB。タスクC。
⇒図１のダウンロードデータを約６回/１日にダウンロードします
⇒タスクAが２回。タスクBが２回。タスクCが２回です
⇒当該ダウンロードデータのC2セルを台帳の図２に転記したいです

１．条件１について
⇒システム日付6/3と図２の台帳A列の日付の6/3の一致を確認します
図１のC列ではないです
⇒図２の台帳A列は、6/1-6/30までが記載あり
⇒作業は当日する前提。図１のC列は、今回の例だと6/3しかありません
⇒①システム日付を取得、その日付と一致するものを図２のA列から検索する⇒台帳に転記したいデータは、常に図１のダウンロードデータのC2セル
⇒C2セルはダウンロードデータの常に最新時間を表しています
⇒骨子は、図１のダウンロードデータ１つにつき、１つのC2データを
⇒図２のどこの場所に転記するかを自動でしたいです

２．条件２について図２例
A1⇒6/3、B1⇒タスクAアウトバウンド、C1⇒タスクBアウトバウンド
D1⇒タスクBアウトバウンド、図２は、以下、6/30まで続きます
②検索対象とする行は、B列、C列、D列の1行目と10行目、19行目ですか。(1,10,19は固定）⇒固定ですが⇒２８行、３０行と続きます。6/30まで
⇒B2と一致します、⇒6/3なので１行目だけでOKです
１０行目は6/9。19行目は6/5のためです

３．ファイルのタスク名の取得方法について
タスクA20250529123939.xls　のタスク名は　タスクA ですが、
これは、ファイル名　タスクA20250529123939.xls から
右側の18文字（20250529123939.xls）を除いたものをファイル名としますがそれでよいですか。（拡張子は常にxlsであることが前提、xlsx,xlsmのような拡張子のファイルはない前提）⇒あっています。右側１８文字をのぞいたもので⇒結果、タスクA、タスクB、タスクCとなります

お礼日時：2025/06/03 18:43