[已解决]求助!!!

xkyxky0011

各位大侠好:
       小子是位新生,由于不懂VBA,初来乍到,不懂规矩,还请大人们海涵。请教问题如下：
1.表中I6以下做一个打勾单击选择，只能单选；
2.每当单击所选内容时,表中M3与R3内容先清除,然后再将选择内容同行的D列和E列内容分别返回到M3和R3;
例 如:在I6上单击下,先清除表格M3和R3内容,再将表格D6中的"DA014"返回到表格M3上,表格E6中的"1"返加到表格R3上;
小弟有急用,在这先谢谢各位大人了!!!
  

最佳答案

月排行榜 / 总排行榜

蓝桥玄霜

2012-11-16 17:08

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column <> 9 Or Target.Row < 6 Then Exit Sub
   
4. [m4] = "": [r4] = ""
   
5. [m4] = Target.Offset(0, -5).Value
   
6. [r4] = Target.Offset(0, -4).Value
   
7. Target = "√"
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

蓝桥玄霜

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column <> 9 Or Target.Row < 6 Then Exit Sub
   
4. [m4] = "": [r4] = ""
   
5. [m4] = Target.Offset(0, -5).Value
   
6. [r4] = Target.Offset(0, -4).Value
   
7. Target = "√"
   
8. End Sub
   

复制代码

xkyxky0011

谢谢蓝桥玄霜老师!