Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3900|回复: 9

点击指定单元格根据条件在指定单元格里显示数字的代码,非常感谢!

[复制链接]
发表于 2020-6-11 22:15 | 显示全部楼层 |阅读模式
3学分
本帖最后由 lsyylw 于 2020-6-12 20:06 编辑

QQ截图20200611214642.png

2020-6-11---.zip (5.12 KB, 下载次数: 1)

最佳答案

查看完整内容

详见附件,请查阅
发表于 2020-6-11 22:15 | 显示全部楼层
详见附件,请查阅

2020-6-11---.zip

8.29 KB, 下载次数: 9

评分

参与人数 1学分 +3 收起 理由
lsyylw + 3 太强大了

查看全部评分

回复

使用道具 举报

发表于 2020-6-12 08:53 | 显示全部楼层
我看到你发了好几个同类型的帖子,而且也有好多人都帮你做了好多方案;
你这是实际使用呢还是在学习?
我是看不出你这类问题有什么实际的用处;
回复

使用道具 举报

 楼主| 发表于 2020-6-12 20:05 | 显示全部楼层

万分的感谢老师,代码非常好用,分明天为您补上。
回复

使用道具 举报

 楼主| 发表于 2020-6-16 13:39 | 显示全部楼层

老师您好:又来麻烦您了,麻烦您有时间帮我看一下链接上的问题,拜托您了!
http://www.excelpx.com/thread-460067-1-1.html
回复

使用道具 举报

 楼主| 发表于 2020-6-17 20:17 | 显示全部楼层

老师您好:又来麻烦您了,还是本版的问题,我把代码放在Sheet1里,点击Sheet1里的K17时,我想把结果数字显示在Sheet3的M17里,Sheet3.应该加入到您为我写的代码的那里,拜托您了!
Private Sub Worksheet_SelectionChange(ByValTarget As Range)
If Target.Address <>Range("k17").Address Then Exit Sub
If Range("m17") > 49 Then
Range("m17") = 1
Else
Range("m17") =Range("m17") + 1
End If
Range("j17").Select
End Sub

回复

使用道具 举报

发表于 2020-6-17 21:23 | 显示全部楼层
lsyylw 发表于 2020-6-17 20:17
老师您好:又来麻烦您了,还是本版的问题,我把代码放在Sheet1里,点击Sheet1里的K17时,我想把结果数字 ...

Private Sub Worksheet_SelectionChange(ByValTarget As Range)
If Target.Address <>Range("k17").Address Then Exit Sub
If sheet3.Range("m17") > 49 Then
sheet3.Range("m17") = 1
Else
sheet3.Range("m17") =sheet3.Range("m17") + 1
End If
activesheet.Range("j17").Select
End Sub

评分

参与人数 1学分 +3 收起 理由
lsyylw + 3 太强大了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2020-6-17 21:43 | 显示全部楼层
金樽空对月 发表于 2020-6-17 21:23
Private Sub Worksheet_SelectionChange(ByValTarget As Range)If Target.Address Range("k17").Address  ...

万分的感谢老师,代码非常好用。
回复

使用道具 举报

 楼主| 发表于 2020-8-1 14:40 | 显示全部楼层
2020-8-1.zip (7.1 KB, 下载次数: 4)
回复

使用道具 举报

 楼主| 发表于 2020-8-27 22:17 | 显示全部楼层
金樽空对月 发表于 2020-6-17 21:23
Private Sub Worksheet_SelectionChange(ByValTarget As Range)If Target.Address Range("k17").Address  ...

老师您好:又来麻烦您了,您有时间帮我看一下链接上的问题,拜托了!
http://www.excelpx.com/forum.php ... &extra=page%3D1
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 03:47 , Processed in 0.536773 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表