VBA中调用Excel函数

VBA中编写的事件，不断的触发循环：先程序开始时关闭 Excel.Application.EnableEvents =False；结束时打开：Excel.Application.EnableEvents =True

调用excel 函数：j= excel.Application.WorksheetFunction.vlookup() （on error resume next）

j= excel.Application.WorksheetFunction.xxxx

example:

求ExcelA列非空单元格:excel.Application.WorksheetFunction.CounA(Range("A:A"))

求ExcelA列男性个数:excel.Application.WorksheetFunction.Counif(Range("A:A"),"男")

求数组最大值，excel.Application.WorksheetFunction.Max(arr)

求数组最大值下标，excel.Application.WorksheetFunction.Match(Max(arr),arr）

求数组某个值（123）下标，excel.Application.WorksheetFunction.Match(“123”,arr）

Range("C3：G10").Rows("3:5").Select

Cells

UsedRange

ActiveSheet.Cells.Rows.Count

如果有空行，set r=ActiveSheet.UsedRange。i=r.Row+r.Rows.Count-1

ActiveSheet.Range("A65535").End(xlUp).Row

有空行总数，set r=Range("A" &Rows.Count).End(xlup)

r.Row

第一列的总行数：Cells(Rows.Count, 1).End(xlUp).Row

第一行的总数：Cells(1, Columns.Count).End(xlToLeft).Column

第AB列数值总和：

Dim xRng As Range
Set xRng = Range("AB1:AB" & lngTotal)
Sums = WorksheetFunction.Subtotal(9, xRng)

禁用弹出框： Application.DisplayAlerts = False

程序结尾要释放： Application.DisplayAlerts = True

禁用刷新：Application.ScreenUpdating = False

打开文件：Set Wb1 = Application.Workbooks.Open(sourcefile, False)

Set w1 = Workbooks.Open(source1)

拷贝文件：FileCopy Terget_file1, Terget_file

判断A1是合并单元格 If ThisWorkbook.Sheets("sheet1").Cells(1, 1).MergeCells Then
取合并单元格行数: merge_rows = ThisWorkbook.Sheets("sheet1").Cells(1, 1).MergeArea.Rows.Count
先取消合并: ThisWorkbook.Sheets("sheet1").Cells(1, 1).CurrentRegion.UnMerge
在原表头前插入一行:ThisWorkbook.Sheets("sheet1").Rows(1).Insert Shift:=xlDown
取单元格列数:Rollout_Plan_cl_count = ThisWorkbook.Sheets("sheet1").Cells(1, 1).CurrentRegion.Columns.Count

WorksheetFunction.CountA (Range("A:A"))

WorksheetFunction.Subtotal(9, xRng)

1 、1 AVERAGE（算术平均值）

2、 2 COUNT（数值个数）

3、 3 COUNTA（非真空单元格数量）

4 、4 MAX（最大值）

5 、5 MIN（最小值）

6 、6 PRODUCT（括号内所有数据的乘积）

7 、7 STDEV（估算样本的标准偏差）

8 、8 STDEVP（返回整个样本总体的标准偏差）

9、 9 SUM（求和）

10 、10 VAR（计算基于给定样本的方差）

11 、11 VARP（计算基于整个样本总体的方差）

带属性粘贴， Rang("A1").CurrentRegion.Copy

With sheets("Sheets2").Range("A1")

.PasteSpecial xlPasteColumnWiths

.PasteSpecial xlPasteAll

End With

粘贴后加减乘除：xlPasteSpecialOperationNone,xlPasteSpecialOperationAdd,xlPasteSpecialOperationSubtract,xlPasteSpecialOperationMultiply,xlPasteSpecialOperationDivide

排序：sort(key1,order1)

Range("A1").CurrentRegion.Sort key1:="mingzi", Order1:=xlDescending,Header:=xlYes

Range("A4：A10").Sort key1:="mingzi", Order1:=xlDescending,Header:=xlYes

透视图刷新：透视图中 active 时间 ActiveWorkbook.RefreshALL

第几周（周日开始）：Excel.Application.WorksheetFunction.WeekNum(Now() - 1)

第几周（周一开始）：Excel.Application.WorksheetFunction.WeekNum(Now() )

VBA中调用Excel函数相关推荐

python中execute函数_在excel中调用python函数
效果: 通过excel引用在py文件中写好的load_settle()函数,可以快捷的获取对应的历史结算价. 使用方法: 1.首先安装office,我用的是2016版本. 2.安装python,推荐使 ...
Excel计算年龄（足岁）问题：Excel中datedif和VBA中的datediff函数介绍
1.Excel中的datedif函数之前我通过身份证计算年龄时,都是取第7到10位,用当年的年份去减,得到一个年龄,这样不准确.后来,发现了datedif函数,注意,只有一个f. 函数语法: DAT ...
把Python函数转换成能在SQL语句中调用的函数
感谢中国传媒大学胡凤国老师提供的案例和第一版代码! 问题描述:把Python函数转换为能在SQLite数据库SQL语句中调用的函数,这样可以大幅度扩展SQL语句的功能. 演示代码: 运行结果: 今天公 ...
Iar环境c语言调用汇编函数,如何在IAR EWARM中通过内联汇编程序在另一个模块中调用C函数？...
我在硬故障处理程序中有一些程序集.程序集基本上是为了传递当前堆栈指针作为参数(在R0中).它看起来像这样...如何在IAR EWARM中通过内联汇编程序在另一个模块中调用C函数? __asm(&quo ...
C++中最好不要在构造函数和析构函数中调用虚函数！！！
1.最好不要在基类和派生类的构造和析构函数中调用虚函数,不会出现多态性实例如下: #include "iostream"using namespace std;class Bas ...
r语言中调用c 程序,如何在R程序包中调用C函数
程序包名称为pareto.这是.c文件中src目录:如何在R程序包中调用C函数 #include #include #include "Rinternals.h" #include ...
开机启动加载驱动过程中调用PostMessage函数出错
今天在WINCE5.0+S3C2440系统调试检测出租车是否载客的驱动的时候遇到这样的问题: 发现在开机启动加载驱动过程中调用PostMessage函数时会导致调用的线程崩溃,比如如果下面的线程在创建 ...
C# 构造函数中调用虚函数
C# 构造函数中调用虚函数 using System; using System.Diagnostics; using System.Text; using System.Collections; u ...
在.c文件中调用cuda函数
在.c文件中调用cuda函数 2014-04-19 17:17 446人阅读评论(0) 收藏举报分类: cuda编程(1) 版权声明:本文为博主原创文章,未经博主允许不得转载. 问题描述:假设在 ...

VBA中调用Excel函数

VBA中调用Excel函数相关推荐

最新文章

热门文章