GIS资讯 GIS技术 GIS产品 GIS书籍 GIS下载 GIS知识 GIS论文 GIS考研 GIS人物 GIS企业 GIS招聘 GPS相关 RS 相关 3D 相关 测绘相关 GIS博客 招标信息
您当前的位置:GIS资讯小组资讯中心GIS论文 → 资讯内容
Google
Excel VBA编程的常用代码
作者:佚名  来源:不详  更新时间:2008-1-3 11:25:53

减小字体 增大字体

  


                       
要使用宏,请执行以下步骤:
1. 打开包含数据的工作簿。
2. 按 ALT+F11 组合键激活“Visual Basic 编辑器”。
3. 在“插入”菜单中,单击“模块”以插入一个模块。在模块的代码窗口中键入上面的宏。
4. 单击“文件”菜单中的“关闭并返回到 Microsoft Excel”。
5. 选择包含要合并的数据的工作表。
6. 单击要合并的右侧数据列的第一个单元格。例如,如果单元格 A1:A100 和 B1:B100 包含数据,则单击单元格 B1。
7. 在“工具”菜单中,指向“宏”并单击“宏”。选择 ConcatColumns 宏并单击“运行”。
注意:可以用语句 ActiveCell.Offset(0, 1).Formula 替换语句 ActiveCell.Offset(0, 1).FormulaR1C1。如果仅使用文本和数字(不包含公式),那么两个语句的效果相同。第一个语句末尾使用的 R1C1 表示第一行的第一列,这是 Excel 帮助主题中大多数示例使用的形式。
 
数组中的总行数和总列数
在 Excel 中,可以使用数组来计算和操作工作表中的数据,还可以使用宏将某个范围内的单元格中的值存储到一个数组中。本节中的示例宏代码将在一个矩形单元格区域中添加一行和一列,以包含该区域中每一行和每一列中的单元格总数。
具体的步骤是,代码从活动工作表上活动单元格周围的当前单元格区域中读取数据。宏将这些数据存储在一个数组中,计算每一行和每一列中的单元格总数,然后将输出显示在工作表中。数组的大小由当前区域中的单元格数量决定。
注意:此宏不会在工作表中添加任何公式,因此如果该范围内的单元格总数有变化,则必须重新运行宏。
使用以下示例之前,请执行以下步骤:
1. 打开一个新工作簿。
2. 在“工具”菜单中,指向“宏”,然后单击“Visual Basic 编辑器”(或者简单地按下 ALT+F11 组合键)。在“Visual Basic 编辑器”中的“插入”菜单中,单击“模块”。
将以下示例代码键入或粘贴到模块中:
Sub TotalRowsAndColumns()
                                    ' 此宏假定您已从
                                    ' 要计算单元格总数的矩形区域内
                                    ' 选择了一个单元格或一组单元格。行和列的单元格总数将出现在
                                    ' 当前区域下面的行和右侧的列中。
                                    Dim r As Integer
                                    Dim c As Integer
                                    Dim i As Integer
                                    Dim j As Integer
                                    Dim myArray As Variant
                                    ' 将 myArray 声明为变量将使数组可以接收
                                    ' 一组单元格。此时,数组将自动转换为
                                    ' 以下标 myArray(1,1) 开始的数组。
                                    ' 指当前所选单元格周围的区域。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  下一页



[] [返回上一页] [打 印]
资讯评论 (评论内容只代表 GISTM 网友观点,与本站立场无关!)

用户名: * 查看 GISTM 更多评论

分 值:100分 85分 70分 55分 40分 25分 10分 0分

内 容:

         ( 注意“*”必填,请自觉遵守法律法规!) 验证码: 验证码,看不清楚?请点击刷新验证码

推荐文章/热门文章
相关文章/相关下载
关于本站 - 免责声明 - 帮助(?) - 友情连接 - 网站地图 - 网站留言