|
こんにちは
みなさんのコードを参考にして作ってみました。
Sub test()
Dim i As Long
Dim j As Long
Dim mj As Single
Dim mk As Single
Dim suuti(4) As Single
Dim tuki As Long
Dim 実績グラフ As Worksheet
Dim 会議資料 As Worksheet
Set 実績グラフ = Worksheets("品質会議 実績グラフ")
Set 会議資料 = Worksheets("工作品質会議資料")
Application.ScreenUpdating = False
'計算式 (小数点第二位切り上げ)
For i = 0 To 4
suuti(i) = Application.WorksheetFunction.RoundUp((実績グラフ.Cells(50 + i, 2) * 1000) / 1000000, 1)
Next i
'出力
tuki = Replace(Worksheets(5).Range("I1").Value, "月", "")
j = IIf(tuki < 4, tuki + 11, tuki - 1)
For i = 0 To 4
実績グラフ.Cells(7 + i, j) = suuti(i)
会議資料.Cells(5 + i, j) = suuti(i)
Next i
If j = 3 Then
mj = 0
mk = 0
Else
mj = 実績グラフ.Cells(13, j - 1)
mk = 会議資料.Cells(11, j - 1)
End If
実績グラフ.Cells(13, j) = 実績グラフ.Cells(12, j) + mj
会議資料.Cells(11, j) = 会議資料.Cells(10, j) + mk
Application.ScreenUpdating = True
Set 実績グラフ = Nothing
Set 会議資料 = Nothing
End Sub
ちなみに、「品質会議 実績グラフ」シートの13行目、「工作品質会議資料」シートの11行目には、前月の13行目、11行目と当月の12行目、10行目の合計が入るのでしょうか?それとも、4月から当月までの12行目、10行目の合計が入るのでしょうか?それによって少し変わります。
|
|