標題:
[發問]
(已解決）搜尋符合條件資料並將畫面移到該位置
[打印本頁]
作者:
freeffly
時間:
2012-4-20 11:46
標題:
(已解決）搜尋符合條件資料並將畫面移到該位置
本帖最後由 freeffly 於 2012-5-25 16:31 編輯
我想要搜尋F欄資料為負的
一個一個檢視
所以符合條件之後將畫面移到該列檢視
因為我要看到前面跟後面資料所以用篩選的方式不能符合我要的
不知道這樣要怎麼寫
[attach]10528[/attach]
作者:
freeffly
時間:
2012-4-20 12:31
Sub 移動()
n = ActiveCell.Row
Do Until Cells(n, 6) < 0
Cells(n, 6).Select
n = n + 1
Loop
End Sub
複製代碼
剛剛想出來的第一次用do until方式
雖然會動
不過要搜尋下一個的時候還要先用滑鼠移到不小於0的位置
這要怎麼改？
作者:
GBKEE
時間:
2012-4-20 13:17
本帖最後由 GBKEE 於 2012-4-20 13:46 編輯
回復
2#
freeffly
執行 移動程序 後 按 [Tab] 鍵 可一一檢視
Option Explicit
Sub 移動()
Dim Rng As Range, n As Integer
n = 2 'ActiveCell.Row
Do Until Cells(n, 6) = "" '空白
If Cells(n, 6) < 0 Then '負值
If Rng Is Nothing Then 'Rng變數未設置時
Set Rng = Cells(n, 6) 'Rng變數設置為Cells(n, 6)
Else
Set Rng = Union(Rng, Cells(n, 6)) ' Union 方法 傳回兩個或多個範圍的合併範圍。
End If
End If
n = n + 1
Loop
Rng.Select '全部負值的範圍
End Sub
複製代碼
作者:
register313
時間:
2012-4-20 13:37
回復
2#
freeffly
選下一個負數
Sub 移動()
For Each A In Range("F" & ActiveCell.Row, [F65536].End(xlUp))
If A.Offset(1, 0) < 0 Then
A.Offset(1, 0).Select
GoTo 123
End If
Next
123
End Sub
複製代碼
作者:
freeffly
時間:
2012-4-20 13:56
回復
3#
GBKEE
板主我想要做的是一個一個查
也就是每執行一次程序跳到下一個符合的位置
這種方式好像可以用在別的地方我先學下來
謝謝
回復
3#
register313
大大的可以
不過如果負數有連續變成要一個一個點
下面是我剛剛想的
我想要的是下面這樣的結果
不過不知道寫法正不正確
有沒有更簡便的
Sub 移動()
n = ActiveCell.Row
Do Until Cells(n, 6) > 0
Cells(n, 6).Select
n = n + 1
Loop
Do Until Cells(n, 6) < 0
Cells(n, 6).Offset(1).Select
n = n + 1
Loop
End Sub
複製代碼
作者:
freeffly
時間:
2012-4-20 14:06
回復
3#
GBKEE
剛只注意到vba沒注意到TAB鍵這幾個字
這樣的確也可以
謝謝板主
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
