[Risolto] Cella appartenente a NamedRange

[giuserpe]

Ciao. Come è possibile conoscere il nome di un range predefinito a cui appartiene la cella selezionata?

[vladboscaneanu]

Prima si deve dichiarare il range,poi si verificano le eventuale coincidenze di posizionamento.
Una piccola idea :

Codice: Seleziona tutto

'vladboscaneanu@gmail.com
'-------------------------------------------------------
'Abbiamo un range,ad esempio A1:B10
'e una cella.
'Si deve controllare se la cella  appartine al nostro range
'Cambiate il nome del Foglio1 con il vostro
'--------------------------------------------------------
Function Cella_o_Range(nome as string)
Cella_o_Range=ThisComponent.Sheets.GetByName("Foglio1").GetCellRangeByName(nome)
End Function
'

Sub Verifica_Cella
MiaCella = InputBox("Inserisce il nome della cella :")
IF Cella_o_Range(MiaCella).GetCellAddress().Column >= (Cella_o_Range("A1:B10").getRangeAddress().StartColumn) AND _
    Cella_o_Range(MiaCella).GetCellAddress().Column <= Cella_o_Range("A1:B10").getRangeAddress().EndColumn Then
          IF  Cella_o_Range(MiaCella).getCellAddress().Row >= Cella_o_Range("A1:B10").getRangeAddress().StartRow AND _
              Cella_o_Range(MiaCella).getCellAddress().Row <= Cella_o_Range("A1:B10").getRangeAddress().EndRow Then
                        MsgBox "La cella apartiene al range",64,"Evviva!!!"
           End If
Else
    MsgBox "La cella non apartiene al range",48,"Oh,no!"           
End If                  
End Sub

[patel]

altro modo

Codice: Seleziona tutto

sub intersect
sh = ThisComponent.Sheets.GetByName("Foglio1")
MiaCella = InputBox("Inserisce il nome della cella :")
rng = sh.getCellRangeByName(miacella)
range2 = rng.queryintersection(sh.GetCellRangeByName("A1:B10").rangeaddress()) 
If range2.RangeAddressesAsString = "" Then 
    MsgBox "La cella non appartiene al range A1:B10",48,"Oh,no!"
Else  
    MsgBox "La cella appartiene al range A1:B10",64,"Evviva!!!"
end if
end sub

[giuserpe]

La soluzione è interessante, ma il mio problema è molto più generico, visto che la cella in questione può appartenere contemporaneamente anche a più ranges e mi piacerebbe se si riuscisse a risalire ai loro nomi.
Ragionando un po' dovrebbe comunque tornarmi utile.
Grazie mille.