1樓:一年孤獨
沒有明確指明cells所屬工作表時,預設為當前啟用的工作表,如果你當期啟用的工作表不是你的sheet1, 就會出錯。建議改寫為
with sheets(1)
.range(.cells(2,4),.cells(5,16)).clear
end with
注意with...endwith 的用法:
在rang和cells前有個小點(.),表示他們都從屬於sheets(1)
2樓:
cells沒指定sheet吧,其實可以用sheet1.range(),這樣可以省一個引用。
另外前些天和朋友**過這個問題,sheet1這個預設字首為thisworkbook(**所在的工作薄),如果當前工作薄沒有sheet1,就會出錯,
其他sheet的引用方式。sheets(1) 或sheets("sheet name") 預設字首為activeworkbook。
以上是實驗結果,可能不正確,還請方家指正
3樓:匿名使用者
activesheet.range(activesheet.cells(2, 5), activesheet.cells(5, 16)).clear
樓上回答正確
excel vba 定義range,range(cells1,cells2)出錯
4樓:匿名使用者
那就是說你的**沒有放在當前表裡面吧
理解錯了,如果放在當前表(site data)裡面是沒有問題的,你試試
5樓:慶年工坊
with sheets("site data")
set panel_range = .range(.cells(4, 6), .cells(8, 6))
end with
excel range.clear怎麼不起作用
6樓:平陽虎
需要賦給range具體的地址,如
range("a1:d5")
excel vba出現問題 range作用於worksheet物件時錯誤?誰能幫我解答一下?
7樓:平陽虎
sub mmm()
for i = 1 to 20
sheet1.range("a" & i & ":n" & i).mergecells = true
next i
end sub
8樓:匿名使用者
在vba中,用range("a65565")表示整列,那用range怎麼表示正行?
9樓:匿名使用者
range("a65565") 表示單dao元格a65565表示a列有range("a:a") 、專columns(1)、[a:a]
表示第2行整行
屬的有range("2:2")、rows(2)、[2:2]表示單元格a1的有range("a1")、cells(1,1)、[a1]
10樓:網海1書生
range("a1:iv1")
11樓:匿名使用者
range("1:1")整行
range("a:a")整列
12樓:匿名使用者
rows("1:1")
sheet1.range("a:f").numberformatlocal = "@" 這個vba是什麼意思啊?請高手解釋。感謝。
13樓:匿名使用者
sheet1.range("a:f").numberformatlocal = "@"
就是將sheet1的a列至f列所有單元格採用自定義的格式。與excel單元格-〉設定單元格格式—〉自定義——〉選擇「@"效果是一樣的。
excel vba 刪除整列 range("a:a").delete 這個函式,怎麼用數表示?
14樓:
你是要用數字來判斷嗎?可以試試:
columns(chr(65) & ":" & chr(65)).delete
15樓:匿名使用者
columns(1).delete
cells(1,1).entirecolumn.delete
excel vba中range的用法,(定義空range和刪除range中的行)
16樓:匿名使用者
定義空range: dim 物件變數名稱 as range
刪除選中區域的第一行:selection.rows(1).delete
17樓:晉訪
dim myrange as range
set myrange = selectionmyrange.cells(1, 1).entirerow.delete
一行定義,二行取值,三行刪除
excel vba中 range函式將列作為變數怎麼表示? 5
18樓:歲月不及你動人
range型別的函式有多種形式,具體如下:
1.您可以嘗試用range(cells(行1,列1),cells(行2,列2))這種形式,比較靈活;
2.也可以用cells(行,列)這樣的形式表示單元格;
3.還可以用columns(列)表示一列;
4.也可以用range(columns(列1),columns(列2))來表示連續的多列。
這裡的"行"和"列"都是整數,不是字母,數字有時會比字母更靈活。
19樓:一年孤獨
直接用就是了:
function getrange(col as string)
getrange = workbooks(1).sheets(2).range(col & "2:" & col & "2012")
'或者'getrange = workbooks(1).sheets(2).range(replace("a2:a2012","a", col))
end function
getrange("b") 'workbooks(1).sheets(2).range("b2:b2012")
getrange("ab") 'workbooks(1).sheets(2).range("ab2:ab2012")
20樓:匿名使用者
首先range是屬性,不是函式,它本身表示一個區域引用,而不是說它作為函式返回一個區域。
將列作為變數一般可以用cells(row,col)屬性中的col(列號)作為變數,作為區域引用的range屬性可以用range(cells(row1,col1),cells(row2,col2))來表示
21樓:浩哥奕弟
從一個工作表中提取資料到另一個工作表,一般思路是從第一個表中將資料裝入陣列,再將陣列裝入第二個表。
例如:arr=sheet1.range("a1:a100")
sheet2.range("a1").resize(ubound(arr),ubound(arr,2))=arr
22樓:匿名使用者
workbooks(1).sheets(2).range(cells(2,m), cells(2012,m)).value
range 引用單元格時,變數只能為行如range("a" & m) 表示a列第m行的單元格
23樓:匿名使用者
親測以下方式可行
sub test()
dim colname1 as string, colname2 as string, colnum as long, a() as long
dim i as integer, j as integer
redim a(1 to 5, 1 to 2)
for i = 1 to 5 '給aa陣列賦值
for j = 1 to 2
a(i, j) = i * j
next
next
for i = 4 to 10 step 3 '從4列即「d」列開始
colnum = i * 1 '起始列的變數表示
colname1 = getexcelcolumn(i * 1) '起始列變數名稱
colname2 = getexcelcolumn(i * 1 + 1) '終止列變數名稱
sheets("sheet1").range(colname1 & "1:" & colname2 & "5") = a
'將陣列a賦值到 range:d1:e5, g1:h5,j1:k5
next
end sub
function getexcelcolumn(columnnumber as long)
dim div as long, colname as string, modulo as long
div = columnnumber: colname = vbnullstring
do while div > 0
modulo = (div - 1) mod 26
colname = chr(65 + modulo) & colname
div = ((div - modulo) / 26)
loop
getexcelcolumn = colname
end function
24樓:三井熊
range(變數a & "3:" & 變數a & "2012")
25樓:匿名使用者
range(cells(3,i),cells(2012,i)) , i 可以是123,代表a,b,c
excel VBA的小問題,excel VBA的一個小問題
private sub worksheet change byval target as range if target.column 3 and cells target.row,1 value 1 and cells target.row,2 value 2 then cells target....
excel vba提示424錯誤“要求物件”
我的王是金閃閃 這樣可否?不是很清楚你的要求。private sub commandbutton1 click textbox2.text 清空文字框2dim txt1len as integerdim str1 as string,str2 as stringtxt1len len textbox...
用EXCEL VBA生成目錄的問題
把那段連結改成 activesheet.hyperlinks.add anchor worksheets 目錄 cells i,2 address subaddress sheets i name r1c1 texttodisplay sheets i name 如果想要連結名稱為1 01則改為 a...