web-dev-qa-db-fra.com

Comment trouver le numéro de ligne d'une valeur spécifique dans Excel à l'aide de vbscript

J'ai un fichier Excel ouvert et en utilisant VB Script, je dois rechercher uniquement la colonne "A" dans la feuille Excel jusqu'à ce qu'elle corresponde à une chaîne de texte. Lorsque le script trouve cette correspondance, je voudrais pour voir le numéro de ligne de la cellule où la correspondance a été trouvée. Merci pour votre aide à l'avance!

11
buri kuri

Il s'agit de VBA pour trouver la première instance de "test2" dans la colonne A de la feuille active. Vous pouvez ajuster la chaîne et la feuille de calcul selon vos besoins. Cela ne compte comme une correspondance que si la cellule entière correspond, par exemple, "test2222" ne correspondra pas. Si vous le souhaitez, supprimez le, lookat:=xlWhole bit:

Sub FindFirstInstance()
Const WHAT_TO_FIND As String = "test2"
Dim ws As Excel.Worksheet
Dim FoundCell As Excel.Range

Set ws = ActiveSheet
Set FoundCell = ws.Range("A:A").Find(what:=WHAT_TO_FIND, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
    MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
Else
    MsgBox (WHAT_TO_FIND & " not found")
End If
End Sub
20
Doug Glancy