Excel宏_实现对动态数据求均值和落在特定范围的数据的个数
5月16号晚，同学叫我帮忙写一个Excel宏，实现对动态数据的求均值和落在特定范围的数据的个数。由于我在大二学过VB（那时学VB主要是为了应付学校的计算机二级考试，过后就没动过了），但对VBA从没碰过，匆忙间也就在Microsoft 的在线帮助中看看，搞到早上5点左右，终于搞定，今天在此记下代码，以后如果有用，就方便了，如果他人觉得有用，请注明出处，谢谢！
Sub QIU_ZHI()
'要求：选中你要处理的数据，数据请不要放在前4列中
'功能：对数据求均值、0.9*均值、1.1*均值和落在这个范围内的数据的个数。
'注明：均值在3行3列，0.9*均值在4行3列，1.1*均值在5行3列，落在这个范围内的数据的个数在6行3列
'edit by Hsxzhe 080517
Dim mycell As Range '声明mycell是一个区域变量
'声明各变量，由于对VBA常用函数、属性不熟悉，故此宏中定义了大量变量来存储需要处理的数据
Dim data_sum As Double '总和
Dim pin_jun As Double '均值
Dim zero_p_nine_pinjun As Double '0.9*均值
Dim one_p_one_pinjun As Double '1.1*均值
Dim fanwei_feshu As Integer '落在这个范围内的数据的个数
Dim row_start As Integer '标记所选区域的开始行号
Dim row_end As Integer '标记所选区域的结束行号
Dim column_start As Integer '标记所选区域的开始列号
Dim column_end As Integer '标记所选区域的结束列号
Dim aero_num As Integer '标记所选区域的总个数
Dim row_temp As Integer
Dim column_temp As Integer
'初始化变量
data_sum = 0
pin_jun = 0
zero_p_nine_pinjun = 0
one_p_one_pinjun = 0
fanwei_geshu = 0
'求出总和
aero_num = 0
For Each mycell In Selection
If aero_num = 0 Then
row_start = mycell.Row
column_start = mycell.Column
End If
data_sum = data_sum + mycell.Value
aero_num = aero_num + 1
row_end = mycell.Row
column_end = mycell.Column
Next
'求出个数据
pin_jun = data_sum / aero_num
zero_p_nine_pinjun = 0.9 * pin_jun
one_p_one_pinjun = 1.1 * pin_jun
row_temp = 0
column_temp = 0
'求出落在这个范围内的数据的个数
For row_temp = row_start To row_end
For column_temp = column_start To column_end
If Cells(row_temp, column_temp).Value > zero_p_nine_pinjun And Cells(row_temp, column_temp).Value < one_p_one_pinjun Then
fanwei_geshu = fanwei_geshu + 1 '落在范围内，则统计个数
End If
Next
Next
Cells(3, 3) = pin_jun
Cells(4, 3) = zero_p_nine_pinjun
Cells(5, 3) = one_p_one_pinjun
Cells(6, 3) = fanwei_geshu
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''下面的是垃圾，只是格式处理''''''''''''''''''''''''''
Cells(3, 2) = "均值"
Cells(4, 2) = "0.9*均值"
Cells(5, 2) = "1.1*均值"
Cells(6, 2) = "范围个数"
Range(Cells(3, 2), Cells(6, 3)).Select
Range(Cells(3, 2), Cells(6, 3)).Font.Bold = True
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End Sub