单击单元格返回指定单元格文本

阿米。。

各大神们，帮忙看看，需要解决2个问题，如图：

ww87725244

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Columns("d:d"), Target) Is Nothing Then
    Range("j1") = Target.Offset(, 3)
End If
End Sub

阿米。。

ww87725244 发表于 2024-8-13 17:29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Columns("d:d"), Targe ...

谢谢老师

阿米。。

ww87725244 发表于 2024-8-13 17:29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Columns("d:d"), Targe ...

老师，上面那个看不懂，所以不知道怎么参考，如果是跨工作表怎么写？

阿米。。

阿米。。 发表于 2024-8-19 17:49
老师，上面那个看不懂，所以不知道怎么参考，如果是跨工作表怎么写？

虽然可以用，但是看不明白。

ww87725244

需要把代码复制到需要呈现效果的工作表模块

阿米。。

ww87725244 发表于 2024-8-13 17:29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Columns("d:d"), Targe ...

老师，大致理解了，调整坐标引用数值。