COPY鼠标所在行5-17列的数据，怎么加个限制只在指定区域内执行呢？

o0star0o

1. Sub jimin()
   
2. Dim tt, a, i&, j&
   
3.     On Error Resume Next
   
4.     k = ActiveCell.Column
   
5.     If k < 5 Or k > 17 Then
   
6.         Exit Sub
   
7.     End If
   
8.     i = ActiveCell.Row
   
9.         For j = 5 To 17
   
10.             tt = tt & " " & Cells(i, j) '列之间用空格分隔
    
11.         Next
    
12.         tt = tt & vbNewLine '换行
    
13. 
    
14.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
    
15.             .SetText tt
    
16.             .PutInClipboard
    
17.    End With
    
18. 
    
19. End Sub

复制代码

这个代码是@jiminyanyan，这个哥们写的，可以实现点击E1单元格，我按下快捷键，就复制当前选中单元格所在行E:Q（5:17）列中的数据但是有个问题，应该是代码不完善，因为这样选中当前行，直接复制出E:Q中的数据，其他数据就无法按快捷键复制出文本了

请问怎么怎么加个限制条件：仅在鼠标选中E:Q（5：17）列区域时，执行上面的宏，如果鼠标不在E:Q列区域内，就执行下面的宏代码功能

下面这个宏是直接复制选中内容以文本的形式放到剪辑版，不是复制当前行E:Q列的数据

1. Public Sub 文本剪贴板()
   
2. '在alt+F8宏设置ctrl+e做为快捷键,选中区域时,按下ctrl+e即完成文本复制
   
3. '结果以行列式文本存入剪贴板,列之间用空格分隔
   
4. '或打开本工作表 在其他表中使用ctrl+e 也可以达到文本复制的效果
   
5.     Dim tt, a, i&, j&
   
6.     On Error Resume Next
   
7.     a = Selection.Value
   
8.     For i = 1 To UBound(a)
   
9.         For j = 1 To UBound(a, 2)
   
10.             tt = tt & " " & a(i, j) '列之间用空格分隔
    
11.         Next
    
12.         tt = tt & vbNewLine '换行
    
13.     Next
    
14.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
    
15.             .SetText tt
    
16.             .PutInClipboard
    
17.    End With
    
18. End Sub

复制代码

excel玉米

If k < 5 Or k > 17 Then
        Exit Sub     '在下面加入
Else
‘这里放入你要运行的代码。【如果鼠标不在E:Q列区域内，就执行下面的宏代码功能】
    End If

o0star0o

excel玉米 发表于 2018-8-5 19:23
If k < 5 Or k > 17 Then
        Exit Sub     '在下面加入
Else

放上不对呢，麻烦您帮我看下是怎么放的

1. Public Sub 文本剪贴板()
   
2. 
   
3. If k < 5 Or k > 17 Then
   
4.         Exit Sub     '在下面加入
   
5.     Else
   
6. 'CTrl+c快捷键复制
   
7.     Dim tt, a, i&, j&
   
8.     On Error Resume Next
   
9. 
   
10.     i = ActiveCell.Row
    
11.         For j = 5 To 17 'E：Q列
    
12.             tt = tt & " " & Cells(i, j) '列之间用空格分隔
    
13.         Next
    
14.         tt = tt & vbNewLine '换行
    
15. 
    
16.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
    
17.             .SetText tt
    
18.             .PutInClipboard
    
19.    End If
    
20. '在alt+F8宏设置ctrl+e做为快捷键,选中区域时,按下ctrl+e即完成文本复制
    
21. '结果以行列式文本存入剪贴板,列之间用空格分隔
    
22. '或打开本工作表 在其他表中使用ctrl+e 也可以达到文本复制的效果
    
23.     Dim tt, a, i&, j&
    
24.     On Error Resume Next
    
25.     a = Selection.Value
    
26.     For i = 1 To UBound(a)
    
27.         For j = 1 To UBound(a, 2)
    
28.             tt = tt & " " & a(i, j) '列之间用空格分隔
    
29.         Next
    
30.         tt = tt & vbNewLine '换行
    
31.     Next
    
32.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '数据放入剪贴板
    
33.             .SetText tt
    
34.             .PutInClipboard
    
35.    End With
    
36.    End With
    
37. End Sub

复制代码

o0star0o

顶下，等大神出现，帮忙解决下

o0star0o

又来顶下，等大神出现，呜呜~

weisilisid

根本就分不清你要说的实现什么功能，先上附件，说明你要的效果

o0star0o

等大神出现，还没有解决怎么加个限制只在指定区域内执行

lsc900707

o0star0o 发表于 2018-8-27 22:53
等大神出现，还没有解决怎么加个限制只在指定区域内执行

没有附件支持的提问很难获得满意的解答。

o0star0o

lsc900707 发表于 2018-8-28 06:42
没有附件支持的提问很难获得满意的解答。

之前帖子写得可能有点乱，是这样的：

鼠标放在E:Q的 区域内，按下COPY就复制出E:Q行中的数据为文本格式，如果鼠标是选中的其他位置，就只复制选中单元格内容为文本

代码在里面，可以直接修改（其实就只需要加个限制：1.仅在E:Q区域内选中才执行，2.仅在选中此表才执行）

------------------

工作需要，1经常需要复制这个表中E:Q的数据，2也经常需要复制其他数据为文本，3但同时会打开其他表格，希望只在选中此表才执行复制E:Q

我放上附件了，您看下 鼠标所在行指定区域内才执行COPY.zip (15.28 KB, 下载次数: 4)

2018-8-28 20:48 上传

点击文件名下载附件

o0star0o

顶一下，等回复中~