excel宏 编写宏

excel宏 编写宏

方法一:单击【工具】菜单中的【宏】命令,或按【Alt+F8】组合健打开【宏】对话框,选中要查扮的宏,然后单击【编辑】按钮,即可打开要查粉的宏。

方法二:在Excel工作表界面下.按【AIt+F11】组合键,打开【Visual Basic编辑器】窗口,再打开【工程资源管理器】窗口,单击【模块】左边的【+】号.展开模块,然后双击【模块1】,或选中【模块1】再按【F7】键.或单击【工程资源管理器】中的查看代码按钮,打开要查看的宏。一般情况下,新录制的宏保存在【模块1】中。若有很多模块,而又不知道录制的宏保存在哪个模块中,可以双击每个模块进行查看。

看着挺麻烦 , 居然是 0分

把文件发给我啊

输入完成三个函数之后
选择d1,e1,f1三个单元格
然后把鼠标移到到f1右下角的小黑点处，光标会变成黑色十字光标。然后双击左键即可
简单得很

dim a as string,b as string,c as string
dim i as integer,j as integer
j = cells(65536,3).end(xlup).row
'返回第三列(C列)最后一个非空单元格行数
For i = 1 To j
a = WorksheetFunction.SumProduct((Range("B:B").Value = Cells(i, 3).Value) * (Range("A:A").Value > 12))
'返回公式SUMPRODUCT((B:B=C1)*(A:A>12%))的值
b = WorksheetFunction.CountIf(Range("B:B").Value, Cells(i, 3).Value)
'返回公式COUNTIF(B:B,C1)的值
c = WorksheetFunction.SumIf(Range("B:B").Value, Cells(i, 3).Value, Range("A:A").Value)
'返回公式SUMIF(B:B,C1,A:A)的值
Cells(i, 4).Value = a / b '取得D列第i行的单元格的值
Cells(i, 5).Value = c / b '取得E列第i行的单元格的值
Cells(i, 6).Value = b '取得F列第i行的单元格的值
Next