[已解决]急求教：如何用VBA写点击后单元格能复制另一表的单元格内

whhy2009

在表1的A列中（行数不定），任意点击一单元格后（如：6789），就能在表2中的B30固定的单元格显示6789。谢谢哪位老师帮忙解决！

[此贴子已经被作者于2010-1-23 21:44:05编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-1-23 21:48

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 1 Then
        Sheet2.[b30] = Target
    End If
End If
End Sub

跳转到最佳答案楼层

枯禅

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Column = 1 Then
        Sheet2.[b30] = Target
    End If
End If
End Sub

喜多多

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
    Sheet2.Cells(30, 2) = Target.Value
End If
End Sub

whhy2009

   衷心感谢：楼上 枯禅老师的热心快肠帮助我解决了此问题！！！！

zgm1201

学习了！[em01]

xuexingxiang

[em01]