如何選擇與另一個單元格值匹配的單元格vba

-2

有誰知道我可能會如何選擇與另一個單元格匹配的範圍內的任何單元格？例如：如何選擇與另一個單元格值匹配的單元格vba

比較範圍（「A9：A200」），以範圍（「B9」）

如果說範圍（「A10」）是「貝靈漢」和範圍（「B9」）也是貝靈漢

我想讓A10成爲活動單元格。

任何幫助將最受歡迎。謝謝。

來源

2016-02-17 endanai299

範圍對象有一個'查找（）'方法，你可以用來匹配一個值。 –

對於每個小區在範圍（「A9：A210」）。如果cell.Value =範圍（「B10」）值時，則 cell.Select 結束如果接着結束子 – endanai299

林使得在條形碼掃描儀檢查/檢查工作表中的工具。我有它。但一位同事想出了一個讓登記更容易的想法。這基本上是當A9等於檢入並且b9等於A10：A200範圍內的值時。選擇該單元格。爲了辯論起見，它將是A10，然後我將激活單元格偏移並自動填寫簽名的時間和技術人員。im新到vba並從昨天開始。我一直在像一個瘋子一樣Google搜索，但我想這可能更容易發佈這個問題。 – endanai299

使用像匹配這樣的公式可能會更容易嗎？如果你想從VBA調用它，你可以使用worksheetfunction.match。

來源

2016-02-17 01:32:41

將這個代碼表代碼模塊中的工作表牽着你的數據：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim rng As Range, f As Range, v 
    Set rng = Application.Intersect(Target, Me.Range("B9")) 

    If Not rng Is Nothing Then 

     v = Trim(rng.Value) 

     If Len(v) > 0 Then 
      Set f = Me.Range("A10:A500").Find(what:=rng.Value, _ 
               lookat:=xlWhole) 

      If Not f Is Nothing Then 
       If Me.Range("A9").Value = "checkin" Then 
        f.Offset(0, 1).Value = Now 
        f.Offset(0, 2).Value = "userName" 'from where? 
        f.Offset(0, 3).Value = "Checked In" 
       End If 
      Else 
       MsgBox "Scanned value '" & rng.Value & "' not found !", _ 
         vbExclamation 
      End If 'found a match 

     End If 'cell has a value 

    End If 'checking this value 

End Sub

調整，以適應範圍......

來源

2016-02-17 01:47:59

謝謝Tim，我明天當我上班的時候會給你一個建議。目前我的電子表格正在工作，只是試圖爲明天制定一個遊戲計劃。對不起，我對我最初的問題不是很詳細。如果它不起作用，我會把它帶回家，並用我的問題更具體和詳細，以便社區提供幫助。再次感謝！ – endanai299

如何選擇與另一個單元格值匹配的單元格vba

回答

相關問題