Excel2003代码问题，非常感谢！

LSYYLW

拜托老师了！

2018-6-25-.zip (2.76 KB, 下载次数: 2)

2018-6-25 12:58 上传

点击文件名下载附件

一把小刀闯天下

''试一下，应该差不多，看的有点晕

Option Explicit

Dim flag

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Debug.Print Target.Address
  If Target.Address = "$C$1" Then
    If Target = "单先" Then
      flag = 1
    ElseIf Target = "前壹" Then
      flag = 2
    ElseIf Target = "组先" Then
      flag = 3
    End If
  End If
  If Target.Address = "$D$1" Then
    If Target = "单后" Then
      flag = 4
    ElseIf Target = "贰前" Then
      flag = 5
    ElseIf Target = "后壹" Then
      flag = 6
    ElseIf Target = "组后" Then
      flag = 7
    End If
  End If
  If Target.Row = 1 And Target.Column >= 19 And Target.Column <= 29 Then
    If flag = 1 Then [ae1] = Target
    If flag = 2 Then [ag1] = Target
    If flag = 3 Then [aj1] = Target
    If flag = 4 Then [af1] = Target
    If flag = 5 Then [ah1] = Target
    If flag = 6 Then [ai1] = Target
    If flag = 7 Then [ak1] = Target
  End If
End Sub

LSYYLW

一把小刀闯天下 发表于 2018-6-25 13:47
''试一下，应该差不多，看的有点晕

Option Explicit

万分的感谢老师，完美的帮我解决了问题，代码太好用了，让老师您受累了。

LSYYLW

一把小刀闯天下 发表于 2018-6-25 13:47
''试一下，应该差不多，看的有点晕

Option Explicit

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