|
▼mina さん:
>Range("H5").NumberFormatLocal = "0.00"
>度々すみません
>("H6")では小数点以下二桁にはなりません("H5")ならセル何行でもOKでした。
十分に見ていなくってご免なさい。
ず〜っとコードを見させていただきましたが・・・・
もっとすっきりしたコードが出来そうですね。
Sub test ()
Dim i As Integer
Range("H3") = Range("C3") - Range("D3")
Range("H4") = Range("D3") - Range("E3")
Range("H5") = Range("H3") / Range("H4")
Range("H5").NumberFormatLocal = "0.00"
Range("H6").NumberFormatLocal = "0.00"
For i = 4 To 28 Step 4
Range("H3:H6").Copy Range("H3").Offset(i, 0)
Next
Range("A1").Select
End Sub
一度試してみてください
|
|