excel怎么利用VBA让满足条件的单元格自动等于另一个单元格? 20

如图:如果A2=1,那么A3就等于A1,A2不等于1的话,A3当前的数值不变依次B2=1,那么B3就等于A1,B2不等于1的话,B3当前的数值不变这样依次类推... 如图:如果A2=1,那么A3就等于A1,A2不等于1的话,A3当前的数值不变依次B2=1,那么B3就等于A1,B2不等于1的话,B3当前的数值不变这样依次类推 展开
 我来答
阳光上的桥
2018-07-10 · 知道合伙人软件行家
阳光上的桥
知道合伙人软件行家
采纳数:21424 获赞数:65786
网盘是个好东东,可以对话和传文件

向TA提问 私信TA
展开全部

循环判断第2行,把是1的数字的下一行单元格修改为A1值,宏代码如下:

Sub 宏1()
    Dim arr,j
    arr=activesheet.usedrange
    for j=1 to ubound(arr,2)
        if arr(2,j)=1 then arr(3,j)=arr(1,1)
    next j
    activesheet.usedrange=arr
End Sub
追问
这个怎么变成自动的?就是第2行我只要输入数据,就会自动计算?
劳烦您了!
追答

那需要设置到工作表的事件代码上,如下图:

希望以后提问一次性说清楚,打代码确实比较费时,重来一次比较不爽

推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式