如何实现单元格内容动态传递

wjmm

如何实现单元格内容动态传递，最好用函数


[ 本帖最后由 wjmm 于 2009-5-18 11:06 编辑 ]

snowya

用窗体控件配合函数吧？

单独的函数没有捕捉选定的单元格的

_s_bri

到VBA版块去咨询

mashxk

学习学习

yangrongguan

想法很别致,干嘛要这样呢...........

一意孤行

可以用vba实现。
右击工作表标签》查看代码》粘贴下面的代码即可

Public r As Long
Public t As String

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveCell
        Select Case .Column
            Case 1
                r = .Row
            Case 2
                t = .Value
            Case 3
                If r = 0 Then
                    MsgBox "没有选择A列单元格，请重新来过。"
                    Exit Sub
                End If
                Cells(r, 1) = t & .Value
                r = 0
        End Select
    End With
End Sub

[ 本帖最后由 一意孤行 于 2009-5-15 09:51 编辑 ]

wjmm

谢谢 一意孤行。
回5楼，现在有些人连字都不愿意打，

sh61029

想法别致！感觉没有多大用处，比复制、粘贴还复杂。