返回列表 上一主題 發帖

[發問] 此程序如何修改??

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-14 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-2-14 15:52 | 只看該作者

[發問] 此程序如何修改??

Sub Ma3333()
Dim ABC As Range
Set ABC = Sheets("Sheet1").Range("e" & [e1:e200].Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, _
   SearchDirection:=xlPrevious).EntireRow.Row)
Sheets("Sheet1").Range("A1:ABC").Select  '==>錯誤

End Sub
收藏 分享

zxcxz

帖子
34 
主題
14 
精華
0 
積分
61 
點名
0  
作業系統
Winxp 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-25 
最後登錄
2019-3-4 
4#
發表於 2014-2-15 14:30 | 只看該作者
如果ABC=10
"A1:A" & ABC 就等於 "A1:A10"

TOP

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-14 
3#
發表於 2014-2-15 13:40 | 只看該作者
本帖最後由 t8899 於 2014-2-15 13:54 編輯
zxcxz 發表於 2014-2-15 09:26

我要選擇矩形範圍
abc 的欄部份沒有作用 ??
"A1:A" ===>請教這如何解釋??

TOP

zxcxz

帖子
34 
主題
14 
精華
0 
積分
61 
點名
0  
作業系統
Winxp 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2014-1-25 
最後登錄
2019-3-4 
2#
發表於 2014-2-15 09:26 | 只看該作者
  1. Sub Ma3333()
  2. Dim ABC As Range
  3. Set ABC = Sheets("Sheet1").Range("e" & [e1:e200].Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, _
  4.    SearchDirection:=xlPrevious).EntireRow.Row)
  5. Sheets("Sheet1").Range("A1:A" & ABC).Select
  6. End Sub
複製代碼

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題