论坛 › Excel VBA开发 › 点击其它单元格后，自动把指定位置的数字显示到指定位置的代码，非常感谢！

lsyylw 发表于 2023-5-27 10:04

点击其它单元格后，自动把指定位置的数字显示到指定位置的代码，非常感谢！

zjdh 发表于 2023-5-28 13:08

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Count <> 1 Then Exit Sub
   If Target.Column = 78 Then Target.Offset(, -1) = Range("$BI$26").Value
End Sub

zjdh 发表于 2023-5-28 13:13

本帖最后由 zjdh 于 2023-5-28 13:17 编辑

见楼下

zjdh 发表于 2023-5-28 13:15

lsyylw 发表于 2023-5-28 17:58

zjdh 发表于 2023-5-28 13:15


非常感谢老师，我测试了一下，不知什么原因没有成功，老师您有时间再帮我看看，拜托了！

lsyylw 发表于 2023-5-28 17:59

zjdh 发表于 2023-5-:handshake

zjdh 发表于 2023-6-2 09:28

你再解释一下：
在BY35单元格里显示在BI26

查看完整版本: 点击其它单元格后，自动把指定位置的数字显示到指定位置的代码，非常感谢！