vog********

2024/12/2 14:07

22回答

年間計画表Sheetから月間計画表Sheetに連動させたいのですが 何方か教えて下さい。 【年間計画表Sheet】 ①L8～ML8 日付け ②L5～ML5 台数

年間計画表Sheetから月間計画表Sheetに連動させたいのですが 何方か教えて下さい。 【年間計画表Sheet】 ①L8～ML8 日付け ②L5～ML5 台数 【月間計画表Sheet】 ①E2～AE2 日付け ②E3～AE3 台数 【行いたい事】 年間計画表Sheetの日付けと 月間計画表Sheetの日付けが同じ列の 台数を転記したい。 マクロにて対応したい。 ボタンを設定して行いたい。 エクセルのバージョンは2016 よろしくお願い申し上げます。

画像

Excel | Office系ソフトウェア・58閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

jmse

2024/12/3 5:44

Sub test() Dim sh As Worksheet Dim rng As Range Dim c As Long Dim ck As Variant Set sh = Worksheets("年間計画表") With sh Set rng = .Range(.Cells(8, 1), .Cells(8, .Cells(8, Columns.Count).End(xlToLeft).Column)) End With With Worksheets("月間計画表") For c = 5 To .Cells(2, Columns.Count).End(xlToLeft).Column ck = Application.Match(CLng(.Cells(2, c).Value), rng, 0) If IsError(ck) = False Then .Cells(3, c).Value = sh.Cells(5, ck).Value End If Next c End With End Sub

この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

非常に助かりました！ 有難う御座います。

お礼日時：12/3 9:19

その他の回答（1件）

1052943115

2024/12/2 14:43

[月間計画表Sheet!E3:AE3]=[iferror(index(年間計画表Sheet!L5:ML5,match(月間計画表Sheet!E3:AE3,年間計画表Sheet!L8:ML8,0)),"")] でどうだろう？