Question

我有Excel 2013

目前我有一个代码可以点击任何单元格，并将其内容显示给另一个单元格。

我在互联网上挖掘了下面的代码。

在这种情况下，如何每次要更改位置（b15）时，如何使用自定义公式调用此单元格而不是编辑代码？

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
Range("B15").Value = Target.Value
End If
End Sub

提前谢谢。

Answer 1

在标准模块中包括：

Public Function ShowMe() As Variant
    Application.Volatile
    ShowMe = ActiveCell.Value
End Function

并在工作表代码区中包含：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Calculate
End Sub

Excel：如何将“活动单元”调用到单元格

1 个答案: