工作表sfarea中的代码只有这些: Option Explicit _________________________________________ Sub spin() Dim inp As Range, out As Variant Dim j As Integer, k As Integer Dim s(3) As Integer Application.Calculation = xlCalculationManual out = Array("AF1", "AF7", "AF13") Set inp = ActiveSheet.Range("F26") s(0) = Range(out(0)) s(1) = Range(out(1)) s(2) = Range(out(2)) For j = 0 To 2 For k = 1 To 360 Range(out(j)) = (s(j) + k) Mod 360 Calculate Next k Next j For k = 1 To 360 Range(out(0)) = (s(0) + k) Mod 360 Range(out(1)) = (s(1) + k) Mod 360 Range(out(2)) = (s(2) + k) Mod 360 Calculate Next k Application.Calculation = xlCalculationAutomatic End Sub |