如何使用VB编程语言对Excel进行数据关联并进行Excel表中的数据累加统计计算和显示指定数据
统计累加列H和I两列，此两列被合并单元格作为一项数据的承载列，要求将承载列中所有有数据的格数进行个数累加统计（即数据格为非空），起始统计行数为第七行，终止行是变量（因为是多表同规格的数据统计）。并且显示累加结果。此外，显示AE至AH列和AI至AR列的第二行和第三行数据（AE至AH列合并单元格作为同一数据承载格，AI至AR同上）。
我Excel基本不会用，本来想用VB的2维数组定位，结果发现根本不行，Excel表的数据跟VB的变量匹配不上，请高手指教。用Excel自带VB编辑器边的也行。
代码请给详细，谢谢。
表中所用的统计是=COUNTIF(H7:I60,"*")
简单说就是用VB对Excel表中的特定列H和I（H和I合并单元格对同一数据进行承载）中的所有有数据的格数进行累加求和，并显示累加结果，此外显示AE至AH列和AI至AR列的第二行和第三行数据（AE至AH列合并单元格作为同一数据承载格，AI至AR同上）。
估计没人看得懂你要做什么。
请问如何用vb提取excel表格中的数据请问如何用vb提取excel表格中的数据...
首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据Dim scxls As Excel.ApplicationDim scbook As Excel.WorkbookDim scsheet As Excel.Worksheet‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.AddSet scbook = scxls.Workbo...
如何对excel的数据运用VB程序计算,最后在excel显示
1、直接在VB中生成Excel.Application对象，可以隐藏打开也可以显示打开 2、然后再通过这个excel对象，打开相应的文档或者获取相应需要计算的数据，3、在excel中调用VBA进行计算；4、在excel中显示出计算结果。给你一段我的代码，代码在excel200／XP／2003之下都可以正常运行，2003之后，我没试过，但理论上应...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
如何用vb实现在EXCEL中自动计算加减乘除?
打开Excel，并按下Alt+F11键，打开VBA编辑器。在左侧的项目资源管理器中，双击要运行代码的工作簿，以展开其目录。右键单击"Microsoft Excel Objects"文件夹，选择"插入"->"模块"，在项目资源管理器中会出现一个新的模块。在右侧的代码窗口中，将上述代码复制粘贴到新模块中。修改代码中的运算符和列号...
VB中怎么查询EXCEL表中的数据并把相同的数据相加
k = App.Path & "\\1.xlsx" '这里是路径自己修改Set Excelapp = CreateObject("Excel.Application")Set oBook = Excelapp.Workbooks.Open(k, missing, True) Set XlsSheet = oBook.Worksheets(1) '这里的1表示第一个表格.如果不是可以自己修改 nr = XlsSheet.UsedRange.Rows.Count For I ...
如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果
Set xlBook = xlApp.Workbooks.Open(App.Path + "\\" & ss) '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlsheet.Activate '激活工作表 '---正式统计数量 Text1.Text = xlsheet.UsedRange.Cells.Rows.Count sun = xlsheet.UsedRange.Cells.Rows.Count For i = ...
vb数据写入excel,请问如何用vb提取excel表格中的数据有一ex
1.选择”开发工具“选项卡，点击”Visual Basic“（或者用快捷键Alt+F11）2.出现VBA编辑界面，注意看左侧，选择需要运行代码的工作表，此例为Sheet1；双击进入Sheet1相关程序编辑界面 3.在程序编辑区域，复制上上述代码 4.点击上面的三角号，运行程序 5.关闭VBA界面，返回工作表，就可以看到程序运行结果...
vb中怎么读取excel中的所有有效内容,并获取有效行列数,之后将excel中...
Set ExcelSheet = ExcelBook.Worksheets(1)’现在就可以利用将excelsheet来读取所选的excel的行和列了。具体为：设置一个变量 dim k as integer，写一个循环以k=1到k=1000（假如你有1000行数据）比如我们读取b1-b1000的值那么就用text1.text=ExcelSheet.Range("b" & k).Value,然后在后面写一个...
VB中怎么实现对EXCEL表格的计算?
Open("C:\\Documents and Settings\\Administrator\\桌面\\aa.xls") '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlsheet.Activate '激活工作表 End If End Sub 然后你可以在vb里定义一个数组 将将excel里的数据赋值给它 就可以用了。。。具体方法你可以看看资料 ...
excel 用VB怎样计算和判断
Open("C:\\Documents and Settings\\Administrator\\桌面\\aa.xls") '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlsheet.Activate '激活工作表 End If End Sub 然后你可以在vb里定义一个数组 将将excel里的数据赋值给它 就可以用了。。。具体方法你可以看看资料 ...
