Excel精英培训网

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

[已解决]敬请老师帮忙解决问题,非常感谢!

[复制链接]
发表于 2021-12-26 15:34 | 显示全部楼层 |阅读模式
本帖最后由 lsyylw 于 2021-12-26 16:18 编辑

2021-12-26-.zip (6.5 KB, 下载次数: 3)
发表于 2021-12-26 15:54 | 显示全部楼层
本帖最后由 zjdh 于 2021-12-26 16:08 编辑

你的要求:
当O15里显示文字“您”时,点击K17单元格,就自动把在O15里的“前”变成“中”

既然显示“您”,哪来的“前”?
不过3字间循环可由一下语句完成:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$K$17" Then
        If [o15] = "后" Then [o15] = "前": GoTo 10
        [o15] = IIf([o15] = "前", "中", "后")
10    [K18].Select
    End If
End Sub

评分

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

查看全部评分

回复

使用道具 举报

发表于 2021-12-26 17:20 | 显示全部楼层    本楼为最佳答案   
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   s = "前中后前"
   If Target.Address = "$K$17" Then [o15] = Mid(s, InStr(s, [o15]) + 1, 1): [k18].Select
End Sub

祝順心,南無阿彌陀佛!

回复

使用道具 举报

 楼主| 发表于 2021-12-26 20:58 | 显示全部楼层
zjdh 发表于 2021-12-26 15:54
你的要求:
当O15里显示文字“您”时,点击K17单元格,就自动把在O15里的“前”变成“中”

非常感谢老师,谢谢您的提醒,那个“您”应该是“前”,是我原来的问题没有改过来,您的代码非常好用。
回复

使用道具 举报

 楼主| 发表于 2021-12-26 20:59 | 显示全部楼层
cutecpu 发表于 2021-12-26 17:20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   s = "前中后前"
   If Target.Addres ...

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

使用道具 举报

 楼主| 发表于 2021-12-27 07:35 | 显示全部楼层
cutecpu 发表于 2021-12-26 17:20
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   s = "前中后前"
   If Target.Addres ...

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 01:28 , Processed in 0.320486 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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