Excel：如何將“活動單元”調用到單元格

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