Excel2003代码问题，非常感谢！

LSYYLW

719404338 发表于 2019-3-10 09:58

老师您好：又来麻烦您了，拜托您帮我看一下链接上的问题，非常感谢！
http://club.excelhome.net/thread-1465670-1-1.html

719404338

在这个代码上稍改一下就行，明天看。

LSYYLW

719404338 发表于 2019-3-13 18:36
在这个代码上稍改一下就行，明天看。

非常感谢老师，拜托了！

LSYYLW

719404338 发表于 2019-3-10 09:58

老师您好：又来麻烦您了，拜托您有时间帮我看一下链接上的问题，非常感谢！
http://club.excelhome.net/thread-1466029-1-1.html

LSYYLW

2019-3-21--.zip (6.77 KB, 下载次数: 3)

2019-3-21 17:41 上传

点击文件名下载附件

LSYYLW

liulang0808 发表于 2019-3-10 09:55

老师您好：又来麻烦您了，麻烦您帮我修改一下15楼附件里的代码，来实现我版面上的问题，拜托了！

liulang0808

LSYYLW 发表于 2019-3-21 17:44
老师您好：又来麻烦您了，麻烦您帮我修改一下15楼附件里的代码，来实现我版面上的问题，拜托了！

楼主应写了表格事件代码，不是已经实现需求了吗

LSYYLW

liulang0808 发表于 2019-3-21 18:25
楼主应写了表格事件代码，不是已经实现需求了吗

非常感谢老师，原来的代码是在Sheet2的N20里显示文字，我想把文字显示到Sheet1的N20里，拜托您帮忙修改一下代码（你有时间帮我写一个更好），拜托了！

liulang0808

LSYYLW 发表于 2019-3-21 18:38
非常感谢老师，原来的代码是在Sheet2的N20里显示文字，我想把文字显示到Sheet1的N20里，拜托您帮忙修改一 ...

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = "$K$17" Then
   
3. If Sheet1.Range("N20") = "多少" Then
   
4. Sheet1.Range("N20") = "距离"
   
5. Else
   
6. Sheet1.Range("N20") = "多少"
   
7. End If
   
8. Range("N20").Select
   
9. End If
   
10. End Sub
    

复制代码

LSYYLW

liulang0808 发表于 2019-3-21 19:01

万分的感谢老师，代码非常好用。