[已解决]怎样修改附件里的程序实现将单元格里的公式一起复制过去？

qixueli001 · 发表于 2013-7-27 12:34

   附件的表格可以实现当选中每行后面的复选框后，复制A:D的内容到sheet2中，当去掉复选框里的√后，撤销复制。（这是dongqing1998前辈帮忙实现的）
   但现在的问题时，复制的时候，能不能把单元格的公式复制过去呢？后面的VBA该怎么修改？如果需要将单元格的格式（例如行高，字体等等）也复制过去，又需要怎么修改，谢谢！（或是不用修改程序，直接写一个新程序来满足要求即可）
   求各位大神帮帮忙，非常感谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-27 13:40

读取的时候用formula属性。

Sub copyData()
Dim mydata, arr(), i%, j%, k%, Total%
mydata = Range("a2:d" & Range("a65536").End(3).Row).Formula
Sheet2.Range("a2:d9999").ClearContents
' For Each ctl In Shapes
' If InStr(ctl.OLEFormat.Object.Name, "CheckBox") Then
' Total = Total + 1
' End If
' Next
For i = 1 To 5 'Total
If ActiveSheet.OLEObjects("CheckBox" & i).Object Then
k = k + 1
ReDim Preserve arr(1 To 4, 1 To k)
For j = 1 To 4
arr(j, k) = mydata(i, j)
Next
End If
Next
If k Then Sheet2.Range("a2").Resize(k, 4).Formula = Application.Transpose(arr)
End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy · 发表于 2013-7-27 13:40

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

读取的时候用formula属性。

Sub copyData()
Dim mydata, arr(), i%, j%, k%, Total%
mydata = Range("a2:d" & Range("a65536").End(3).Row).Formula
Sheet2.Range("a2:d9999").ClearContents
' For Each ctl In Shapes
' If InStr(ctl.OLEFormat.Object.Name, "CheckBox") Then
' Total = Total + 1
' End If
' Next
For i = 1 To 5 'Total
If ActiveSheet.OLEObjects("CheckBox" & i).Object Then
k = k + 1
ReDim Preserve arr(1 To 4, 1 To k)
For j = 1 To 4
arr(j, k) = mydata(i, j)
Next
End If
Next
If k Then Sheet2.Range("a2").Resize(k, 4).Formula = Application.Transpose(arr)
End Sub

复制代码

hwc2ycy · 发表于 2013-7-27 13:41

这样读和写的就是公式。

qixueli001 · 发表于 2013-7-27 14:24

hwc2ycy 发表于 2013-7-27 13:41
这样读和写的就是公式。

谢谢版主，但是我想实现复制到sheet2中的内容，如果更改sheet2中的数量后，价格能自动更新啊。这样更改能实现吗？
我试了一下，好像不行，除非再勾选一个复选框或是去掉一个复选框里的√，才能刷新。

对不起，第二页的内容没改过来。现在更改过来了，重新上传一次附件。

maicao1986 · 发表于 2013-7-27 15:06

3喽正解！~

qixueli001 · 发表于 2013-7-27 15:19

maicao1986 发表于 2013-7-27 15:06
3喽正解！~

不太明白你的意思。能将附件修改修改传上来吗？我自己尝试了都不行啊。
其实我的想法也很简单，就是对于复制过去的数据，比如要修改数量，我希望在sheet2中直接修改，价格也就跟着变化（如果公式复制过去了，就可以实现）

maicao1986 · 发表于 2013-7-27 15:34

请见附件。

qixueli001 · 发表于 2013-7-27 15:43

maicao1986 发表于 2013-7-27 15:34
请见附件。

嗯，谢谢！是我的疏忽，漏了一个关键字。

maicao1986 · 发表于 2013-7-27 17:44

qixueli001 发表于 2013-7-27 15:43
嗯，谢谢！是我的疏忽，漏了一个关键字。

呵呵，好，我还没有毕业，不能加好友哈~等我经验到100了再加你~

		自动登录	找回密码
密码			注册

[已解决]怎样修改附件里的程序实现将单元格里的公式一起复制过去？

相关帖子

评分