[已解决]关于target的问题求助！

hanyu286613818

见过很多的代码 ，MROW1 = target.Row
出现过很多的 “target”，谁能详细解释下 “target”的意义，怎么运用的呢！？

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-9-29 10:24

hanyu286613818 发表于 2012-9-28 11:25
我 有一段代码 谁能帮我重点 解释下里面的含义啊 包含 target我想这段代码 我能理解了，估计就通了，忘大 ...

对于事件的应用,若非必要,一般都需要在代码最前面添加一个判断
if target.count>1 then exit sub
也就是先判断操作的是不是一个单元格,如果不是,则不执行后面的代码

对于操作的是一个单元格区域,我们也需要执行后面的代码怎么办?
最基本的方法是用 for each 循环来遍历所有的单元格,在里面查找单元格信息,有没有符合执行条件的单元格被操作过

例如
for each t in target
   if t.column=1 then msgbox "第一列中的单元格被操作过!"
next

这样,我们可以不需要使用 On Error GoTo 100  
遇到错误跳转,虽然代码很少,但这是遇到所有的错误都会跳转
如果有是处理结果时遇到错误时,我们是不能让他跳转的,不然结果错了,你也不知道

下面是代码的解释,把单词分开来看,看懂每个的意思了,再组合到一起,就简单了!

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. ' On Error GoTo 100
   
4. Dim Mrow1 As Integer, Mrow2 As Integer, Mcol As Integer
   
5.     'Target = 当前操作单元格
   
6.     'row  = 行
   
7.     'column = 列
   
8.    
   
9.     Mrow1 = Target.Row  '提取当前操作单元的行
   
10.   If Target.Column = 1 And Len(Target) > 0 Then     '如果操作的是 第一列,并且 单元格中没有字符
    
11.     '如果操作的是一个单元格区域,这里会报错
    
12.        Mrow2 = Range("H:H").Find(Target).Row    '在 H 列中查找 当前操作单元格里内容的,并且返回他所在行
    
13.        '如果操作的是一个单元格区域,这里会报错误
    
14.        '如果没有找到对应的内容,也会报错误
    
15.       
    
16.        Mcol = Range("i" & Mrow2).Interior.ColorIndex    '提取 单元格的颜色
    
17.        '这里可以改为
    
18.        Set c = Range("H:H").Find(Target)   '使用一个变量来读取这个查找的对像
    
19.        '如果找到有,C 就不会是 nothing ,所以用个判断,可以防止后面的错误
    
20.        If Not c Is Nothing Then     '如果存在,就读取单元格的颜色,并应用这个颜色
    
21.         Mcol = c.Interior.ColorIndex
    
22.         Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = Mcol
    
23.        End If
    
24.   Else
    
25.    Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = 0
    
26.   End If
    
27. End Sub
    

复制代码

跳转到最佳答案楼层

爱疯

target，表示当前选中的单元格区域。

建议在论坛中搜索“target”，有很多对此的理解和运用实例。

hanyu286613818

爱疯 发表于 2012-9-28 11:04
target，表示当前选中的单元格区域。

建议在论坛中搜索“target”，有很多对此的理解和运用实例。

恩  谢谢  我之前没搜索到，后来有突然搜索到了 晕！正在使用或者编辑的当前单元格或者区域 可以这么说吗？

豆丁

target是工作表事件中的一个变量， 是表示单元格的，在工作表选中事件中表示当前选中的单元格，在工作表改变事件中表示当前改变的单元格，不在事件过程没有用.
比如：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

爱疯

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     MsgBox "Selection:" & Selection.Address(0, 0) & vbCrLf & _
   
3.            "   Target:" & Target.Address(0, 0)
   
4. End Sub

复制代码

工作簿2.rar (7.83 KB, 下载次数: 1)

2012-9-28 11:15 上传

点击文件名下载附件

这例子说明这里target相当于selection，Selection 属性返回代表活动工作簿中活动工作表上的当前选定区域的对象。

