13. december 2014 - 11:08Der er
8 kommentarer og 1 løsning
"Udviddet" Betinget formatering
I Excel 2007 er der en række ikoner under betinget formatering, men de 5 pile er ikke nok i dette tilfælde. Jeg har læst at der ikke kan tilføjes flere.
Jeg vil gerne have en "pil" til at pege i en bestemt retning i en angivet celle (D5), som funktion af et indtastet tal i en anden celle (A5).
Det kunne være, at når man indtaster en værdi i A5, så indsættes der et billede (A5).jpg i celle D5. Det kræver dog lige 360 billeder... (1.jpg til 360.jpg)
Eller at man indsætter et billede i D5 og så drejer man dette billede det antal grader som er indtastet i A5.
Er der nogen der kan hjælpe med en løsning, evt. VBA kode som kan løse udfordringen?
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A5")) Is Nothing Then Exit Sub ActiveSheet.Shapes.Range(Array("Up Arrow 2")).Select Selection.ShapeRange.IncrementRotation Target.Value * 1.001 Range("A5").Select End Sub
Ret navnet "Up Arrow 2" i linie 3 så det passer med din figur/navn
Der er den lille hage at den drejer "relativt" og ikke "absolut"...
Når jeg i A5 skriver 10 enter, så drejer den 10 med uret. Fint nok. Når jeg i A5 skriver 10 enter IGEN, så drejer den 10 MERE med uret.
Det jeg gerne vil have den til er at dreje til den værdi som jeg taster ind. Dvs. at den skal ikke lægge den næste værdi i A5 til den gamle værdi i A5, den skal nulstille A5 og lægge A5 til.
Jeg har begrænset A5 til kun at modtage 1-360 som værdi.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B5")) Is Nothing Then Exit Sub ActiveSheet.Shapes.Range(Array("Up Arrow 2")).Select Selection.ShapeRange.IncrementRotation Target.Value * 1.001 Range("B5").Select End Sub
Jeg ved ikke hvordan man får pilen til at pege lige op fx, så kunne man jo bruge det som udgangspunkt. prøv søg på nettet, har lidt travlt for tiden.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B5")) Is Nothing Then Exit Sub ActiveSheet.Shapes.Range(Array("Up Arrow 2")).Select Selection.ShapeRange.Rotation = Range("B5").Value Range("B5").Select End Sub
indlæg #5 skulle virke som du eftersøgte om det skal være A5 eller B5 i koden afhænger af i hvilken af de 2 du taster værdier i (koden trikker kun på indtastning)
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.
