以下は私のマクロコードです。そのファイルの名前をエクスポートするダンプが毎回変更されるたびに1つの問題が発生します。ブック名の変更の問題
終了番号が常に変更されます:"SECONDARY MIS MODULE (11)"
、"SECONDARY MIS MODULE (12)"
を、など
Sub MySub
a = 6
b = 2
Do While Workbooks("segment.xlsm").Worksheets("Sheet4").Cells(b, 1) <> ""
Z = WorksheetFunction.SumIf(Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range("B5:K5"), _
"FRANCHISEE DEVELOPMENT", Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range(Cells(a, 2), Cells(a, 11)))
x = Application.SumIf(Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range("B5:K5"), _
"PRIVATE WEALTH GROUP", Workbooks("SECONDARY MIS MODULE (11).xlsx").Worksheets("SECONDARY MIS MODULE (11)").Range(Cells(a, 2), Cells(a, 11)))
Workbooks("segment.xlsm").Worksheets("Sheet4").Cells(b, 13).Value = x + Z
a = a + 1
b = b + 1
Loop
End Sub
を次のように?エラーは何ですか?あなたは何を達成しようとしていますか? –
敬意をいただいた先生、実際には上記のコードの上に私は毎日のMIS以上のために開発しています。私が直面している課題は、すなわち、 (11)、(12)のように、システムがダンプを生成するたびに生成されます。コードが最後のnoを無視するのに助けてくれる方法はありますか?私は "For i = 11 to 15"ステートメントで毎回病気が増えていなくても、次の5または6ごとにコードを編集しなければならない場合でも、最初の行、すなわちSECONDARY MIS MODULE only.aを提案します。日々。 – sagar