hanyu286613818

爱疯 发表于 2012-9-28 11:22
这例子说明这里target相当于selection，Selection 属性返回代表活动工作簿中活动工作表上的当前选定区域 ...

我 有一段代码 谁能帮我重点 解释下里面的含义啊 包含 target

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. ' On Error GoTo 100
   
4. Dim Mrow1 As Integer, Mrow2 As Integer, Mcol As Integer
   
5.     Mrow1 = Target.Row
   
6.   If Target.Column = 1 And Len(Target) > 0 Then
   
7.        Mrow2 = Range("H:H").Find(Target).Row
   
8.        Mcol = Range("i" & Mrow2).Interior.ColorIndex
   
9.        Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = Mcol
   
10.   Else
    
11.    Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = 0
    
12.   End If
    
13. Exit Sub
    
14. 100:
    
15.   Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = 0
    
16. End Sub
    

复制代码

我想这段代码 我能理解了，估计就通了，忘大家指导啊

爱疯

target.row
表示所选单元格区域的行号

Target.Column = 1
表示所选择的列号等于1，意味选择的是A列

Len(Target)
选择的单元格的字符数目，如果这个数目大于0，意味输入了字符

无聊的疯子

hanyu286613818 发表于 2012-9-28 11:25
我 有一段代码 谁能帮我重点 解释下里面的含义啊 包含 target我想这段代码 我能理解了，估计就通了，忘大 ...

对于事件的应用,若非必要,一般都需要在代码最前面添加一个判断
if target.count>1 then exit sub
也就是先判断操作的是不是一个单元格,如果不是,则不执行后面的代码

对于操作的是一个单元格区域,我们也需要执行后面的代码怎么办?
最基本的方法是用 for each 循环来遍历所有的单元格,在里面查找单元格信息,有没有符合执行条件的单元格被操作过

例如
for each t in target
   if t.column=1 then msgbox "第一列中的单元格被操作过!"
next

这样,我们可以不需要使用 On Error GoTo 100  
遇到错误跳转,虽然代码很少,但这是遇到所有的错误都会跳转
如果有是处理结果时遇到错误时,我们是不能让他跳转的,不然结果错了,你也不知道

下面是代码的解释,把单词分开来看,看懂每个的意思了,再组合到一起,就简单了!

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3. ' On Error GoTo 100
   
4. Dim Mrow1 As Integer, Mrow2 As Integer, Mcol As Integer
   
5.     'Target = 当前操作单元格
   
6.     'row  = 行
   
7.     'column = 列
   
8.    
   
9.     Mrow1 = Target.Row  '提取当前操作单元的行
   
10.   If Target.Column = 1 And Len(Target) > 0 Then     '如果操作的是 第一列,并且 单元格中没有字符
    
11.     '如果操作的是一个单元格区域,这里会报错
    
12.        Mrow2 = Range("H:H").Find(Target).Row    '在 H 列中查找 当前操作单元格里内容的,并且返回他所在行
    
13.        '如果操作的是一个单元格区域,这里会报错误
    
14.        '如果没有找到对应的内容,也会报错误
    
15.       
    
16.        Mcol = Range("i" & Mrow2).Interior.ColorIndex    '提取 单元格的颜色
    
17.        '这里可以改为
    
18.        Set c = Range("H:H").Find(Target)   '使用一个变量来读取这个查找的对像
    
19.        '如果找到有,C 就不会是 nothing ,所以用个判断,可以防止后面的错误
    
20.        If Not c Is Nothing Then     '如果存在,就读取单元格的颜色,并应用这个颜色
    
21.         Mcol = c.Interior.ColorIndex
    
22.         Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = Mcol
    
23.        End If
    
24.   Else
    
25.    Range(Cells(Mrow1, 1), Cells(Mrow1, 3)).Interior.ColorIndex = 0
    
26.   End If
    
27. End Sub
    

复制代码