Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1796|回复: 5

[已解决]能不能实现这种效果,求大侠帮忙~!

[复制链接]
发表于 2011-11-13 14:15 | 显示全部楼层 |阅读模式
本帖最后由 iphone5 于 2011-11-13 17:33 编辑

能不能实现这种效果,点击指定的单元格,然后自动跳到数据内容末位置和内容起始位置???

请见附件:


点击单元格自动跳转k1.rar (17.09 KB, 下载次数: 12)
发表于 2011-11-13 15:49 | 显示全部楼层

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 Then
    Cells(Cells(Rows.Count, Target.Column).End(xlUp).Row + 1, Target.Column).Select
End If
End Sub
不过个人觉得,这么点小事还是ctrl+下方向箭比较好。
回复

使用道具 举报

 楼主| 发表于 2011-11-13 16:14 | 显示全部楼层
pureshadow 发表于 2011-11-13 15:49
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 Then
    Cells(Ce ...

大侠,能否帮忙实现,点击 固定的几个单元格,

来实现这种效果,

点击D2单元格回到数据起始行  【上】
点击G2单元格跳到数据最末行  【下】
点击K2单元格回到数据起始列  【左】
点击N2单元格跳到数据最末列  【右】
回复

使用道具 举报

发表于 2011-11-13 19:35 | 显示全部楼层
本帖最后由 爱疯 于 2011-11-13 19:35 编辑

看不懂3楼意思,比如:

点了哪个工作表的D2,就回到哪儿(单元格)?
回复

使用道具 举报

 楼主| 发表于 2011-11-14 09:56 | 显示全部楼层
本帖最后由 iphone5 于 2011-11-14 09:59 编辑
爱疯 发表于 2011-11-13 19:35
看不懂3楼意思,比如:

点了哪个工作表的D2,就回到哪儿(单元格)?


爱疯老师!

比如表格数据如下:

      A     B     C     D     E     F     G  
1         
2
3          甲    甲    甲    甲   甲    甲
4          甲    甲    甲    甲   甲    甲
5          甲    甲    甲    甲   甲    甲
6          甲    甲    甲    甲   甲    甲

点击C2单元格,将自动跳到C列的数据最末位置
点击D2单元格,将自动跳到C列的数据起始位置
点击E2单元格,将跳到数据最左边,
点击F2单元格,将跳到数据最右边,

请老师看附件:

点击单元格自动转向数据起始最末单元格.zip (10.34 KB, 下载次数: 4)
回复

使用道具 举报

发表于 2011-11-14 13:44 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2.     Select Case Target.Address
  3.     Case "$C$2"
  4.         Range("A65536").End(xlUp).Select    'A列末行
  5. '        Range("C65536").End(xlUp).Select    'C列末行
  6.     Case "$D$2"
  7.         Range("A1").End(xlDown).Select    'A列末行
  8. '        Range("C1").End(xlDown).Select    'C列末行
  9.     Case "$E$2"
  10.         Sheet1.UsedRange.Item(1, 1).End(xlDown).Select '数据最左边
  11.     Case "$F$2"
  12.         Sheet1.UsedRange.Item(1, 1).End(xlDown).End(xlToRight).Offset(0, 1).Select '数据最右边
  13.     End Select
  14. End Sub
复制代码

点击单元格自动转向数据起始最末单元格2.rar (15.13 KB, 下载次数: 17)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 10:05 , Processed in 1.017887 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表