VBA topformulaa用法的问题

来源：蜘蛛抓取(WebSpider) 时间：2018-07-22 17:45 标签： stirling formula
查看: 5215|回复: 3
如何用 VBA 判断单元格是否有公式？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: gvntw
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: &
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Q：如何用 VBA 判断单元格是否有公式？
A：可以利用 Range.HasFormula 属性来判断，代码如下：
Sub gvntw()
& & If Range(&A1&).HasFormula Then
& && &&&MsgBox &有公式&
& & Else
& && &&&MsgBox &没有公式&
& & End If
End Sub
初级三, 积分 485, 距离下一级还需 15 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
还是用定位功能方便啊.
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
用定位的方法并没有更简单，定位方法写的代码：Sub test()
& & Rem 定位公式单元格
& & Set FormulasCells = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)
& & Rem 取交集
& & Set c = Application.Intersect([a1], FormulasCells)
& & Rem 判断交集是否存在
& & If c Is Nothing Then
& && &&&MsgBox &A1没有公式&
& & Else
& && &&&MsgBox &A1有公式&
& & End If
End Sub复制代码
对我有用的代码!
中级三, 积分 1369, 距离下一级还需 81 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
原来hasformula是这样用的啊！我还以为后面要跟=true或是=false呢！
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byVBA Formula 自定义函数 参数如何使用对象或自定义变量。 如下执行,类型错误_百度知道
VBA Formula 自定义函数 参数如何使用对象或自定义变量。 如下执行,类型错误
Public Sub Test_Val()Dim ListVal As 概要报告
ListVal.int1 = 1
ListVal.int2 = 2
ListVal.int3 = 3Application.ActiveCell.Formula = &=GETCELL(&&& & ListVal & &&&,B6)&End Sub
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Dim ListVal As 概要报告没有这种类型
为您推荐：
其他类似问题
vba的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。关于excel的vba cells.formula的简单问题！！_百度知道
关于excel的vba cells.formula的简单问题！！
关于excel的vbacells.formula的简单问题！
如果单元格a1＝b1＋c1，那么可以用cells（1，1）.value＝cells(1,2).value cells(1,3).value实现，也可以这样：cells(1,1).formula＝&＝b1 c1&,这有个好处是公式能显示在屏幕上，当b1 c1更改时，a1也更改。问：如果...
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
假设 N 的值在你的控制之中，用以下 FOR 语句：Range(&A:A&).ClearContents
'清空原有公式for i=1 to Ncells(i,1).formula=&=B& & i & &+C& & inext
采纳率：47%
确实是简单的问题Hi我，详细解答 -----------------最简单的方法，excel的自动填充，可以用代码完成--------------sub
aa()'将A1的公式“=B1+C1”自动向下填充到A1:A10Range(&A1&).FormulaR1C1 = &=B1+C1&Range(&A1&).AutoFill Destination:=Range(&A1:A10&),Type:=xlFillDefaultend sub
那么你就通过编码去控制cell里的值就可以了啊Private Sub CommandButton1_Click()
Dim n As Long
Dim i As Long
n = InputBox(&输入行数&)
For i = 1 To n
Cells(i, 1) = &=b& & i & &+c& & i
Next iEnd Sub
鉴于你的N每次取值都不一样，合理的做法应是：dim n as longn = WorksheetFunction.CountA(Columns(&A:A&）
'得到你的数据行数，也就是N值然后结合一楼的方法即可。
其他2条回答
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 stirling formula 的文章

 

随机推荐