返回列表 上一主題 發帖

[發問] (已解決)儲存格選取有點像shift效果怎麼做？

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-4-23 14:08 | 只看該作者

[發問] (已解決)儲存格選取有點像shift效果怎麼做？

本帖最後由 freeffly 於 2012-4-23 14:37 編輯

我想做一個動作就是選取儲存格所在的區域
如果使用CurrentRegion會選取到所有資料

原本我想用activecell向左end(xltoleft)再向下（xldown)的方式
選取所在資料那幾列
如activecell為range("N7")時我想選row("7:9")這三列資料
這樣要怎麼寫？

Book1.rar (5.16 KB)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2012-4-23 15:45 | 只看該作者
回復 3# oobird

    謝謝版主
    相當簡潔
   end()裡面的數字是分別代表xlup這些，由1開始編嗎?
字典兩各字 還真難理解

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2012-4-23 14:45 | 只看該作者
Range(ActiveCell, ActiveCell.End(4)).EntireRow.Select

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 2012-4-23 14:36 | 只看該作者
本帖最後由 freeffly 於 2012-4-23 14:39 編輯

弄了好久
Rows(n & ":" & x).Select  方法一
Range(Cells(n, 1), Cells(x, 1)).EntireRow.Select 方法二
原來是要這樣寫
不過不知道有沒有比較好的方式
  1. Sub Macro5()
  2.     n = ActiveCell.End(xlToLeft).Row
  3.     x = ActiveCell.End(xlToLeft).End(xlDown).Row
  4.     Rows(n & ":" & x).Select
  5. End Sub
複製代碼
字典兩各字 還真難理解

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題