Her fik jeg ideer til hvordan man kunne spore/følge sin aktive celle. Fint, MEN jeg har betinget formatering i området (hver 2. linje er lysegrå) det forvire når løsningen er farver. + hvis man vil pille det af igen fucker det alt formatering op i arket. + det vil med på en Print af arket :(
Derfor ville jeg gerne bruge FEDskrift som "sporing", Mit problem er nok i virkeligheden at jeg ikke selv kan VBA "sprog" :)
Som det ses i tidligere tråd tråd, laver nogle af koderne bøvl, så man mister en stor del genvejs-taster. men ikke denne: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Cells.Interior.ColorIndex = xlNone With ActiveCell .EntireRow.Interior.Color = RGB(300, 200, 100) .EntireColumn.Interior.Color = RGB(300, 200, 100) End With End Sub kan den evt. laves om til kun at formatere aktiv række og kolonne's skrift (Font) til FED. ??
NB.: + evt. med mulighed for ikke at blive synlig på en Print af arket :) + Kan det holdes inden for f.eks. A1 til EA101, for at arket ikke bliver for "tungt" at arbejde i ??
Jeg håber på nogen har en løsning eller evt. gode råd fra egen erfaring, jeg bliver træt i hovedet af at holde øje med den aktive celle hele dagen :D
Hej Excelent Den er faktisk meget sød og den er da til at følge :), Den vil dog stadigvær med på et print, kan man på anden måde slå det fra ? Kan man ikke det så hellere FED skrift- (end en farvet pil eller linjer med farve).
den mangler evnen til at vise/Higlight, resten af linje og kolonne. det er et ret stort ark hvor der i kol.B"19" står "rum nr". + mange dat ud til AO derfra til MP i række 3, står vare navn.
Selv om Excel makere linje nr og jeg ellers har froset linjer, så skal jeg ager til knibe øjnene sammen for at være sikker på jeg taster rigtig vare i rigtig rum.
Prøv: Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:EA101")) Is Nothing Then 'ved ændring i A1 til WA101 Range("A1:EA101").Font.Bold = False With ActiveCell .Font.Bold = True End With End If End Sub
Hvis der ikke er datavalidering, så prøv at lave det.
Prøv i et tomt ark:
Sub Sæt_Datavalidering() Range("A1:I50").Select '<--Tilpasses With Selection.Validation .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .InputMessage = "Her er jeg !!!" End With Range("A1").Select End Sub
Kør makroen en gang, for at lave Datavalidering, makroen kan derefter slettes.
Du kan vælge om den skal udskrives under indstillinger for pilen, samt ændre på størrelse og vinkel. men ved godt det ikke er optimalt.
Du kan evt. prøve denne kode som laver et rødt kryds med aktiv celle i midten, men desværre sletter den også evt bestående kanter...
OBS alt neden for denne linie indsættes i Arkets kodemodul :
Dim adr As String Dim kol As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If adr <> "" Then Rows(adr).Borders(xlEdgeTop).LineStyle = xlNone If adr <> "" Then Rows(adr).Borders(xlEdgeBottom).LineStyle = xlNone If kol <> "" Then Columns(CDec(kol)).Borders(xlEdgeLeft).LineStyle = xlNone If kol <> "" Then Columns(CDec(kol)).Borders(xlEdgeRight).LineStyle = xlNone
With Rows(Target.Row).Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With With Rows(Target.Row).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 3 End With With Columns(Target.Column).Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = 3 .TintAndShade = 0 .Weight = xlThin End With With Columns(Target.Column).Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = 3 .TintAndShade = 0 .Weight = xlThin End With adr = Target.Row kol = Target.Column End Sub
End Sub ------- de to driller hinanden, når jeg har tldelt "pillen" i ark 1. så ryger "knappen" hen på pilens plads, og følger "activ"celle rundt på arket :)
Hej Ecelent #1 hvad gør koderne i modul 1 ? hvis jeg opretter et ark 2 i din mappe og kopier koden fra ark1, så går det helt galt. jeg har en mappe med 13 ark, så kan du afhjælpe hvordan jeg for det til at fungere ?
Okay nu har jeg en tom mappe og sætter #6 ind i ark et og gemmer som xl med makro ;-) der skar ikke noget ? Men hvad bør der stå hvor skriver " '<--Tilpasses " ?
Jeg må indrømme ideen med en lille pil der kan justeres så den ikke skygger formeget for andet data omkring cellen, virker tiltalende :) Kan du evt. hjælpe med mnine spørgsmål, til det Excelent har startet :D ?
så er der en ny udfordring, jeg ved ikke om det vil gælde for #6 Jeg har jo en del skjulte celler / kolonner, så når jeg står på venstreside af en skjult kolonne forsvinder hjælpen sammen med den skjulte kolonne ?
jeg tænker at en pil måske kan justeres som objekt, så den altid vises forest ?
også bonus spørgsmål ! er det muligt at få "Skærm-tip" til at følge cellens placering, kun op og ned på kolonne A1, ? Sådan at hvis jeg står i kolonne X,1-101 så er skærmtip, inde ved A, 1-101. fordi det er der jeg skal holde øje med hvad der står i cellen (kolonne A) når jeg taster i cellen kolonne X,1-101.
Hej excelent endnu en Super ide :) 1. du har en Sub nix i Modul1 er den overflødig ? 2. Jeg har forsøgt at kopier kode fra Ark 1 til et Ark 2. jeg fik en fejl 1004 jeg trykker debug, (jeg ved ikke helt hvordan man kan se hvad det er den mener der er galt :)) jeg ændrede Rectangle 1 - 3 og 2 - 4 men så sker der bare ingen ting, heller ikke fejl ? 3. sidste ting hvordan ændre at det ikke skal med på en udskrift ?
Jeg har dog opdaget nogle ulember når jeg skjuler linjer bliver formateringen hængende i de skjulte linjer, og sletter man linjer eller celler ryger formateringen også :(
Nu har jeg fundet ud af at flytte til andre mapper og jeg kan have flere mapper åben. men nu vil jeg Udvide til en 3 "sporing"/rektangel, der skal følge den active cell. MEN, den skal følge den vandret i row4 ! Alt vi har en pt. der køre lodret frit i Rows, fast i colmn 4, Nu skal vi udvide med en der køre frit i Colmns, Fast i Row 4. Jeg har forsøgt at kopier og ændre i din kode, men jeg kan skutte få det til at virke.
Jeg ha fundet ud af at genveje Som ctrl. Z (Fortyd) ikkefungere i de ark hvor koden er indsat :(
Ctrl. X og V fungere fint !
Hå du kender forklaringen ?
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.
