EXCEL中可否实现:双击某一单元格后,此单元格内容自动填充到另一指定单元格中?
例如:双击击B4:E6范围内某一单元格,其内容自动填在B2处;双击击B8:E10范围内某一单元格,其内容自动填在D2处。有无高手可实现这一功能?拜求实现方法,可email...
例如:双击击B4:E6范围内某一单元格,其内容自动填在B2处;双击击B8:E10范围内某一单元格,其内容自动填在D2处。有无高手可实现这一功能?拜求实现方法,可email:feiyu3507@163.com 非常感谢!
展开
展开全部
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Row
Case 4 To 6
Select Case Target.Column
Case 2 To 5
[B2] = Cells(Target.Row, Target.Column)
[B2].Select
End Select
Case 8 To 10
Select Case Target.Column
Case 2 To 5
[D2] = Cells(Target.Row, Target.Column)
[D2].Select
End Select
End Select
End Sub
'楼主试试吧。应该可以了。2003版Excel测试。。。。。。
Select Case Target.Row
Case 4 To 6
Select Case Target.Column
Case 2 To 5
[B2] = Cells(Target.Row, Target.Column)
[B2].Select
End Select
Case 8 To 10
Select Case Target.Column
Case 2 To 5
[D2] = Cells(Target.Row, Target.Column)
[D2].Select
End Select
End Select
End Sub
'楼主试试吧。应该可以了。2003版Excel测试。。。。。。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询