|
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>状況は変わりませんでした。
>
>どのようなコードをどのモジュールに記述しているのでしょうか?
>
>以下のようなコードを標準モジュールModule1に記述すると、きちんと動作します。
>
>Sub SampleMacro1()
> MsgBox "SampleMacro1を実行します"
> Call SampleMacro5
> MsgBox "終了しました"
>End Sub
>
>Sub SampleMacro5()
> MsgBox "SampleMacro5を実行します"
>End Sub
Sub Macro1()
ActiveWorkbook.Worksheets("1113(ゲスリレ)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BI3")
ActiveWorkbook.Worksheets("1116(東)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BJ3")
ActiveWorkbook.Worksheets("1117(東)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BK3")
ActiveWorkbook.Worksheets("1103(東臨時)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BL3")
ActiveWorkbook.Worksheets("1118(東)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BM3")
ActiveWorkbook.Worksheets("1111(西メイン)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BN3")
ActiveWorkbook.Worksheets("1112(西メイン)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BO3")
ActiveWorkbook.Worksheets("1110(西メイン)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BP3")
ActiveWorkbook.Worksheets("1115(団体)").Range("D2:D90").Copy _
ThisWorkbook.Worksheets("1").Range("BQ3")
Call macro41
End Sub
Sub macro41()
Range("BI4:BI11").Select
Application.CutCopyMode = False
Selection.Copy
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
.
.
.
Range("BQ49:BQ50").Select
Application.CutCopyMode = False
Selection.Copy
Range("D153").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
上のような式を入れています。
Macro1で他のブックからデーターを読み込み、Macro41でデータの順番を変更しながら、表の中に取り込んでいきます。
別々にMacro1とMacro41を実行すると作動します。
|
|