13. april 2004 - 13:35Der er
5 kommentarer og 1 løsning
Celle er indenfor område?
Hej! Hvordan undersøger jeg om en redigeret celle er indenfor et celle-område. Jeg har forsøgt med følgende kode uden held. Den kommer helt uventet frem og siger at den er indenfor område:
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Target.Cells.Count = 1 Then For Each c In Range("B3:M52") If c = Target Then MsgBox "Indefor!" Exit For End If Next End If End Sub
Det er sagen ligegyldigt. Jeg skal bare undersøge om feltet som lige er blevet redigeret i, er indenfor et område, for så derefter at flytte markøren til en anden celle.
Jeg har selv indsat ovenstående i Ark1's programkode - det virker fint!! Hvis jeg redigerer en celle i området B3:M52 kommer der en msgbox med "Indefor!" - er det ikke det koden skal ??
Jeg har lige debugget lidt, og fundet ud at c's og target's værdi, som bliver sammenlignet i "If c = Target Then" er selve værdierne som står i cellerne og ikke deres position. Så derfor ser det til at virke, indtil man skriver en værdi i en celle uden for området, som også står i en celle inde i området, hvor den så melder tilbage at den er indenfor området.
Det jeg mangler er en måde at sammenligne celle-positionen. Nogen idé??
If Not Intersect(Target, Range("B3:M52")) Is Nothing Then' området den virker på ' din kode end if
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.