Excel 当焦点位于特定单元格时，在特定单元格中添加文本

当我在单元格E18上有我的“焦点”（所以当我单击此单元格时）时，如何在单元格C18中添加文本？ 在这里搜索其他问题时，我尝试了一些代码组合，但什么也没发生

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim ws As Worksheet:    Set ws = ThisWorkbook.Worksheets(1)
    Dim myCell As Range:    Set myCell = ws.Range("E18")
    Dim iSect As Range

    Set iSect = Application.Intersect(Target, myCell)

    'If the selection is not your cell, exit sub
    If iSect Is Nothing Then Exit Sub
        Range("$C$18").Value = "HERE IS THE TEXT I WANT"

End Sub

---

谢谢你的帮助

这在我的工作表上很有效。让我知道

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim trigger As Range
    Set trigger = Range("E18")

    If Intersect(ActiveCell, trigger) Is Nothing Then Exit Sub

    If Not (Intersect(ActiveCell, trigger) Is Nothing) Then
        Range("C18").Value = "Here is the text I want"
    End If

End Sub

---

你的代码看起来不错。您是否已将其放置在正确的工作表模块中并检查了

应用程序。enableevents=true

？如果不是，请尝试

iSect为Nothing Then Range（$C$18”）。Value=“这是我想要的文本”End If

也

Set ws=ActiveSheet

您是否可以使用类似

If Target.Address（false，false）=“E18”然后是Range（“C18”）的东西.Value2=“这是我想要的文本”

-如果您只想单击单元格

E18

并发生一些事情，则无需测试选择范围。此代码是否是工作簿的第一个工作表（即在

ws

中）？您可能想考虑特殊对象<代码> Me>代码>例如，代码>设置MyCys= Me.Lead（“E18”）将使代码中的工作表的E18成为E18。@ JavaCART对于单个单元来说很好，但是如果选择C17:F20（多小区选择），会发生什么情况，或者如果要为一系列不同的单元格运行代码？在这两个示例中，

Application.Intersect

是一个更好的选择。我复制粘贴您的文本，但它不起作用：（不再发生任何情况。此代码位于“模块”中，是否应将其移动到特定的工作表中？以及“””选项显式“''这是我的“完整模块”如何代码我有atm，可能是函数导致了一些问题？

函数LastSavedTimeStamp（）作为日期LastSavedTimeStamp=ActiveWorkbook.BuiltinDocumentProperties（“上次保存时间”）结束函数选项显式私有子工作表更改（ByVal目标作为范围）Dim触发器作为范围集触发器=范围（“E18”）如果Intersect（ActiveCell，触发器）为空，则退出Sub，如果Intersect（ActiveCell，触发器）为空，则退出Range（“C18”）。Value=“这是我想要的文本”End If End Sub

我使用代码的方式是：右键单击工作表选项卡->查看代码。然后从两个下拉列表中选择。1）选择工作表，然后2）选择SelectionChange。然后将代码粘贴到主体中