请教EXCEL 中用VBA输入递加公式的问题

答案:4 悬赏:0 手机版

解决时间 2021-03-23 15:40

提问者网友：趣果有间
2021-03-23 02:15

最佳答案

五星知识达人网友：夜风逐马
2021-03-23 02:25

Worksheets("非常用件订货管理").Cells(5, 11) = "=IF(J5="""",IF(I5="""",0,$C$1-I5),J5-I5)"
Worksheets("非常用件订货管理").Cells(5, 11).Copy Range(Cells(6, 11), Cells(20, 11))
第一句代码，在J5单元格设置公式，
第二句代码，将J5复制到J5 -J20区域。相当于你双击一样，只是这里直接指定范围而已，你可以修改后面那个cells（20，11）指定你要输入该公式的区域即可、

全部回答

1楼网友：污到你湿
2021-03-23 06:00

DIM Y AS LONG
Y=2 TO 100
这里是你自己写的代码
NEXT
END SUD

2楼网友：酒醒三更
2021-03-23 03:08

应设置单元格格式，因为你要使用VBA，应该知道如何打开。
你要处理的表的代码，复制代码如下：
私人小组Worksheet_Change（BYVAL目标为范围）
如果Target.Column = 1'在这里是在A列，并如果B列中的数字为2，所以
如果len（TRIM（Target.Value））<10的长度判断
Application.EnableEvents = FALSE暂时不再触发Change事件/> Target.NumberFormatLocal =“@”'设置单元格为文本格式，或其他自动0
Target.Value =格式（修剪“（Target.Value）000000000的＃;)的格式
Application.EnableEvents =

结束如果结束如果
END SUB

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息