Coordinate cella

Question

Buon giorno.

con il seguente codice individuo la cella attiva:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

  Riga = ActiveCell.Row

  Colonna = ActiveCell.Column 

End Sub

Domanda:

è possibile avere non il n° di Riga e Colonna ma, la misura

dall'inizio del foglio, a sinistra, alla colonna attiva e

dall 'alto del foglio, verso il basso , alla riga attiva.

Grazie.

Nunzio

Answer 1

Ciao Nunzio,

Adattando il mio codice per sfruttare l'evento Worksheet_SelectionChange, prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim dTop As Double, dLeft As Double 

With Target 

    dTop = .Top 

    dLeft = .Left 

End With 

MsgBox dTop & " Points " & vbTab & dLeft & " Points" 

End Sub

'<<========

===

Regards,

Norman

Answer 2

Ciao Nunzio,

Il tuo codice è perfetto.

E' proprio quello che cercavo.

Un grosso grazie.

Mi fa piacere che tu abbia risolto il problema e ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Ciao Norman.

Il tuo codice è perfetto.

E' proprio quello che cercavo.

Un grosso grazie.

Alla prossima.

Saluti cordiali.

Nunzio.

Answer 4

Ciao Nunzio,

con il seguente codice individuo la cella attiva:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

  Riga = ActiveCell.Row

  Colonna = ActiveCell.Column 

End Sub

Domanda:

è possibile avere non il n° di Riga e Colonna ma, la misura

dall'inizio del foglio, a sinistra, alla colonna attiva e

dall 'alto del foglio, verso il basso , alla riga attiva.

Prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim dTop As Double, dLeft As Double 

With ActiveCell 

    dTop = .Top 

    dLeft = .Left 

End With 

MsgBox dTop & " Points " & vbTab & dLeft & " Points" 

End Sub

'<<========

 [![](https://learn-attachment.microsoft.com/api/attachments/9168ee5e-c0ce-4e42-8f18-4ffa0483f13f?platform=QnA"https://learn-attachment.microsoft.com/api/attachments/d5484314-60f5-48a7-91a0-1fe369d5211a?platform=QnA" rel="ugc nofollow">