回答受付が終了しました
エクセルのマクロについて 当方マクロ初心者でございます。
エクセルのマクロについて 当方マクロ初心者でございます。 入力シートで手入力した時間(3種)を、 セルE48、F48、G48で合計する様になっています。 その合計を集計シートのT3、U3、V3にコピー&値でペーストし、 入力シートを別シートとして複製。 複製したシートには。入力シートのB3に入れた名前をコピペし、 入力シートの手入力部を削除するマクロを記録で作りました。 次に入力した際、入力シートのE48、F48、G48を、 集計シートのT4、U4、V4、次5、次6、次7、、、とコピペをするマクロを作成したいのですが、どの様にすればいいでしょうか?ご教示お願い致します。 -------------以下記録で作成したマクロ------------- Sub サンプル() ' ' サンプル Macro ' ' ActiveWindow.SmallScroll Down:=21 Range("E48:G48").Select Selection.Copy Sheets("集計").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("入力").Select ActiveWindow.SmallScroll Down:=-39 Application.CutCopyMode = False Sheets("入力").Copy After:=Sheets(2) Range("B3").Select ActiveCell.FormulaR1C1 = "514" Range("B4").Select Sheets("入力 (2)").Select Sheets("入力 (2)").Name = "514" Sheets("入力").Select Range("B3").Select Selection.ClearContents Range("D6:D36").Select Selection.ClearContents Range("H6:H36").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=15 Range("A38:D41").Select Selection.ClearContents Range("H38:H41").Select Selection.ClearContents Range("A44:D47").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-39 Range("A1").Select End Sub -----------------------------------------------------------------
Visual Basic | Excel・32閲覧・250