change函数中的target怎么对应到其他sheet的相应位置

kris2025

我想用change函数，当选择一片区域后，用其他sheet相应位置的内容覆盖当前target。怎么操作呢？

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     Application.EnableEvents = False
   
4.    
   
5.     If Target.Count > 1 Then      '如果选择了多个单元格，则报警并清除内容
   
6.         Target.Value = Sheet("备份").Target.Value
   
7.         MsgBox "请每个单元格单独填写！"
   
8.     Else
   
9.    
   
10.         If Target.Value >= 10 Then
    
11.             MsgBox "请填写小于10的数！"
    
12.             Target.Value = Sheet("备份").Target.Value
    
13.         End If
    
14.     End If
    
15.    
    
16.     Application.EnableEvents = True
    
17.    
    
18. End Sub

复制代码

活在理想的世界

SHEETS("表名").CELLS(target.ROW,target.COLUMN)

kris2025

这是单个单元格可以，但如果是相应的一片区域怎么处理？

kris2025

我按照下面的代码。如果在表格中选中一片区域，输入一个数值然后CTRL+回车，区域中的数值是一样的，都可第一个激活的单元格中的数值一样，这不是我想要的。我想让备份页中的所有对应位置的数值都对应显示出来。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. 
   
3.     Application.EnableEvents = False
   
4.    
   
5.     If Target.Count > 1 Then      '如果选择了多个单元格，则报警并清除内容
   
6.         Target.Value = Sheets("备份").Cells(Target.Row, Target.Column).Value
   
7.         MsgBox "请每个单元格单独填写！"
   
8.     Else
   
9.    
   
10.         If Target.Value >= 10 Then
    
11.             MsgBox "请填写小于10的数！"
    
12.             Target.Value = Sheets("备份").Cells(Target.Row, Target.Column).Value
    
13.         End If
    
14.     End If
    
15.    
    
16.     Application.EnableEvents = True
    
17.    
    
18. End Sub

复制代码

microyip

在SelectChange被触发时，Target可能存在三种情况
1、单个单元格，例如，B1
这时候Target就与Range("B1")或者Cells(1,2)等效
2、单一单元格区域，例如：B1:C2
这时候Target就包含了四个单元格，可以使用逐个单元格读取方式读取每个单元格

1.     Dim rRNG As Range
   
2.     For Each rRNG In Target
   
3.         Debug.Print rRNG
   
4.     Next

复制代码

3、多个单元格区域，例如：B1:C2,D3:E4
这时候，Target就包含了两个区，先把区读出，在区内再逐个单元格读取

1.     Dim rArea As Range, rRNG As Range
   
2.     For Each rArea In Target.Areas
   
3.         For Each rRNG In rArea
   
4.             Debug.Print rRNG
   
5.         Next
   
6.     Next
   

复制代码

kris2025

谢谢microyip！！！
按照你的方法就对了。