Test Appartenenza cella ad un Range

[Ricky]

Ciao!
qualcuno di voi mi sa' dire come fare funzionare questa cosa?
Sono righe di codice scritte sul mio manuale VBA.
Dovrebbero permettere di individuare se una cella selezionata
appartiene ad una data zona

Il testo scrive:
Come i piu' bravi ed attenti avranno compreso, tutto si semplifica
ricorrendo a Intersect e sfruttando Is Nothing

Function Appartiene(cella As Range, zona2 As Range) As Boolean
If Intersect(cella, zona2) Is Nothing Then
appartiene = False
Else
appartiene = True
End If
End Function

Dove la metto? Modulo, foglio,...
Come devo fare partire il comando?
Al posto di zona2 e' corretto inserire ad esempio [A1:B10] ?
E al posto di cella metto Activecell ?

Mah....

Sono solo a pag 168 su 677 (Indice compreso...) ma a volte credo che sia il
libro ad essere poco chiaro
Vorrei dire di che libro si tratta, e chiedere quindi qualche parere a chi
lo conosce,
ma non so' se una cosa simile e' accettata in un NG
(con i riferimenti ai numeri di pagina, qualcuno potrebbe riconoscere il suo
libro di studi...)

Ricky

[Noblues[ITA]]

In data Wed, 24 Mar 2004 11:29:31 +0100, Ricky <Rick...@libero.it> ha
scritto:

> Ciao!
> qualcuno di voi mi sa' dire come fare funzionare questa cosa?

> ma non so' se una cosa simile e' accettata in un NG

> (con i riferimenti ai numeri di pagina, qualcuno potrebbe riconoscere il
> suo
> libro di studi...)
>

no ci servono i riferimenti et...per una cosa del genere...vedrai che
quando avrai finto il libro...e lo ricomincierai ti sarà tutto piu
chiaro..cmq
in ogni caso la funzione va in un modulo VBA, poi (è chiaramente un
esempio didattico)
da funzioni "definite dall'utente" scegli "APPARTIENE", selezioni la
cella, quindi l'intervallo e ti riporta VERO o FALSO a seconda della
scelta fatta..
da VBA puoi provare cosi..copiaci questo..poi con F8 fai un passaggio alla
volta cercando di capire come funziona

Sub ProvaCosi()
Dim LaCella As Range
Dim LaZona As Range
Set LaCella = ActiveCell 'cella attiva
Set LaZona = Range("A1:C20")'intervallo che puoi cambiare
MsgBox Appartiene(LaCella, LaZona), , "La Cella attiva è nella Zona2..??)"
End Sub

Function Appartiene(cella As Range, zona2 As Range) As Boolean
If Intersect(cella, zona2) Is Nothing Then

Appartiene = False
Else
Appartiene = True
End If
End Function

__---
Noblues [ITA]

[Ricky]

Noblues[ITA] wrote:
> In data Wed, 24 Mar 2004 11:29:31 +0100, Ricky <Rick...@libero.it>
> ha scritto:

> no ci servono i riferimenti et...per una cosa del genere...vedrai che
> quando avrai finto il libro...e lo ricomincierai ti sarà tutto piu
> chiaro..cmq
> in ogni caso la funzione va in un modulo VBA, poi (è chiaramente un
> esempio didattico)
> da funzioni "definite dall'utente" scegli "APPARTIENE", selezioni la
> cella, quindi l'intervallo e ti riporta VERO o FALSO a seconda della
> scelta fatta..
> da VBA puoi provare cosi..copiaci questo..poi con F8 fai un passaggio
> alla volta cercando di capire come funziona

> cut

Ti ringrazio e ci provo!

Non ci avevo mai pensato,
ma non e' improbabile che l'autore del mio manuale legga questo NG,
non sarebbe male!

Ricky