29. oktober 2006 - 15:45Der er
18 kommentarer og 1 løsning
hændelse når celle forlades
En lille nøde en søndag eftermiddag.
jeg har nedenstående kode, som bevirker at jeg kan lave et linieskift i en celle. pt. gælder den alle celler, men jeg vil gerne have den til kun at virke i kol. C. har forsøgt at definere kolonne c som et range, men det virker ikke.
Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long)As Integer
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If GetKeyState(13) Then Target.Activate Application.SendKeys ("{F2}{End}%{Enter}") End If End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub If GetKeyState(13) Then Target.Activate Application.SendKeys ("{F2}{End}%{Enter}") End If End Sub
hej excelent kan man i ovenstående modul have et range i kol. C og F - altså ikke D, samt teste på, i hvilken kolonne der trykkes enter. Kan du klare den iler jeg med nogle flere point.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Intersect(Target, Range("C:C, F:F")) Is Nothing Then Exit Sub MsgBox ("Input i kolonne ") & Target.Column If GetKeyState(13) Then Target.Activate Application.SendKeys ("{F2}{End}%{Enter}") End If End Sub
Det virker jo fint, så mangler jeg blot at kunne teste på om det er kol C eller kol F den reagere på. Hændelsen er forskelligt afhængig af om det er den ene eller den anden kollonne.
jeg har et ark bestående af 6 kolonner, hvori jeg indtaster nogle medlemmer i en forening. Når jeg har indtastet i enten kolonne 3 eller 5, skal den springe til en ny linie. Det er ikke altid at kolonne 5 udfyldes (bemærk.) i kolonne 4 ligger en formel. jeg har så brug for at kunne slette nogle linier i eksisterende data. og det er her problemet opstår, hvis jeg markere en linien og vil slette hele rækken.
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.
