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

阿米。。 · 发表于 2024-8-13 17:23

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

ww87725244 · 发表于 2024-8-13 17:29

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

阿米。。 · 发表于 2024-8-13 17:37

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 发表于 2024-8-13 17:29
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Columns("d:d"), Targe ...

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

阿米。。 · 发表于 2024-8-19 17:50

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

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

ww87725244 · 发表于 2024-8-19 17:54

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

阿米。。 · 发表于 2024-8-19 18:16

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

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

		自动登录	找回密码
密码			免费注册

[求助] 单击单元格返回指定单元格文本