有B,C,D,E,四列数字.G列公式=A1+1 ,请问用vba怎么让J=C1+1,M=D1+1,P=E1+1?要代码哦.
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/26 11:42:57
有B,C,D,E,四列数字.G列公式=A1+1 ,请问用vba怎么让J=C1+1,M=D1+1,P=E1+1?要代码哦.如图:
![](http://img.wesiedu.com/upload/6/d9/6d9115be884a9ef169df3ceecde52ce3.jpg)
![](http://img.wesiedu.com/upload/6/d9/6d9115be884a9ef169df3ceecde52ce3.jpg)
![有B,C,D,E,四列数字.G列公式=A1+1 ,请问用vba怎么让J=C1+1,M=D1+1,P=E1+1?要代码哦.](/uploads/image/z/17360905-49-5.jpg?t=%E6%9C%89B%2CC%2CD%2CE%2C%E5%9B%9B%E5%88%97%E6%95%B0%E5%AD%97.G%E5%88%97%E5%85%AC%E5%BC%8F%3DA1%2B1+%2C%E8%AF%B7%E9%97%AE%E7%94%A8vba%E6%80%8E%E4%B9%88%E8%AE%A9J%3DC1%2B1%2CM%3DD1%2B1%2CP%3DE1%2B1%3F%E8%A6%81%E4%BB%A3%E7%A0%81%E5%93%A6.)
中间这么写
sub abc()
For n = 1 To 20
Range("G" & n).FormulaR1C1 = "=RC[-5]+1"
Range("J" & n).FormulaR1C1 = "=RC[-7]+1"
Range("M" & n).FormulaR1C1 = "=RC[-9]+1"
Range("P" & n).FormulaR1C1 = "=RC[-11]+1"
Next n
end sub
再问: 你写个完整的过来好吗?谢谢
再答: 完整了啊
你表达得就是这些。。。
再问: 代码是对的。谢谢。再请问下,代码中-5,-7,-9,-11是什么意思。怎么得出来的?
再答: 5是B列和G列的间距
以此类推
sub abc()
For n = 1 To 20
Range("G" & n).FormulaR1C1 = "=RC[-5]+1"
Range("J" & n).FormulaR1C1 = "=RC[-7]+1"
Range("M" & n).FormulaR1C1 = "=RC[-9]+1"
Range("P" & n).FormulaR1C1 = "=RC[-11]+1"
Next n
end sub
再问: 你写个完整的过来好吗?谢谢
再答: 完整了啊
你表达得就是这些。。。
再问: 代码是对的。谢谢。再请问下,代码中-5,-7,-9,-11是什么意思。怎么得出来的?
再答: 5是B列和G列的间距
以此类推
excel 里 if语句 有a1 b1 c1 d1 e1 f1 6个单元格.如果A1=1则C1-D1显示在F1否则显示C
在E列设置一个公式,如果A1=0则E1=0,A1>0则E1=C1,如果B1=0则E1=0,B1>0则E1=D1,如果A1
我想做个表,D1= C1+A1要么=C1-B1这个公式怎么列啊!
office2007 excel 条件格式 A B C D E 1 当E1>0时则A1\B1\C1\D1\E1的填充色为
EXCEL 公式简化 A1-B1=B1-C1,B1-C1=C1-D1,C1-D1=D1-E1,D1-E1=E1-F1
EXCEL中如果A1为空则B1=(C1+D1),否则=(C1+D1)+(E1+D1) 公式要怎么写?
怎样用matlab求A=【a b c d e;a1 b1 c1 d1 e1;a2 b2 c2 d2 e2;a3 b3 c
Excel中怎么让,应该怎么做f1=a1-b1+c1-d1+e1
如数字2,3,4,6,9分别在A1,B1,C1,D1,E1中为什么用函数公式=COUNTIF(A1:E1,{2,5,7}
怎么将E1中的公式简化的更短.E1==IF(COUNT(FIND(B$1,A1),FIND(C$1,A1),FIND(D
电子表格 怎么计算函数(a1+b1)40%+(c1+d1)30%+e1,公式怎么列?
怎么将E1中的公式简化的更短.E1=IF(COUNT(FIND(B$1,A1),FIND(C$1,A1),FIND(D$