[已解决]请教有选择的复制问题

yizhih

请教《有选择的复制》问题。
有选择的复制.rar (8.32 KB, 下载次数: 6)

2013-6-4 15:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2013-6-4 15:28

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> "$AM$1" Then Exit Sub
   
4. Set r1 = Sheet3.Cells.Find(Target.Value, , , 1)
   
5. If Not r1 Is Nothing Then
   
6.     Sheet3.Range(r1.Address).Offset(1, 0).Resize(10, 6).Copy [am3]
   
7.     Sheet3.Range(r1.Address).Offset(18, 0).Resize(10, 6).Copy Sheet2.[am3]
   
8. End If
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> "$AM$1" Then Exit Sub
   
4. Set r1 = Sheet3.Cells.Find(Target.Value, , , 1)
   
5. If Not r1 Is Nothing Then
   
6.     Sheet3.Range(r1.Address).Offset(1, 0).Resize(10, 6).Copy [am3]
   
7.     Sheet3.Range(r1.Address).Offset(18, 0).Resize(10, 6).Copy Sheet2.[am3]
   
8. End If
   
9. End Sub
   

复制代码

wayy

有选择的复制.rar (13.14 KB, 下载次数: 3)

2013-6-4 15:35 上传

点击文件名下载附件

使用自定义名称简单

ligh1298

楼主，用VBA做的，要启用宏。当AM1单元格数据发生变化时，自动复制你想要的数据。

yizhih

蓝桥玄霜 发表于 2013-6-4 15:28

谢谢 蓝桥玄霜 老师，非常好。

yizhih

wayy 发表于 2013-6-4 15:36
使用自定义名称简单

谢谢 wayy 老师，这样代码是非常简单，学习了。

yizhih

ligh1298 发表于 2013-6-4 15:42
楼主，用VBA做的，要启用宏。当AM1单元格数据发生变化时，自动复制你想要的数据。

谢谢 ligh1298 老师，非常好。