用Visual basic 写求Excel中数的平均值的方法
用VB写个求给定的Excel表格中的某些数据的平均值
比如求第一列的所有数字的平均值
最好是有注释
初学VB，弱弱的问一句，是不是要先打开某个sheet，然后选中对应区域，再调用公式啊？
请老大们指教了
Dim xbook As Workbook
Dim xsheet As Worksheet
Private Sub Form_Load()
Set xls = New Excel.Application
xls.Visible = True
Set xbook = xls.Workbooks.Open("d:\test.xls") '打开xls文件
Set xsheet = xbook.ActiveSheet '找到表
xsheet.Range("E1").FormulaR1C1 = "=AVERAGE(C[-4])" '设置求平均值的公式
End Sub
http://zhidao.baidu.com/question/64987050.html?fr=ala0
求平均值可以直接调用工作表函数
xlapp.worksheetfunction.average(xlsheet.range("a:a"))本回答被提问者采纳
用Visual basic 写求Excel中数的平均值的方法
Set xls = New Excel.Application xls.Visible = True Set xbook = xls.Workbooks.Open("d:\\test.xls") '打开xls文件 Set xsheet = xbook.ActiveSheet '找到表 xsheet.Range("E1").FormulaR1C1 = "=AVERAGE(C[-4])" '设置求平均值的公式 End Sub ...
excel怎么根据一定条件求均值
一、函数公式法：把结果放置在B2单元格中。在B2单元格中录入条件求平均值的公式：=AVERAGEIFS(B2:C15,B2:C15,">80")注意一下AVERAGEIFS函数的用法是：AVERAGEIFS(求平均值的区域，条件区域1,条件1，条件区域,2,条件2，...)02 回车，我们看到，函数已经将大于80分的平均成绩求出来了：92.75分。...
关于用Visual Basic Application如何在Excel中提取数据并处理的问题
1)=SjEnd Sub先录制一段空宏，然后再宏“选项”设置中设置快捷方式为Ctrl+M，再将上述代码粘贴到改宏模块中即可。具体请见附件。
Excel怎么用Visual Basic计算数组长度
具体如下：1. 首先第一步打开电脑中需要计算的Excel文档，根据下图箭头所指，依次点击【开发工具-Visual Basic】选项。2. 第二步在弹出的窗口中，根据下图箭头所指，输入【Sub test()】定义程序名称。3. 第三步切换到下一行，根据下图箭头所指，输入【Dis arr()】定义数组。4. 第四步切换到下一行，...
...80、70、60、不及格划档VB (visualbasic)的代码怎么写
")Loop Print Print "总分="; s Print "平均分="; s \/ n Print "最高分="; Max Print "最低分="; Min Print " 90 ~ 100 : "; a(9)For i = 8 To 6 Step -1 Print i * 10; "~"; i * 10 + 9; ": "; a(i)Next i Print " 0 ~ 59 :"; a(5)End Sub ...
excel Microsoft Visual Basic 如何使用?
首先点击菜单栏【工具】-【宏】-【Visual Basic编辑器】。然后就会弹出Visual Basic编辑窗口，如图所示。双击左侧你需要编辑代码的excel对象，以sheet2为例子，如图双击sheet2.在弹出编辑框中，输入代码，一般以sub开头，end sub结尾。在左下角的sheet2属性框中，可以调整各种属性值。全部编辑好后，全选你...
如何用visual basic 查询excel表格内容,希望根据条件查询表格中符合条件...
你是要用VBA,还是要在VB里调用Excel呢 写了一段在VB里调用Excel 的代码,希望对你有帮助 Private Sub Command1_Click()Dim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetSet xlApp = CreateObject("Excel.Application")Set xlBook = xlApp.Workbooks.Open(...
excel中没有的函数怎么添加
为了在Excel中添加没有的函数，可以使用Visual Basic for Applications（VBA）编程语言编写自定义函数。步骤如下：首先，打开Excel并按下“ALT”和“F11”键，以打开VBA编辑器。在VBA编辑器的“插入”菜单中，选择“模块”。在模块中编写自定义函数的代码。例如，以下代码用于创建计算两个数字平均值的自...
如何在vb6中使用求平均值函数
假定用Combo1、Combo2、Combo3这三个ComboBox来显示三个数字，求平均值：PrivateSubCommand_Click()'点击“平均值”按钮Label1.Caption=(Val(Combo1.Text)+Val(Combo1.Text)+Val(Combo1.Text))\/3EndSubVisualBasic6.0是微软公司开发的编程设计软件，基于Windows操作系统可视化编程环境。VisualBasic6.0...
EXCEL怎么自定义函数
在EXCEL可以设置自定义函数来进行运算数据，EXCEL怎么自定义函数，现在来讲讲在EXCEL自定义函数的方法。首先打开EXCEL表格 然后点击开发工具，选择VisualBasic。右击VBAPorject选择插入，再点击模块。在窗口输入 Function三项合并计算(a,b,c)三项合并计算=(a\/b+c)EndFunction 然后在EXCEL单元格中输入=三项合并...
