質問: ### 前提・実現したいこと VBAで1ヶ月分の工数管理を作っています。 1枚目の画像で1日分の工数を入力し登録ボタン押下で2枚目の画像にある別シートに項目別かつ入力した日付に合致したセルにトータル時間を出力したいのですが、良いコードが思いつきません。どなたか助言をお願い致します。 ### 参考画像 ![イメージ説明](https://teratail-v2.storage.googleapis.com/uploads/contributed_images/cf2cfd4b502cee02c49755daf176fa3a.png) ![イメージ説明](https://teratail-v2.storage.googleapis.com/uploads/contributed_images/e40576054ec8bc76f761eac52ebd9354.png) ### 補足 大分類の項目数は4 中分類の項目数は分岐するようになっていますが、 トータル33 領域の項目数は3つあります。 2枚目の画像の左上に青く塗りつぶされた「その他」とありますが、 左上の「その他」が大分類にあたり、これとは別のシートが3つあります。 他のシートの中身は項目名が違うだけであって、基本的な中身は一緒です。ただし2枚目の画像にあるように1つの項目に「マネジメント」、「リーダ」、「オペレーション」と3つ項目がありますがこれはすべてのシートに共通であります。
回答: 概略説明になりますが・・・ 中分類と小分類につき、2次元配列 DIM 分類(33,3) にトータル時間をセットします。 名刺データ作成のマネジメントは、分類(1,1) 名刺データ作成のリーダーは、分類(1,2) ・ ・ 2枚目以降の別シートには 名刺データ作成のマネジメント、1日の登録セルが6行5列目だとすると n= 6 to (33×3)項目+5 cell(n,選択日+4) = 分類(n/3の商-1, n/3の余り+1) next これで分類(1,1)(1,2)(1,3)(2,1)(2,2)(2,3)・・・ となると思います。 他に便利なコマンドなどがあるかもしれませんが、わからないので古典的な方法で式を作ってみました。