Excel：如何将单元格称为“活动单元格”

我有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