Mulighed for "enter" i celle-tekst

Hvad er der galt med Alt+Enter? Jeg tror ikke at du på nogen nem måde kan lave liniekift med Enter alene.

i formater - celler - justering, kan du klikke "ombryd tekst" af herefter vil teksten automatisk fortsætte på næste linie når du når cellens længde begrændsning

bufferzone-> Men så styrer du ikke selv, hvor linieskiftene kommer. Det kan i så fald godt være midt i et ord.

jkrons: Problemet er at jeg skal tage hensyn til at vi har nogle ualmindeligt dovne brugere.. :)

bufferzone: Brugeren skal have mulighed for selv at vælge hvornår linie-skiftet skal foretages. Derfor er det ikke holdbart med normal tekstombrydning :)

Så er du nok nødt til at rode dig ud i et større kodearbejde, der "opfanger" et tryk på Enter tasten og ændrer det til et tryk på Alt+Enter. Problemet er, at Excel ikkek har en hændelse, der indtræffer når du taster i en celle. Så det må nok være noget med noget windows API programmering.

Men måske er der nogen, der har en nemmere løsning. Nememst ville det selvfølgelig være at lære brugerne at bruge Alt+Enter - elelr at undlade at skrive store tekstmængder i Excel :-)

Følgende kode kan gøre det, men hvordan skal man afslutte indtastning?

Kode til "Ark1":
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
    'aktiver ændret celle og send "rediger celle, cursor til enden, alt+enter"
    Target.Activate
    Application.SendKeys ("{F2}{End}%{Enter}")   
End Sub

Ovenstående kode baserer sig på at man når man trykker Enter i en celle, kaldes Worksheet_change. Koden aktiverer den celle, der blev ændret og redigerer denne igen og indsætter ny linie i slutningen.
Men, som nævnt, brugerne vil nok nu kræve at programmet kan se forskel på om enter betyder ny linie eller afslut indtastning...

'med denne ændrede kode kan man afslutte med f.eks. tab
'private declare... skal anbringes i toppen af modulet
' desuden er koden lavet til at ligge i ThisWorkbook og virker derfor på alle ark
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

stefanfuglsang: Hvor skal jeg rette i koden for at få den til at virke i f.eks H3?

Man skal stoppe med at fortolke enter som et linie skift når at der ikke er fokus på den bestemte celle. Der udover ville det være nice hvis det kunne lade sig gøre at den hopper ind som cursor når man markere cellen. Men ikke absolut nødvendigt... hvis det kan lade sig gøre er der 15 ekstra point...

Hvis den kun skal virke i celle H3 på ark 1, så er det nemmest at anbringe koden i kodemodulet for ark1, så hedder det (bemærk det så er worksheet_change og ikke workbook_change):
Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long)As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If GetKeyState(13) and (Target.address = "$H$3" or Target.address= "$H$117") Then
        Target.Activate
        Application.SendKeys ("{F2}{End}%{Enter}")
    End If
End Sub

Du kan selv indsætte flere celler i linien
If GetKeyState(13) and (Target.address = "$H$3" or Target.address= "$H$117") Then
med "or" for hver ny celle

glemte at skrive (det er måske klart alligevel) at koden virker i celle H3 og H117 - som eksempel

Og det med markeringen kan gøres med
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.address = "$H$3" or Target.address= "$H$117") Then
        Application.SendKeys ("{F2}{End}")
    End If
End Sub

PS: Sendkeys sender tastekoder til Excel - der *kan* (i hvert fald teoretisk) være tilfælde, hvor dette giver utilsigtede hændelser, så afprøv det grundigt, inden du slipper brugerne løs

Hehe.. okay.. Jeg takker rigtigt mange gange.... og giver dig gladeligt dine point.... der er 15 mere som lovet i et spørgsmål jeg opretter nu her bagefter

GetKeyState(13) Fanger IKKE enter på macintosh!.. :(