用VBA在单元格中输入普通公式
来源：& 作者：admin
'1、用VBA在单元格中输入普通公式
&&&& Sub t1()&&&&&& Range("d2") = "=b2*c2"&&&& End Sub&&&& &&&& Sub t2()&&&&& Dim x As Integer&&&&& For x = 2 To 6&&&&&& Cells(x, 4) = "=b" & x & "*c" & x&&&&& Next x&&&& End Sub
阅读： 次录入：
上一篇：下一篇：
相关新闻 & & &
本文评论 & & &
<img src="pic/face9.gif"
<img src="pic/face18.gif"
alt=""/点评：
字数 姓名：
尊重网上道德，遵守中华人民共和国的各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
本站有权在网站内转载或引用您的评论
参与本评论即表明您已经阅读并接受上述条款
本周热门新闻查看: 10584|回复: 9
请教vba中计算A列非空单元格个数的代码
初级二, 积分 104, 距离下一级还需 146 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
用代码求得A列非空单元格的个数，请帮忙设计下代码，谢谢！
详见附件！
20:59 上传
点击文件名下载附件
6.11 KB, 下载次数: 35
请教vba中计算A列非空单元格个数的代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
这样行不行？Sub A列非空单元格数量()
& & Debug.Print Columns(&a:a&).SpecialCells(xlCellTypeFormulas, 23).Count + 1
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
sub test
msgbox worksheetfunction.counta(range(&A:A&))
end sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 104, 距离下一级还需 146 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
这样行不行？Sub A列非空单元格数量()
& & Debug.Print Columns(&a:a&).SpecialCells(xlCellTypeFormulas, 23).Count + 1
biaotiger1 发表于
请问运行结果何处？
好像不能赋值给变量啊
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 104, 距离下一级还需 146 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
msgbox worksheetfunction.counta(range(&A:A&))
kevinchengcw 发表于
不行，将含有公式的&&单元格也计算进去了……
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
呵呵，您误导了所有人
如果只需要返回公式有结果的单元格个数，代码如下Sub A列非空单元格数量()
& & MsgBox Columns(&a:a&).SpecialCells(xlCellTypeFormulas, 1).Count + 1
End Sub复制代码另，如果需要将在对话框中显示结果，请将上面二楼中的debug.print 更改为msgbox。如下Sub A列非空单元格数量()
& & MsgBox Columns(&a:a&).SpecialCells(xlCellTypeFormulas, 23).Count + 1
End Sub复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
65536 - Application.WorksheetFunction.CountIf([a:a], &&)复制代码
学office，哪能不关注全网最大的Office类微博（新浪）
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
Sub TEST()
i = 0
For n = 1 To [a65536].End(3).Row
& & If Cells(n, 1) && && Then i = i + 1
Next n
MsgBox i
End Sub
复制代码这个测试通过了
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 104, 距离下一级还需 146 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢biaotiger和rongjun两位版主！搞定！
也谢谢kevin的热心帮助。不过你的代码相对有些长了，我需要的是对一个参数赋值。
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 288, 距离下一级还需 212 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
好好学习天天向上
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by查看: 4307|回复: 9
用VBA输入公式问题
输入公式后希望在没有身份证号码的相应&出生日期&列保留原出生日期,怎样才能实现?请高手指点
08:14 上传
点击文件名下载附件
9.42 KB, 下载次数: 44
Sub 计算出生年月()
Range(&J5&) = &=IF(OR(LEN(I5)=18,LEN(I5)=15),TEXT(MID(I5,7,6+(LEN(I5)=18)*2),&&#-00-00&&)+0,&&&&)&
Range(&J5:J& & [i65536].End(xlUp).Row).FillDown '向下填充公式
End Sub复制代码
学习了，最近刚学过，但是不用就忘了
好像有点难实现吧。你在J列要输入公式，一下拉，原有的内容不就给填充了嘛。我用公式试了，好像不行，也许是我水平不够吧。等好方法。
Sub ek_sky()
Dim arr, i&, arr1(1 To 10000, 1 To 1)
arr = Range(&i4:I& & Cells(Rows.Count, &I&).End(xlUp).Row).Value
For i = 1 To UBound(arr)
& & If Len(arr(i, 1)) & 14 Then
& & arr1(i, 1) = Format(Right$(19 & Mid$(arr(i, 1), 7, Int(Len(arr(i, 1)) / 2.2)), 8), &#-00-00&)
& && &&&End If
Next i
Range(&J4:J10000&).ClearContents
Range(&J4&).Resize(UBound(arr)) = arr1
End Sub
复制代码
Sub ek_sky()
Range(&J4&) = &=if(len(i4)&14,text(mid(i4,7,len(i4)/2.2),&&#-00-00&&)*1,&&&&)&
Range(&j4:J& & Cells(Rows.Count, &I&).End(xlUp).Row).FillDown
End Sub复制代码
不用写填充那句，直接
Range(&j4:J& & Cells(Rows.Count, &I&).End(xlUp).Row)= &=if(len(i4)&14,text(mid(i4,7,len(i4)/2.2),&&#-00-00&&)*1,&&&&)&
这一句就可以填充到每个单元格了。
wayy 发表于
下面身份证号码空解决了,如果是中间空的怎样解决?
09:16 上传
点击文件名下载附件
8.96 KB, 下载次数: 25
中间空缺要回循环，逐个判断是否为空，然后再加公式&
Sub 计算出生年月1()
Range(&J4:J10000&).ClearContents
Range(&J4:J& & [i65536].End(xlUp).Row) = &=if(len(i4)&14,text(mid(i4,7,len(i4)/2.2),&&#-00-00&&)*1,&&&&)&
End Sub
复制代码
wgl309 发表于
下面身份证号码空解决了,如果是中间空的怎样解决?
我试了几次,没有成功,请帮忙把语句写出来看看,谢谢.
09:23 上传
点击文件名下载附件
8.96 KB, 下载次数: 20
17:48 上传
点击文件名下载附件
2.63 KB, 下载次数: 20
Powered by拒绝访问 |
| 百度云加速
请打开cookies.
此网站 () 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(38c8c18f61a64394-ua98).
重新安装浏览器，或使用别的浏览器查看: 10469|回复: 8
在VBA中怎么调用公式?
阅读权限50
在线时间 小时
在VBA中,我该怎么调用EXCEL的一些函数公式呢？比如，我要在表中用VBA求和，并把结果放在相应的单元格里：
(7.08 KB, 下载次数: 29)
09:57 上传
点击文件名下载附件
在VBA中怎么调用公式?
[此贴子已经被作者于 9:57:24编辑过]
09:44 上传
点击文件名下载附件
1.76 KB, 下载次数: 37
在VBA中怎么调用公式?
阅读权限20
在线时间 小时
录制宏。参考：sub m()&&&Cells(2, 2).FormulaR1C1 = "=SUM(RC[1]:R[25]C[5])"&& Cells(4, 2).FormulaR1C1 = "=AVERAGE(R[-2]C[1]:R[23]C[5])"End Sub
阅读权限50
在线时间 小时
有没有更好的办法?[em02]
阅读权限95
在线时间 小时
不知要把结果放在哪个单元格?
阅读权限95
在线时间 小时
代码:Private Sub CommandButton1_Click()Range("B2").Value = "=SUM(C2:G65536)"Range("B4").Value = "=AVERAGE(C2:G65536)"End Sub
阅读权限50
在线时间 小时
我希望得到的结果放在相应的单元格内,单元格只是结果,不包含公式,有没有什么办法呢,像楼上这位兄弟的做法,只是把公式放到了VBA里面去,呵,呵...我想在相应的单元格里放好几列数据的总和,怎么做呢?..哪位高手能再加指点?[em03]
阅读权限20
在线时间 小时
application.WorksheetFunction 调用相应的函数；例如application.WorksheetFunction .sum();
阅读权限50
在线时间 小时
auluola,谢谢你!我明白了,这样调用公式不错,让我感到柳暗花明又一村啦![em07]
阅读权限20
在线时间 小时
& & & & & & & &
对于刚接触ba，很多基础的都不知道啊`又学习了
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师