用excel VBA编写程序实现输出指定函数到指定单元格怎么实现？（下附带详细说明，只需给出代码就行...）

实际目的是统计一次考试年纪排名中某个班级在前n名中所占有的人数，具体的数据信息下面都有，包括函数我也知道是填什么，但是我不怎么了解vba，不知道怎么通过一个按钮点击后实现下图的函数自动填写....求助
只要回答是可用的绝对及时采纳，答的好的加分，谢谢

举报该问题

推荐答案 2013-03-15

所谓的函数，就是复杂的公式。
我们在excel前台写公式的时候，会在前面写个=
同样，用vba写公式，也只要前面加个=就可以，唯一麻烦的是公式中双引号的处理。我们的方法时把双引号用一个常量来代替。
下面是举例
range("A1").Formula="=$A$4+$A$10"追问

按照你的示例，如果我想要自定义一个量（就是你示例中

range("A1").Formula="=$A$4+$A$10"

中的

A1 （注：就是range("这个值")）

为自定义的值，比如我在H2格（指定这个格的值为单机按钮后输出函数到的行）填写了1则为range("A1")，如果我在H2格填写6则为range("A6")（输出到A列，规定的是输出的行），应该怎么做？

谢谢，解决后一定加分.

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/jrnD0j0rI.html

其他回答

第1个回答 2013-03-14

看得不清不楚，你直接说你最终目的是什么。追问

函数懂了，就不懂如何用按钮执行VBA。

谢谢

追答

我知道你是要往单元格写入函数，如果我告诉你下面这个代码可以往 A列，H6指定的行的单元格写入等号后面的公式，我想也不能完全实现你要的效果，因为你公式还涉及到其他
Range("A" & Range("H6")).Formula = "=SUMPRODUCT((K4:K273<=100)*(K4:K273)*(A4:A273=3))"

追问

按照像您说的：
"A" & Range("H6")
这样的办法比葫芦画瓢修改后面的行吗？

追答

行不行就看你会不会改了，变量就是这样表示了。你自己试着改吧，不行再说。看不明白你的描述也没办法帮你改公式。
B2是范围，但是我不知道你是不是从K4开始。这里我认为是从K4开始了
把公式中，需要变量的地方用 “ & 变量 & ” 的格式代替。
刚才的有点错误，换下面这个，只有一行，不要分行写。
Range("A" & Range("H6")).Formula = "=SUMPRODUCT((K4:K" & Range("b2") + 4 & "0)*(A4:A" & Range("b2") + 4 & "=" & Range("F2") & "))"

本回答被提问者采纳

相似回答

请问excel中如何利用VBA,实现利用选中复选框(下拉框?)的内容,然后在指 ...答：将控件与单元格关联即可。右键设置控件格式。控制里，看到源数据区域，和单元格链接了么？分别指定即可。由于返回的是序号，用vlookup函数再查一下源数据区域表即可。

使用VBA在Excel按条件查找,怎么让查找的两个结果显示在一个表格中?答：下载文件：excel(成绩).xls|按你的意思编了一个简单的VBA程序，利用循环语句FOR……NEXT的嵌套就能轻松实现想要的结果，其代码如下：Public Sub ppp()Dim a As Integer a = [a65536].End(xlUp).Row For k = 2 To a Cells(k, "I") = Cells(k, "A")j = 0 u = 0 For b = 2 To...

EXCEL VBA 多关键字查询指定列数据并输出到只定列答：End Sub '函数作用:判断给定的字符串是否包含所有关键字，若是，返回True,否则返回FalseFunction SearchKey(strText As String) As Boolean For i = 0 To UBound(Keys)If InStr(1, strText, Keys(i)) = 0 Then '只要有一个关键字找不到，就退出 SearchKey = False Exit Function End If Nex...

vba读取同目录下excel指定列(后台打开,隐藏窗口)答：总结：其实VBA主要是触发和指定单元格。1.触发的原理其实很简单，大家可以选择不同的触发模式，试一下就知道是怎么回事了。2.至于怎么指定到单元格，大家可以看看cells语句和Range语句。补充说明： VBA不需要过于复杂的VB语句。你只需要知道VB怎么写怎加减乘除，怎么使用IF语句，就可以满足大部分的需求了。

大家正在搜

excel函数怎么用 excel函数if怎么使用 excel合并单元格怎么弄 excel单元格内换行 excel绝对引用怎么输入 inputbox函数编写程序单元格行高怎么设置 excel最常用的八个函数 excel两个单元格内容合并

用excel VBA编写程序实现输出指定函数到指定单元格怎么实现？（下附带详细说明 ，只需给出代码就行...）

用excel VBA编写程序实现输出指定函数到指定单元格怎么实现？（下附带详细说明，只需给出代码就行...）