麻辣家族討論版版 » Excel程式區 » (已解決）搜尋符合條件資料並將畫面移到該位置

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 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)

樓主熱帖

收藏

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

6^#

發表於 2012-4-20 14:06 | 只看該作者

回復 3# GBKEE

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

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

5^#

發表於 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

複製代碼

字典兩各字還真難理解

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 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

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 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

複製代碼

高中生 Rank: 3 Rank: 3

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

熱烈參與勳章好學求知勳章

2^#

發表於 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的位置
這要怎麼改？

字典兩各字還真難理解

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

返回列表下一主題上一主題