質問: vba 別ブック(シート)の同一日付のデータ欄に値をコピー 同じような質問を調べたのですが、私の問題とは一致するものがなくて、照会します。 book1で算出した2種類の商品(a、b)の貸出数量を、book2の同一日付欄に複写するマクロです。 book1(sheet1)のデータ(複写元) a b 1 2020/4/1 2 商品a 2 ←数量 3 商品b 5 ←数量 book2のシート(複写先)<写真> 商品aと商品b別に四半期毎の管理シートがあり、年度分の合計で8シートです。 シート名は、a4-6,a7-9,a10-12,a1-3,b4-6,b7-9,b10-12,b1-3で、全て同じフォームです。 2020年4月の場合、a列は3行目に年月(手入力)、6行目から36行目に日付(計算式)を表示しています。 作業は、 book1で算出した2020/4/1の商品aの数量(b2=2)をbook2「シートa4-6」のb6に複写します。続いて、商品bの数量(b3=5)をbook2「シートb4-6」のb6に複写します。 上記作業を毎営業日繰り返します。 最後に、複写先のbook2のシートの作り方が処理を難しくしている気もします。4月から翌年3月末までのデータが一覧で見えれば良いので、シートの作り方を変えた方が良い場合には合わせてアドバイス下さい。 よろしくお願いいたします。
回答: >set ws = workbooks("book2.xlsx").worksheets(rr.value & v(mm)) ' book名の拡張子が不明でした・・・適宜修正を。 これを set ws = workbooks("book2.xlsx").worksheets(left(rr.value, 1) & v(mm)) ' book名の拡張子が不明でした・・・適宜修正を。 とすると、 >千4-6、千7-9、千10-12、千1-3 に対応できます。