返回列表 上一主題 發帖

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

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-20 11:46 | 顯示全部帖子

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

本帖最後由 freeffly 於 2012-5-25 16:31 編輯

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

不知道這樣要怎麼寫



Book1.rar (5.32 KB)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 2012-4-20 12:31 | 顯示全部帖子
  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的位置
這要怎麼改？
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
3#
發表於 2012-4-20 13:56 | 顯示全部帖子
回復 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
複製代碼
字典兩各字 還真難理解

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
4#
發表於 2012-4-20 14:06 | 顯示全部帖子
回復 3# GBKEE


    剛只注意到vba沒注意到TAB鍵這幾個字
   這樣的確也可以
   謝謝板主
字典兩各字 還真難理解

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題