![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel
文章平均质量分 78
dnxk
这个作者很懒,什么都没留下…
展开
-
弯沉盆修正
作用:修正弯沉盆值,使其保持递减趋势。 Sub XiuZheng()'按公式修正 Application.ScreenUpdating = False Dim RowsCount As Long '总行数 Dim n As Integer '点数 RowsCount = ActiveSheet.UsedRange.Rows.Count For i = 2 To RowsCount If Ce原创 2013-01-01 21:45:16 · 731 阅读 · 0 评论 -
Excel VBA真正的动态数组实例
一、动态数组的定义 动态数组的定义,一开始不需要给数组标明上界和下界。直接定义即可,如下面的代码: Dim MyStr() As String 这样,就定义了一个动态数组及其名称:MyStr(),现在,该数组的上界下界都是个未知数,也就是说,数组中到底有没有内容或到底有什么内容,是个未知数。 因此,要使用动态数组,就必须对其定义好下界和上界。 二、给动态数组确定下界和上界 给动态数转载 2013-01-01 21:25:29 · 940 阅读 · 0 评论 -
宣芜高速公路取样点指标信息统计
目的:按方向、按路段、按指标统计宣芜高速公路取样点指标值中优、良、中、次、差所占的比例 Sub Rank() '按方向、路段统计行车道各路段在优、良、中、次、差中的比例 Dim SheetName(14) '存储所有工作表的名称 Dim TotalRows As Integer '每个工作表的总行数 Dim ColNum As Integer '各个工作表的名称装入数组 For i = 1原创 2012-12-19 20:47:17 · 660 阅读 · 0 评论 -
从Excel中导出图片
原文链接:http://www.vbforums.com/showthread.php?538529-Export-an-Image-from-Excel-Sheet-to-Hard-Drive Option Explicit 'You need to select a picture before running this code 'else it will give you error'转载 2013-03-08 22:36:34 · 512 阅读 · 0 评论 -
多工作表Excel文档模版的前处理
1、功能简介 在向多工作表(几十上百个)Excel文档模版输入数据时,进行包括清理内容、冻结标题行和定义名称等前处理操作。 2、代码 Option Explicit Sub PreTreatment() ' ' PreTreatment 宏 ' 删除第一、二行以外的数据; 冻结首行,即标题栏; 定义A1名称为当前工作簿名称; ' ' Dim i As Integer Fo原创 2013-05-13 11:57:42 · 431 阅读 · 0 评论 -
道路养护信息统计中可用的一些代码
1、清除数字格式 Sub ClearNumFormat() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Activate Range("E2").Select Range(Selection, Selection.End(xlDown)).Select原创 2013-05-16 11:32:18 · 818 阅读 · 0 评论