Excel2003代码问题，非常感谢！

LSYYLW

拜托老师了！

2019-3-15.zip (10.41 KB, 下载次数: 6)

2019-3-15 12:59 上传

点击文件名下载附件

lg0219

VBA？？？？

一把小刀闯天下

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row < 11 Or Target.Row > 21 Or Target.Column <> 1 Then Exit Sub
  If CDec(Target.Rows.Count) * Target.Columns.Count > 1 Then Exit Sub
  Dim t
  t = IIf([c8].Value = "前", "h", "j")
  Range(t & 11) = Target.Row - 10
End Sub

lsc900707

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Row > 10 And Target.Row < 22 And Target.Column = 1 Then
   
3.         If [c8] <> "" Then
   
4.             If [c8] = "前" Then [h11] = Target.Row - 10 Else: [j11] = Target.Row - 10
   
5.         End If
   
6.     End If
   
7. End Sub

复制代码

LSYYLW

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

万分的感谢老师，连续的麻烦您真是不好意思，代码非常好用。

LSYYLW

lsc900707 发表于 2019-3-15 13:36

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

LSYYLW

2019-3-21.zip (12.13 KB, 下载次数: 2)

2019-3-21 17:20 上传

点击文件名下载附件

LSYYLW

lsc900707 发表于 2019-3-15 13:36

老师您好：又来麻烦您了，拜托您帮我看一下7楼附件里的问题，附件里面有您给我写的代码，是我修改了问题里显示数字的位置后，修改您的代码没有成功，拜托老师您了！

Datous

LSYYLW 发表于 2019-3-21 17:25
老师您好：又来麻烦您了，拜托您帮我看一下7楼附件里的问题，附件里面有您给我写的代码，是我修改了问题 ...

加上工作表的名称就可以了。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Row > 10 And Target.Row < 22 And Target.Column = 1 Then
   
4.         If [c8] <> "" Then
   
5.             Application.EnableEvents = False
   
6.             If [c8] = "前" Then
   
7.                 Worksheets("Sheet2").[h11] = Target.Row - 10
   
8.             ElseIf [c8] = "后" Then
   
9.                 Worksheets("Sheet2").[j11] = Target.Row - 10
   
10.             End If
    
11.             Application.EnableEvents = True
    
12.         End If
    
13.     End If
    
14. End Sub

复制代码

lsc900707

LSYYLW 发表于 2019-3-21 17:25
老师您好：又来麻烦您了，拜托您帮我看一下7楼附件里的问题，附件里面有您给我写的代码，是我修改了问题 ...

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Row > 10 And Target.Row < 22 And Target.Column = 1 Then
   
3.         If [c8] <> "" Then
   
4.             If [c8] = "前" Then Sheet2.[h11] = Target.Row - 10 Else: Sheet2.[j11] = Target.Row - 10
   
5.         End If
   
6.     End If
   
7. End Sub

复制代码