VBA 怎么给把公式赋值到vba怎样给单元格赋值公式?

=(-B2+(B1*B1-4*B1*B3)^0.5)/2*B1&"/"&(-B2-(B1*B1-4*B1*B3)^0.5)/2*B1我理解你的意思是将单元格与对应的变量(如题目中的a\b\c)进行关联。方法是建立公式定义,比如要将A1单元格定义为变量a,即在单元格A1中输入内容,a变量会自动得到这个值,那么可以如下面方式操作。公式-定义名称或按CTRL+F3调出名称管理器,按新建可以输入名称和对应的引用位置。具体方法可以参照以下链接网页链接}

选择擅长的领域继续答题?
{@each tagList as item}
${item.tagName}
{@/each}
手机回答更方便,互动更有趣,下载APP
提交成功是否继续回答问题?
手机回答更方便,互动更有趣,下载APP
展开全部Sub 给单元格输入公式()With Sheets("st1")R_zj = WorksheetFunction.Match("总计*", .[B:B], 0)
'找到“总计”的行号.Cells(R_zj, 13).Formula = "=SUMIF($C$7:$C$" & R_zj - 1 & ",""*合计*"",$M$7:$M$" & R_zj - 1 & ")" '填入总计公式For i = 7 To R_zj - 1
.Cells(i, 13).Formula = "=RC[-1]*RC[-4]"
'填入非合计公式
If .Cells(i, 5) Like "小计*" Then
'填入小计公式R_xj = .Cells(i, 4).MergeArea.Rows.Count.Cells(i, 13).Formula = "=sum(R[" & 1 - R_xj & "]C:R[-1]C)"End If
If .Cells(i, 3) Like "合计*" Then
'填入合计公式R_hj = .Cells(i, 2).MergeArea.Rows.CountIf .Cells(i - 1, 5) Like "小计*" Then xj = 2 Else xj = 1 '判断是否有小计.Cells(i, 13).Formula = "=sum(R[" & 1 - R_hj & "]C:R[-1]C)/" & xjEnd If
Next iEnd With
End Sub已赞过已踩过你对这个回答的评价是?评论
收起
收起
1条折叠回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
为你推荐:
下载百度知道APP,抢鲜体验使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。扫描二维码下载
×个人、企业类侵权投诉
违法有害信息,请在下方选择后提交
类别色情低俗
涉嫌违法犯罪
时政信息不实
垃圾广告
低质灌水
我们会通过消息、邮箱等方式尽快将举报结果通知您。说明
}

我要回帖

更多关于 vba怎样给单元格赋值公式 的文章

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信