1、在VBA中输入：Sub 位置重复性()End Sub
3、在VBA中先进行数据的求和，再求平均值．For j = 2 To 151 Step 5Cells(2, 4) = Cells(j + 4, 1) + Cells(2, 4) 'X轴求和Cells(2, 5) = Cells(j + 4, 2) + Cells(2, 5) 'Y轴求和Cells(2, 6) = Cells(j + 4, 3) + Cells(2, 6) 'Z轴求和Cells(j + 4, 1).Interior.Color = RGB(0, 255, 0)Cells(j + 4, 2).Interior.Color = RGB(0, 255, 0)Cells(j + 4, 3).Interior.Color = RGB(0, 255, 0)Next'------------------------------------------------Cells(2, 4) = Cells(2, 4) / (j - 122) 'X轴平均值Cells(2, 5) = Cells(2, 5) / (j - 122) 'Y轴平均值Cells(2, 6) = Cells(2, 6) / (j - 122) 'Z轴平均值
5、在VBA中求得位置重复性.For j = 2 To 151 Step 5Cells(6, 5) = ((Cells(j + 4, 8) - Cells(6, 4)) ^ 2 / 29) ^ 0.5 '过程值Cells(2, 7) = Cells(6, 4) + 3 * Cells(6, 5) '位置重复性Next
