[已解决]敬请老师帮忙解决代码问题，非常感谢！

lsyylw

2021-12-21.zip (4.96 KB, 下载次数: 7)

2021-12-21 22:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-12-22 01:18

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$K$17" Then [o15] = IIf([o15] = "您", "好", "您"): [k18].Select
End Sub

跳转到最佳答案楼层

sam-wang

請測試看看，謝謝

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$K$17" Then
    If Range("o15") = "您" Then
        Range("o15") = "好"
    ElseIf Range("o15") = "好" Then
        Range("o15") = "您"
    End If
End If
End Sub

cutecpu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$K$17" Then [o15] = IIf([o15] = "您", "好", "您"): [k18].Select
End Sub

lsyylw

cutecpu 发表于 2021-12-22 01:18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$K$17" Then [o ...

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

lsyylw

sam-wang 发表于 2021-12-21 22:55
請測試看看，謝謝

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

lsyylw

cutecpu 发表于 2021-12-22 01:18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$K$17" Then [o ...

[size=13.3333px]新年快乐！祝老师新的一年里身体健康、工作顺利、心想事成、天天开心！

lsyylw

cutecpu 发表于 2021-12-22 01:18
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Address = "$K$17" Then [o ...

老师过年好！祝您春节快乐！