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 :

Trouver la position de la cellule (ligne,colonne) à l'aide de la variable

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
InformationsquelleAutor tapas kumar | 2016-08-10