2009年6月7日星期日

EXCEL-VBA 選取任意範圍

這是可以的 , 但是先決條件是不是要告知儲存格的起點
您可以設計下列程式可以做到您的要求
Public SUB 任意範圍()

x = InputBox("輸入起始位址[如:A3]")
y = InputBox("輸入欄與列範圍大小[如:3*5]")

Range(x).Select
y1 = Int(Left(y, 1))
y2 = Int(Right(y, 1))


ActiveCell.Offset(y2, y1).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select

END SUB

不過上式只執行一位數 , 如果您要二位數以上建議改成下列方式較方便
Public SUB 任意範圍()

x = InputBox("輸入起始位址[如:A3]")
cn = InputBox("輸入欄範圍大小[如:12]")
rn = InputBox("輸入列範圍大小[如:120]")

Range(x).Select
ActiveCell.Offset(rn, cn).Select
r1 = ActiveCell.Address
myaddress = x & ":" & r1
Range(myaddress).Select

END SUB

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