Excel2003代码问题，非常感谢！

LSYYLW

附件里面有代码，拜托老师帮忙修改一下，来实现我的问题，非常感谢!

2019-3-10.zip (6.17 KB, 下载次数: 5)

2019-3-10 09:50 上传

点击文件名下载附件

liulang0808

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.     If Not Application.Intersect([a5:a15], Target) Is Nothing Then [h3] = "前"
   
4.     If Not Application.Intersect([c5:c15], Target) Is Nothing Then [h3] = "后"
   
5. End Sub
   

复制代码

liulang0808

代码处于审核状态，发图片吧

719404338

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column = 1 And Target.Row >= 5 And Target.Row <= 15 Then [h3] = "前"
   
3. If Target.Column = 3 And Target.Row >= 5 And Target.Row <= 15 Then [h3] = "后"
   
4. End Sub
   

复制代码

LSYYLW

liulang0808 发表于 2019-3-10 09:55
代码处于审核状态，发图片吧

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

LSYYLW

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

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

micch

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. c = 4
   
3. If Not Intersect(Target(1), Union([a5:a15], [c5:c15])) Is Nothing Then c = Target.Column
   
4. [h3] = Mid("前 后", c, 1)
   
5. End Sub

复制代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target(1), Union([a5:a15], [c5:c15])) Is Nothing Then [h3] = Mid("前 后", Target.Column, 1) Else [h3] = ""
End Sub

一把小刀闯天下

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column <> 1 And Target.Column <> 3 Then Exit Sub
  If Target.Row >= 5 And Target.Row <= 15 Then [h3] = IIf(Target.Column = 1, "前", "后")
End Sub

LSYYLW

micch 发表于 2019-3-10 10:14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target(1), Union( ...

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

LSYYLW

一把小刀闯天下 发表于 2019-3-10 10:18
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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