|
思いっきりやるとこんなかな?
上手く行かなかったらゴメン
Public Sub Sample()
Dim i As Long
Dim vntData As Variant
'vntData(1, 1) : 資材
'vntData(2, 1) : 工作
'vntData(3, 1) : 設計
'vntData(4, 1) : 生産設計
'vntData(5, 1) : その他
Dim lngMonth As Long
Dim vntSheets As Variant
vntSheets = Array("工作品質会議資料", "品質会議 実績グラフ")
'計算式(小数点第二位切り上げ)
With Sheets(vntSheets(1))
vntData = .Range("B50:B54").Value
For i = 1 To 5
vntData(i, 1) = -Int(-vntData(i, 1) / 100) / 10
Next i
End With
'出力
lngMonth = Val(StrConv(Worksheets(5).Range("I1"), vbNarrow))
lngMonth = ((lngMonth + 8) Mod 12) + 3
For i = 0 To 1
With Sheets(vntSheets(i))
Range(.Cells(5 + 2 * i, lngMonth), _
.Cells(5 + 2 * i, lngMonth)).Value = vntData
.Cells(11 + 2 * i, lngMonth).Value _
= .Cells(10 + 2 * i, lngMonth).Value
If lngMonth > 0 Then
.Cells(11 + 2 * i, lngMonth).Value _
= .Cells(11 + 2 * i, lngMonth).Value _
+ .Cells(11 + 2 * i, lngMonth - 1).Value
End If
End With
Next i
End Sub
|
|