• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Je buňka součástí výběru

Zaslal/a Jeza.m 31.3.2014 8:13

Ahoj,

nějak mi to po ránu nemyslí a tak se zkusím zeptat :-).
Mám pojmenovanou oblast např. B5:H10, potřebuju ji s akcí selectionchange projet (For each cell in oblast) a zjistit je-li konkrétní buňka z té mé oblasti součástí aktivního výběru.
Ano mohl bych porovnat každou buňku s každou buňkou výběru, ale bojím se toho, že někdo vybere sloupce A:H, nebo hůře celý sešit, v takovém případě selection.count = overflow, přesto ale buňky z mé oblasti jsou součástí výběru.
Hledám něco jako IsSelected(cell), kdyby existovalo a dodat jen buňky mé pojmenované oblasti.
Office 2013.
Díky
M@

Uzamčeno - nelze přidávat nové příspěvky.

---

Opičák(31.3.2014 10:34)#018580

Nepomůže toto?
Function InRange(Range1 As Range, Range2 As Range) As Boolean

Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function

Sub TestInRange()
If InRange(ActiveCell, Range("A1:A100")) Then

MsgBox "Active Cell In Range!"
Else

MsgBox "Active Cell NOT In Range!"
End If
End Subcitovat

Jeza.m(31.3.2014 11:45)#018582

Pomůže :-).

Díky

Function InRange(Range1 As Range, Range2 As Range) As Boolean

Dim InterSectRange As Range
Set InterSectRange = Application.Intersect(Range1, Range2)
InRange = Not InterSectRange Is Nothing
Set InterSectRange = Nothing
End Function

Sub TestInRange()
Dim tt As String

For Each cell In Range("KALENDAR")
If cell <> "" Then
If InRange(Range(cell.Address), Selection) Then
tt = tt & cell.Address & vbNewLine
End If
End If
Next
MsgBox tt
End Sub

M@citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse