[發問] (已解決）搜尋符合條件資料並將畫面移到該位置

freeffly

我想要搜尋F欄資料為負的
一個一個檢視
所以符合條件之後將畫面移到該列檢視
因為我要看到前面跟後面資料所以用篩選的方式不能符合我要的

不知道這樣要怎麼寫



Book1.rar (5.32 KB)

下載次數: 13

2012-4-20 11:40

freeffly

1. Sub 移動()
   
2.     n = ActiveCell.Row
   
3.     Do Until Cells(n, 6) < 0
   
4.     Cells(n, 6).Select
   
5.     n = n + 1
   
6.     Loop
   
7. End Sub

複製代碼

剛剛想出來的第一次用do until方式
雖然會動
不過要搜尋下一個的時候還要先用滑鼠移到不小於0的位置
這要怎麼改？

GBKEE

回復 2# freeffly
執行  移動程序 後  按    [Tab]  鍵 可一一檢視

1. Option Explicit
   
2. Sub 移動()
   
3.     Dim Rng As Range, n As Integer
   
4.     n = 2 'ActiveCell.Row
   
5.     Do Until Cells(n, 6) = ""                       '空白
   
6.         If Cells(n, 6) < 0 Then                     '負值
   
7.             If Rng Is Nothing Then                  'Rng變數未設置時
   
8.                 Set Rng = Cells(n, 6)               'Rng變數設置為Cells(n, 6)
   
9.             Else
   
10.                 Set Rng = Union(Rng, Cells(n, 6))   ' Union 方法 傳回兩個或多個範圍的合併範圍。
    
11.             End If
    
12.         End If
    
13.         n = n + 1
    
14.     Loop
    
15.     Rng.Select                                       '全部負值的範圍
    
16. End Sub

複製代碼

register313

回復 2# freeffly
選下一個負數

1. Sub 移動()
   
2. For Each A In Range("F" & ActiveCell.Row, [F65536].End(xlUp))
   
3.   If A.Offset(1, 0) < 0 Then
   
4.      A.Offset(1, 0).Select
   
5.      GoTo 123
   
6.   End If
   
7. Next
   
8. 123
   
9. End Sub

複製代碼

freeffly

回復 3# GBKEE


     板主我想要做的是一個一個查
   也就是每執行一次程序跳到下一個符合的位置
   這種方式好像可以用在別的地方我先學下來
   謝謝

回復 3# register313
  大大的可以
不過如果負數有連續變成要一個一個點
下面是我剛剛想的
我想要的是下面這樣的結果
不過不知道寫法正不正確
有沒有更簡便的

1. Sub 移動()
   
2.     n = ActiveCell.Row
   
3.     Do Until Cells(n, 6) > 0
   
4.     Cells(n, 6).Select
   
5.     n = n + 1
   
6.     Loop
   
7.     Do Until Cells(n, 6) < 0
   
8.     Cells(n, 6).Offset(1).Select
   
9.     n = n + 1
   
10.     Loop
    
11. End Sub

複製代碼

freeffly

回復 3# GBKEE


    剛只注意到vba沒注意到TAB鍵這幾個字
   這樣的確也可以
   謝謝板主