Question

我有一个动态表，该表根据B1的值而变化。我希望通过单击另一个工作簿中的另一个单元格来更改B1的值。我是VBA的超级新手，真的不知道自己在做什么。

我想要单击E列中的任何单元格，它将把B1的值更改为等于O列的值。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("E2:E")) Is Nothing Then
        Worksheets("Dynamic Table").Range("B1").Value = ActiveCell.Offest(0, 10)
        End If
    End If
End Sub

My Amateur Code

Answer 1

你的意思是那样吗

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 5 Then
        If Target.Cells.CountLarge = 1 Then
            Worksheets("Dynamic Table").Range("B1").Value = Target.Offset(, 10).Value
        End If
    End If
End Sub

我以为您是说另一本工作簿就是另一本工作表。

变更储存格价值

1 个答案: