[已解决]有个小插件需要老师帮忙写注解~~

lotgot

有个小插件需要老师帮忙写注解~~
请老师帮帮忙些个注解~看不明白呢~~

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then Range("E100").End(3)(2) = Target
   
3.     If Target.Column = 2 And Target.Count = 1 And Target.Row > 2 Then Range("F100").End(3)(2) = Target
   
4.     If Target.Column = 3 And Target.Count = 1 And Target.Row > 2 Then Range("G100").End(3)(2) = Target
   
5.     If Target.Column > 4 And Target.Column < 8 And Target.Count = 1 Then
   
6.         Target = ""
   
7.         C = Target.Column
   
8.         For I = Target.Row To Cells(100, C).End(3).Row
   
9.             Cells(I, C) = Cells(I + 1, C)
   
10.         Next
    
11.     End If
    
12. End Sub

复制代码

谢谢了哦

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-20 13:45

不知道这样写能不能明白：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     '当当所选前单元格所在列为A列，且选中的单元格个数为1个，同时该单元格的行号大于2时，将该单元格的值追加至E列
   
3.     '即实现单机A列除A1，A2单元格以往的任意单元格，将该单元格的值追加至E列末尾
   
4.     If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then Range("E100").End(3)(2) = Target
   
5.     '即实现单机B列除B1，B2单元格以往的任意单元格，将该单元格的值追加至F列末尾
   
6.     If Target.Column = 2 And Target.Count = 1 And Target.Row > 2 Then Range("F100").End(3)(2) = Target
   
7.     '即实现单机C列除C1，C2单元格以往的任意单元格，将该单元格的值追加至G列末尾
   
8.     If Target.Column = 3 And Target.Count = 1 And Target.Row > 2 Then Range("G100").End(3)(2) = Target
   
9.     '当单击选中E-G列中的任意一个单元格时执行清空当前所选单元格，且将下面的数据上移
   
10.     If Target.Column > 4 And Target.Column < 8 And Target.Count = 1 Then
    
11.         '清空当前单元格的值，使其为空
    
12.         Target = ""
    
13.         '取得当前单元格所在的列号
    
14.         C = Target.Column
    
15.         '通过for循环将当前单元格下面的值往上移动
    
16.         For I = Target.Row To Cells(100, C).End(3).Row
    
17.             Cells(I, C) = Cells(I + 1, C)
    
18.         Next
    
19.     End If
    
20. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

不知道这样写能不能明白：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     '当当所选前单元格所在列为A列，且选中的单元格个数为1个，同时该单元格的行号大于2时，将该单元格的值追加至E列
   
3.     '即实现单机A列除A1，A2单元格以往的任意单元格，将该单元格的值追加至E列末尾
   
4.     If Target.Column = 1 And Target.Count = 1 And Target.Row > 2 Then Range("E100").End(3)(2) = Target
   
5.     '即实现单机B列除B1，B2单元格以往的任意单元格，将该单元格的值追加至F列末尾
   
6.     If Target.Column = 2 And Target.Count = 1 And Target.Row > 2 Then Range("F100").End(3)(2) = Target
   
7.     '即实现单机C列除C1，C2单元格以往的任意单元格，将该单元格的值追加至G列末尾
   
8.     If Target.Column = 3 And Target.Count = 1 And Target.Row > 2 Then Range("G100").End(3)(2) = Target
   
9.     '当单击选中E-G列中的任意一个单元格时执行清空当前所选单元格，且将下面的数据上移
   
10.     If Target.Column > 4 And Target.Column < 8 And Target.Count = 1 Then
    
11.         '清空当前单元格的值，使其为空
    
12.         Target = ""
    
13.         '取得当前单元格所在的列号
    
14.         C = Target.Column
    
15.         '通过for循环将当前单元格下面的值往上移动
    
16.         For I = Target.Row To Cells(100, C).End(3).Row
    
17.             Cells(I, C) = Cells(I + 1, C)
    
18.         Next
    
19.     End If
    
20. End Sub

复制代码

lotgot

非常感谢老司机的帮忙~~~~