[已解决]不好意思，再次请教一个VB问题

gemeng25569

示例01.rar (116.17 KB, 下载次数: 6)

2011-7-24 14:07 上传

点击文件名下载附件
不好意思再次请教帮忙一个问题，
看附件EXCEL表格里添加了一些模块，

示例：
看附件表格：
黄色的单元格中添加了一些公式在里面，
但是SOURCE工作表中有个按钮，点击后将SOURCE工作表中的数据以SXD工作表的格式显示出来；可是我添加SXD工作表里公式就没了！

问题：1.如何将这4列里的公式也套用在模块里？点击“点击生成上线单”按钮时公式同样还成在！

发出总数量	理论剩余数量	MH 签发	SMT 签收	False Pict 盘点数量	盘点 数量	迁移 数量	盘点累计数量	生产 损耗
400	80			70			70	10
0	-760						0	-760
0	-680						0	-680
0	-320						0	-320
0	-320						0	-320
0	-180						0	-180
0	-80						0	-80

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-7-24 18:25

在sxd程序最后添加：
Range("p4") = "=SUM(G4:O4)"
Range("q4") = "=P4-E4"
Range("w4") = "=SUM(T4:V4)"
Range("x4") = "=Q4-W4"
Range("P4:Q4").AutoFill Range("P4:Q10")
Range("W4:X4").AutoFill Range("W4:X10")

跳转到最佳答案楼层

兰色幻想

在sxd程序最后添加：
Range("p4") = "=SUM(G4:O4)"
Range("q4") = "=P4-E4"
Range("w4") = "=SUM(T4:V4)"
Range("x4") = "=Q4-W4"
Range("P4:Q4").AutoFill Range("P4:Q10")
Range("W4:X4").AutoFill Range("W4:X10")

gemeng25569

回复 兰色幻想 的帖子

非常感谢！！！