VBA: Impostare variabile uguale a nome definito

Question

Buongiorno a tutti,

mi trovo di fronte ad un problema banale ma a cui davvero non trovo soluzione.

Devo impostare una variabile VBA uguale ad un nome definito sul foglio di lavoro

Mi spiego meglio:

Ho definito un nome come Nome = Max (A1:A5)

Adesso su VBA ho bisogno di impostare una variabile intera x=Nome

Non se se è un info utile/necessaria,

la variabile x mi serve per impostare un ciclo For i=1 to x
quindi sostanzialmente ho bisogno che x sia Integer

Grazie mille a tutti in anticipo

Answer 1

Ciao Gabriele,

Buongiorno a tutti,

mi trovo di fronte ad un problema banale ma a cui davvero non trovo soluzione.

Devo impostare una variabile VBA uguale ad un nome definito sul foglio di lavoro

Mi spiego meglio:

Ho definito un nome come Nome = Max (A1:A5)

Adesso su VBA ho bisogno di impostare una variabile intera x=Nome

Non se se è un info utile/necessaria,

la variabile x mi serve per impostare un ciclo For i=1 to x
quindi sostanzialmente ho bisogno che x sia Integer

Grazie mille a tutti in anticipo

A titolo di esempio, prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim i As Long, x As Long

Const sNome As String = "Pippo" '<<=== Modifica

x = Evaluate(ThisWorkbook.Names(sNome).Value)

For i = 1 To x

'\ Fai qualcosa; ad esempio:

Debug.Print i 

Next i

End Sub

'<<========

===

Regards,

Norman

Answer 2

Ciao Eleuterio,

Ciao Norman, solo per curiosità, ma non basta riferirsi alla formula denominata?

x = [Nome]

io di solito faccio così,

👋🏻

Certamente!

Tuttavia, come senza dubbio avrai notato, mi astengo invariabilmente dall'usare la notazione tra parentesi quadre.

Questa avversione si basa in parte sulla predilezione personale e in parte su un vecchio articolo di Microsoft (senza dubbio non più disponibile) che indicava che, per vari motivi tecnici sottostanti, tale utilizzo è più lento.

Detto questo, con l'enorme aumento della velocità di elaborazione che ora è la norma, sospetto che questo sia ora un punto controverso!

===

Regards,

Norman

Answer 3

Ciao Norman, solo per curiosità, ma non basta riferirsi alla formula denominata?

x = [Nome]

io di solito faccio così,

👋🏻

Answer 4

Ciao Gabriele,

grazie della risposta rapidissima

funziona alla perfezione ;)

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 5

Ciao Norman,

grazie della risposta rapidissima

funziona alla perfezione ;)

Un saluto!