Trouver la position de la cellule (ligne,colonne) à l'aide de la variable
J'ai une feuille Excel avoir une colonne date comme ci-dessous :
Mon Travail est de trouver la position (de la cellule,colonne) pour la date d'aujourd'hui
Script j'utilise :
Sub MacroExample()
Dim a As Variant
Dim column_Position As Variant
Dim row_Position As Variant
a = Format(Date - 1, "MM\/dd\/yyyy")
'MsgBox "The Value of a : " & a
Dim oRange As Range
Set oRange = Worksheets(1).Range("A1:Z10000").Find(a, lookat:=xlPart)
'MsgBox oRange.Address
MsgBox column_Position
MsgBox row_Position
End Sub
Ma sortie doit être:
column_Position = 5
row_Position = 1
- Veuillez cliquez sur "entrer la description de l'image ici" pour un aperçu de la feuille d'échantillon
Vous devez vous connecter pour publier un commentaire.
Si je comprends bien ce que vous demandez, j'espère que cette aide. Ce code doit trouver la première occurrence de la date d'aujourd'hui dans une recherche spécifiés gamme.
Résultat Du Code
Je ne peux pas dire combien efficace c'est, mais il devrait fonctionner.
Cela fonctionnera si vous recherchez un
String
dans un grand chaîne:Remarque:
La date souhaitée zéros.