excel-vba组内离均差

Sub 组内离均差()
'
' 组内平均值 Macro
' 宏由 zzh_my@163.com 录制，时间: 2015/11/18
'
'点名初始化时间(s) 测量时刻次序号平面x(m) 平面y(m) 大地高(m) 解类型备注观测类型观测者 x组内离均值 y组内离均值 H组内离均值 abs(x组内离均值) abs(y组内离均值) abs(H组内离均值) x x百分比 y y百分比 H H百分比
'需按照点名先排列好

n = 0
x = 0
y = 0
H = 0
sheetname = "1-投影129xyH"
' rowNumber = 933 'x = range("A65536").end(xlup).row i = cells(rows.count,1).end(xlup).row+1
rowNumber = Worksheets(sheetname).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To rowNumber Step 1

' MsgBox (Name)
'假如点名和下一条相等，且观测类型相等
If (Worksheets(sheetname).Cells(i, 1).Value = Worksheets(sheetname).Cells(i + 1, 1)) And (Worksheets(sheetname).Cells(i, 10).Value = Worksheets(sheetname).Cells(i + 1, 10)) Then
n = n + 1

x = x + Worksheets(sheetname).Cells(i, 5).Value
y = y + Worksheets(sheetname).Cells(i, 6).Value
H = H + Worksheets(sheetname).Cells(i, 7).Value
Else
For j = 1 To n + 1 Step 1
x_mean = x / n
y_mean = y / n
H_mean = H / n
h1 = Worksheets(sheetname).Cells(i - j + 1, 7).Value
' MsgBox (x_mean)
Worksheets(sheetname).Cells(i - j + 1, 12).Value = Worksheets(sheetname).Cells(i - j + 1, 5).Value - x_mean
Worksheets(sheetname).Cells(i - j + 1, 13).Value = Worksheets(sheetname).Cells(i - j + 1, 6).Value - y_mean
Worksheets(sheetname).Cells(i - j + 1, 14).Value = Worksheets(sheetname).Cells(i - j + 1, 7).Value - H_mean
Next j
x = 0
y = 0
H = 0
x_mean = 0
y_mean = 0
H_mean = 0
n = 0

End If

Next i

End Sub

excel-vba组内离均差相关推荐

Excel 按组内序号取数
Excel formulae for max or min of multiple occurrences of vlookup https://stackoverflow.com/questions ...
excel vba 使用mschart_VBA专题108：使用VBA操控Excel界面之在功能区中添加内置控件...
学习Excel技术,关注微信公众号: excelperfect 本文重点讲解如何在功能区中添加不同类型的内置控件. 添加普通按钮和切换按钮按下面的步骤来添加普通按钮和切换按钮(例如,拼写和删除线控件 ...
Excel VBA实现从多篇Word文档内抓取文本框内内容（书接上一篇博客）
Excel VBA实现从多篇Word文档内抓取文本框内内容(书接上一篇博客) 一.前情提要我在上一篇博客<VBA摘取Word图形(Shapes)内文字>里验证了遍历doc文档内图形--尤 ...
ie 不执行回调函时_「Excel VBA操作IE篇」10分钟内设置完成，3句代码打开IE浏览器
大家好,我是咚腔! Excel VBA还可以操作IE浏览器,有没有搞错? 没错,可以操作,而且非常好用.因为Excel有强大的数据分析功能. 这有什么关系?关系很大. 现在是数据时代,定期数据获取以 ...
来吧！带你玩转 Excel VBA
来吧!带你玩转 Excel VBA(含CD光盘1张)(双色)(附带近500个VBA思考练习题,Exceltip.net出品) 罗刚君杨嘉恺编著 ISBN 978-7-121-20627-6 201 ...
来吧带你玩转 Excel VBA
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 来吧!带 ...
巧用Excel VBA 快速编排考场座位
百度文库下载地址: 学校考试考场编排软件(单年级) http://wenku.baidu.com/view/464023029ec3d5bbfc0a740f.html 学校考试考场编排软件(多年级) ...
Excel VBA编程常用语句300句
Excel VBA编程常用语句300句 ************** * VBA 语句集 * * (第 1 辑) * ************** **************** * 定制模块行为 ...
Excel+VBA+之快速上手
第一章 VBA语言基础第一节标识符一．定义标识符是一种标识变量.常量.过程.函数.类等语言构成单位的符号,利用它可以完成对变量.常量.过程.函数.类等的引用. 二．命名规则 1 ...

excel-vba组内离均差

excel-vba组内离均差相关推荐

最新文章

热门文章