Excelで質問です
1)プロジェクト(A B C.....)の各必要工程を納期から逆算したシート(納期計算)があります
このシートは納期のみ入力し、中間工程納期を計算するものです
2)(1)のシートを個別に管理していましたが、
これを1枚のカレンダーにまとめて管理しています(手動)。
3)いままでは(2)のカレンダーを手動で行っていましたが、
これを納期計算シートで計算した日を自動で転記するようにしたいと思っています。
4)またプロジェクトは各月1~2単位で増加します。
【悩み】
固定されたプロジェクト数であれば(3)まではできたのですが、(4)の条件を満たすようにする方法を悩んでいます。
ある程度のプロジェクト数の上限を決めておけばできるのはわかるのですが、増加することを考えると難しいです。
また(2)のまとめるカレンダーにはvlookup等を組み合わせて表示していますが、
例えばA B Cの3つのうちBやCのみの予定がある場合は空白部分ができてしまいます。
これを上詰めで行う方法はありますか?
★Googleカレンダー等を利用すればある程度楽になるのはわかりますが、
チームでExcelデータをクラウド管理するので、Excelで作成したいと思います。
=納期計算=============================
起算日|中間①|中間②|最終納期
A:起算日を入力|計算[②-14日]|計算[最終ー21日]|最終納期を入力
B:・・・・・・
C:・・・・・・
=カレンダー============================
12日 13日
A中間①
B 中間①
C 中間②
回答お待ちしております。
No.2ベストアンサー
- 回答日時:
一例を作成してみましたので、勉強の参考にして下さい。
Sub Sample()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim i As Long
Dim hizuke As Range
Dim pname As String
Dim tmp As Variant
Dim wrow As Long
Application.ScreenUpdating = False
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
Set hizuke = sh2.Range(sh2.Cells(1, 1), sh2.Cells(1, sh2.Cells(1, Columns.Count).End(xlToLeft).Column))
With sh1
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
If .Range("E" & i).Value <> "" Then
pname = .Range("A" & i).Value
tmp = Application.Match(CLng(.Range("C" & i)), hizuke, 0)
If IsError(tmp) = False Then
wrow = sh2.Cells(Rows.Count, tmp).End(xlUp).Row + 1
sh2.Cells(wrow, tmp).Value = pname & "中間①"
End If
tmp = Application.Match(CLng(.Range("D" & i)), hizuke, 0)
If IsError(tmp) = False Then
wrow = sh2.Cells(Rows.Count, tmp).End(xlUp).Row + 1
sh2.Cells(wrow, tmp).Value = pname & "中間②"
End If
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) google formsを使ったタスク依頼フォーム作成におけるご相談 1 2023/06/22 15:55
- Excel(エクセル) エクセル 条件に合う日付に入力された時間数の合計したい 4 2022/06/17 22:18
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- 消費者問題・詐欺 国税庁から来たメール 5 2022/08/29 06:42
- 法人税 地方税の納付に関しての法人税別表4,5の書き方について 2 2023/04/01 19:03
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- 財務・会計・経理 賞与引当金の計上について計上が必要かどうかまとめてみました(1月決算) 認識違うぞということがあれば 1 2023/07/24 17:17
- 高校 日商簿記3級の勉強中なのですが 精算表が完成せず困っています。 こちらの問題の回答を教えていただきた 2 2023/03/02 09:07
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) エクセル/列追加時、合計行の計算式 7 2023/03/15 11:14
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル:VBAで月変わりで、自...
-
歯抜けの時間を埋めて行の挿入
-
excelの差込印刷で可視セルだけ...
-
エクセルVBAでの日付順のデ...
-
情報系の授業の課題なのですが...
-
Excel VBA インデックスの境...
-
マクロを簡潔にしたいので教え...
-
エクセルVBA 別シートの複数の...
-
Excel VBA 時刻でのD...
-
エクセルVBAで SendKeys "{TAB}"
-
エクセル2007で、マクロで、結...
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBAで 2種のリストを...
-
Excel で行を指定回数だけコピ...
-
Excelでデータの抽出&別シート...
-
VBAで複雑な構成の転記
-
EXCEL(マクロ)2つのデータ比...
-
VBAで 任意図形のみ残してその...
-
VBA:同じ文字列データの比...
-
エクセルの関数(マクロ?)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
エクセルVBA 別シートの複数の...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
シャープのアクオス sh-m25 を...
-
VBA:同じ文字列データの比...
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
エクセルVBAで 2種のリストを...
-
エクセルVBAで SendKeys "{TAB}"
-
VBAで条件が一致する行のデータ...
-
Excel VBAでシート内全体に非表...
-
歯抜けの時間を埋めて行の挿入
-
Excelマクロ データが上書きさ...
-
VBA 貼付先範囲(行)がいっぱ...
-
【WORD差し込み印刷】複数レコ...
-
EXCELマクロで全シート対...
-
エクセルVBAでの日付順のデ...
-
エクセル シート保護後コメン...
-
ノートパソコン 2in1について i...
おすすめ情報