1樓:電腦愛好者度雲
private sub worksheet_change(byval target as range)
if sheet1.range("b1").value = 2 and sheet1.range("a1").value = 1 then
sheet2.activate ' 啟用sheet2表
sheet2.range("c1").select '游標跳到shee2表的c1單元格
end if
end sub
如果你想根據sheet1中f1單元格的內容來跳轉到shee2相應該的單元格,可以用下面**:
private sub worksheet_change(byval target as range)
dim a as string
if sheet1.range("b1").value = 2 and sheet1.range("a1").value = 1 then
a = sheet1.range("f1").value
sheet2.activate ' 啟用sheet2表
sheet2.range(sheet1.range("f1")).select '游標跳到sheet1表中f相對應內容的單元格
end if
end sub
2樓:匿名使用者
1、跳至sheet2的a1
private sub worksheet_calculate()if range("b1").value = 2 and range("a1").value = 1 then range("a1").
select
end sub
2、跳到 如sheet1中f1有個數「c6」,private sub worksheet_calculate()if range("b1").value = 2 and range("a1").value = 1 then range(range("f1").
value).select
end sub
3樓:匿名使用者
1、在thisworksheet中插入**。
private sub worksheet_calculate()if sheet1.range("b1").value = 2 and sheet1.
range("a1").value = 1 then
sheet2.activate
range("c1").select
end if
end sub
2、查詢表2中c列值等於表1中f1值,相等則跳轉。
for i=1 to sheet2.[c65536].end(xlup).row
sheet2.activate
range("c"&i).select
exit for
end if
next
Excel求教用VBA解決浮點誤差
原因 這是由於浮點運算造成的。在微軟官方有詳細說明的 0.65 10 0.101001100110011001100110011001100110011.2 0.6 10 0.10011001100110011001100110011001100110011.2目前計算機上儲存浮點數值是按照ieee...
VBA整型變數問題,關於VBA中變數問題!
不用那麼麻煩 如果你只是想比較單元格顯示的內容的大小的話只要用cells i,j text來代替cells i,j value就可以了 cells的預設屬性是value,所以cells i,j 表示的是cells i,j value 所以你的 可以改成 dim i as integer,j as i...
關於VBA的問題,一個關於VBA的問題
樓主,你的問題在於你把 select case d14中的d14認為是單元格d14,其實d14根本就不是你的單元格d14,而是一個未宣告和賦值的variant變數,其值預設為 字串,它是永遠大於6的。所以你的e18永遠等於999.不等於1000是因為你在we we 1這個計數發生前,就把值賦給了e1...