Hvordan flytter men en celle med tekst, inkl. HVIS formel?
Problemet bunder i 3 venners fascination af Yatzy :)
Vores version af spillet kræver at man spiller 4 rækker HVER og kan således opnå en meget større variation mellem vinder og taber. Det betyder jo at muligheden for at vinde flere penge er større - dermed spillet sjovere :) (0,50 kr. per point)
Og for at gøre afgørelsen sjovere har vi censureret de midlertidige tal, og gemt den på et ark for sig selv. Det jeg gerne vil kunne gøre, er:
(Her er sidste side i arket, og vores endelige tal er videreført fra de andre ark)
Poul: 1690 Dennis: 1304 (tal og navne står self. i hver deres celler) Mikkel: 2678
Nu vil jeg gerne ende op med at der bare står:
[navn på ham med mindste score] SKYLDER [navn på ham med max score] (formel med fx: =MAKS(B3:B5)-MIN(B3:B5))
ALTSÅ: Dennis skylder Poul 193 kr.
Hele problematikken er altså at kunne flytte en celle med tekst, baseret på hvorvidt "nabocellen" opfylder kravet om at være henholdsvist størst eller mindst!
Hov - ER DET MULIGT, at man også kan lave en HVIS formel der medfører at HVIS Poul vinder, kommer der et billede frem? (billedet kan vel bare ligge et andet sted på arket, og så blive flyttet til cellen, hvis kravet opfyldt, og hvis ikke bare returnere en blank celle, så det ikke ses?)
-I bund og grund skal det være sådan at hvis jeg vinder skal der være et billede af mig der mooner mine kammerater :D
Hvis du kan lave et eksempel med et eller andet billede får du alle point, for det var bare en ting jeg glemte i første indlæg, ellers må i self. gerne dele dem - men det var jo dig der gav løsningen....
Billedet skal vel ligge på et ark i mappen for at det ovrhovedet skal kunne lade sig gøre - men den kan bare ligge nede i række 7.000-et eller andet, gør joi ikke nogen forskel.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B3:B5")) Is Nothing Then Exit Sub If Range("B3") > Range("B4") And Range("B3") > Range("B5") Then ActiveSheet.Pictures.Insert ("C:\Users\pm\Desktop\DinFil.jpg") Else On Error Resume Next ActiveSheet.Shapes(1).Select: Selection.Delete End If End Sub
hvis dit billede er på arket så brug denne: sig til hvis du skal have hjælp til koden
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B3:B5")) Is Nothing Then Exit Sub If Range("B3") > Range("B4") And Range("B3") > Range("B5") Then ActiveSheet.Shapes(1).Visible = True Else ActiveSheet.Shapes(1).Visible = False End If End Sub
for at lukke skal du markere box med navn og klikke accepter
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.