2016-03-04 66 views
1

我有一個公式,它是條件格式規則的一部分,該規則以綠色突出顯示包含所有輸入文本的單元格。它工作得很好,但我必須滾動才能找到該行。有沒有辦法讓公式轉到該單元格,所以我不必向下滾動。Excel公式以查找並轉到單元格

這是公式:=SEARCH(input,$B2&$C2&$D2&$E2)

+0

我認爲公式 - 是你計算和把單元格的價值。爲了實現你所需要的 - 你需要使用腳本,VBA。如何使用VBA - 這個問題的範圍之外。 – Farside

+0

我不是程序員,但我認爲我所要求的可以在不使用VBA的情況下實現。看看這個人如何同時使用幾個函數來進行NAME查找並在頁面頂部顯示結果。請注意,他並不依賴VBA,但他很聰明地將多個功能組合在一起,這是一件藝術品。 http://www.get-digital-help.com/2009/05/14/lookup-with-multiple-criteria-and-display-multiple-search-results-using-excel-formula/ – Superfast

回答

0
  1. 在MS Excel中,有可能找到並選擇符合特定條件的單元格,這裏是the manual on office support

  2. 如果你知道如何使用Excel VBA,您可以創建腳本,它會做的工作,並且將其綁定到一些快捷鍵或按鈕:

    ActiveWorkbook.Worksheets("Your sheet").Columns(1).Find("Text to search").Select 
    
  3. 而第三種可能性到「去特定的細胞」,我發現是described here

  4. 可能您可能會根據您的需求進行調整CHOOSE function,根據索引號選擇最多254個值。

+0

@Emzor和Farside, 感謝您的回覆。所有這些東西都超過了我的頭,你真的不得不說他們對我來說如何「愚蠢」。大聲笑 – Superfast

+0

@超快,你是什麼意思?這些變體都不符合您的需求? o_O我懷疑是否有其他變體可以完成您的任務,我在Excel中是一個有經驗的人,想不出任何更好的情況。 – Farside

+0

我想要做的是這樣的: 1.鍵入一個名稱細胞 2.讓Excel搜索列中的該名稱 3.如果發現有該行出現在頁面 我不頂不知道如何編碼,不知道該把代碼發到哪裏。我很欣賞迄今爲止所收到的答覆。 謝謝大家試圖幫助我放棄我現在頭痛。大聲笑 – Superfast

0

不是公式本身,但如果它是唯一有條件fomatting,你可以按F5鍵,單擊「特殊」,選擇「條件格式」,然後單擊「確定」

+0

感謝您的支持回覆弗雷德,但這並沒有接近我所尋找的。我只想做一個簡單的文本搜索,並在頁面頂部顯示結果。 – Superfast

+0

我還不確定你在找什麼。也許一個預期的輸入和輸出樣本會有所幫助。如果您只是試圖找到包含該輸入的第一個單元格,並且它們都在同一行中,如您的OP所示,爲什麼不能只使用匹配函數? – Fred

+0

是的Fred我只想找到包含輸入的第一個單元格。我想輸入類似「WebMD」的東西,然後讓Excel顯示該行,所以我不必向下滾動找到它。現在,我必須滾動wayyyyyy查找「WebMD」,因爲我有超過1000行數據。 我對弗雷德道歉,但我不知道函數或VBA或任何與編程有關的事情。我希望有人能寫一些東西,然後告訴我如何在Excel中設置它。感謝您的回覆。 – Superfast

0

這是我從Microsoft Office論壇獲得的解決方案。

Public Sub FindRecords() 
Dim sFalse As String 
Dim iDay As String 
Dim i As Long, j As Long 

sFalse = "False" 

iDay = InputBox("Enter the value you want to scroll to:") 

' Test if input box is empty or cancel is pressed 
If iDay = vbNullString Or iDay = sFalse Then GoTo ExitOut 

i = Range("A" & Rows.Count).End(xlUp).Row 

On Error GoTo Notfound 

j = Range("A3:A" & i).Find(what:=iDay, after:=Range("A3")).Row 
ActiveWindow.ScrollRow = j 
Exit Sub 

Notfound: 
MsgBox "Your value was not found." 
Exit Sub 

ExitOut: 
Application.DisplayAlerts = True 
On Error GoTo 0 
End Sub 
+0

您可能需要在答案中正確格式化代碼。 –