val med radioknappar i excel

Finns en massa sätt, men det här borde vara absolut enklast:
1. visa ->verktygsfält->formulär
Börja med att skapa en gruppruta, lägg till 2 "radioknappar"
Högerklicka på någon av radioknapparna och välj "formatera kontroll", kontroll, cellänk
Skapa en celllänk, exempelvis till D4 (eller något undangömt).

Om du klickar så ser du att värdet i D4 ändras mellan 1<>2

2. Gör ett villkor som läser av värdet i D4 och väljer vilken av dina formler som skall användas. Typ:

=OM(D4=1;1;OM(D4=2;0,085;0))*(((140-B4)*B5)/(72*D6))

Eller, lite snyggare

=VÄLJ(D4;1;0,085)*(((140-B4)*B5)/(72*D6))

Du skulle naturligtvis kunna köra makron osv. Men jag tror att det här är enklast. Om du "gömmer" målcellen under knapparna (och kanske ändrar textfärgen till vit) så lär den inte störa.

tack för ditt förslag :h
Har lite fler frågor
#1
hur fick du fram din formel?
Om jag använder excels "inbygda" får jag

=OM(D4=1;0,65*325;1*325)

#2
Om jag vill att cel C1, B5, och D9 skall vara toma vid "öppning" dvs från början, hur gör jag detta på bästa sättet?

1:
Dels utnyttjar jag att du bara vill ändra en del av formeln. DVS
i princip ändrar jag bara "multiplikatorn". I ditt senaste exempel skulle det bli

=325 * OM(D4=1;0,65;1)

Det går inte att få fram med guiderna. Men du kan dela upp ett problem i flera celler, då kan du använda guiderna för att få fram delarna och sedan klistrar du ihop.

I mitt exempel är den första formeln är en om/annars Om formel.
det är enkelt att skapa om du delar upp det hela på flera celler.

Ett villkor, om det uppfylls så returneras något
annars -> ett nytt OMvillkor (som man kan klippa och klistra om man inte råkar veta hur man skall skriva) Om det uppfylls returneras något2 annars något3. Du kan "nästla" 7 eller 8 villkor på det sättet.

"om d4=1 så sätt värdet= 1
Annars, om d4=2 sätt värdet= 2, annars (dvs allt annat) sätt värdet= 0"

Formel 2 är lite enklare att förstå, men den är ganska begränsad. Det första argumentet är cellen den skall titta i. Efterföljande argument är vad den skall returnera om indata=1, 2, 3... tom 30 (fungerar tyvärr bara upp till 30)
=VÄLJ(Indata;Utdata om indata=1;Utdata om indata=2 ...osv)

2: Vad är det du gör egentligen? Något slags formulär antar jag.
Hmmm, antar att vill du kunna spara undan ifyllda data? Då är ju automatisk radering vid start uteslutet (annars raderas ju eventuella data).
Är det ett slag tomt mallblad du vill ha alltså? Måste kolla hur man gör i sådana fall.

Om det är något slags "miniräknare" så skulle ju raderingen fungera. Högerklicka på fliknamnet längst ner (typ "Blad1") och välj "visa kod". Högst upp i kodfönstret har du 2 rullgardiner "(Allmänt)" och "(deklarationer)". Ändra till Worksheet och Activate

Option Explicit
Private Sub Worksheet_Activate()
     ActiveSheet.Range("C1,B5,D9").Clear
End Sub

kräver att verktyg->makron->säkerhet är inställt på en lagom nivå

MindreVetande skrev:

1:
"om d4=1 så sätt värdet= 1
Annars, om d4=2 sätt värdet= 2, annars (dvs allt annat) sätt värdet= 0"

Kan jag formulera typ

om d4=1 så sätt värdet= formulär1
Annars, om d4=2 sätt värdet= formulär2, annars (dvs allt annat) sätt värdet= 0

MindreVetande skrev:

1:
Men du kan dela upp ett problem i flera celler, då kan du använda guiderna för att få fram delarna och sedan klistrar du ihop.

kan du visa typ hur du delar upp i flera celler och sedan klistrar?

MindreVetande skrev:

2: Vad är det du gör egentligen? Något slags formulär antar jag.
Hmmm, antar att vill du kunna spara undan ifyllda data? Då är ju automatisk radering vid start uteslutet (annars raderas ju eventuella data).
Är det ett slag tomt mallblad du vill ha alltså? Måste kolla hur man gör i sådana fall.

Jag försöker göra en beräkningsunderlag för att få fram KreatinClearence :)
Då är jag intresserad av värden i C1, B5 och D9.
Och jag vill att dessa "rutor" skall vara tomma när filen öppnas.

#3.
Jag vill skydda dokumentet frå att obehårigt ändras. Räcker då med:

formatera celler/skydd/låst

eller finns det andra sätt med?

hur klippa/klistra?

Nu har jag fått två olika villkor som jag vill kombinera:

=OM(S3=1;(0,85*(((140-B4)*B5)/(72*(B6*0,0113)))))

och

=OM(S3=2;(((140-B4)*B5)/(72*(B6*0,0113))))

men hur?

Börjar i fel ände :-)

ptr_lks skrev:

Nu har jag fått två olika villkor som jag vill kombinera:
och men hur?

Jag visar några olika sätt så förstår du säkert logiken.

1. Kopiera in din andra fomel i den första
Kopiera din andra formel via "fomelfältet" (raden ovanför rutnätet som visar formeln). Gå sedan till cellen med din första formel, gå upp i formelfältet, och tryck på knappen till vänster om formeln ("fx" eller "=" beroende på excelversion). nu skall du få upp "guiden" med "värde_för_falskt" tom. klistra in formel2 i fältet "värde_för_falskt" (utan det inledande "=").
DVS

=OM(S3=1;(0,85*(((140-B4)*B5)/(72*(B6*0,0113))));OM(S3=2;(((140-B4)*B5)/(72*(B6*0,0113)))))

eller, om man städar bort några onödiga paranteser

=OM(S3=1;0,85*(140-B4)*B5/(72*B6*0,0113);OM(S3=2;(140-B4)*B5/(72*B6*0,0113)))

2. Men, det där är lite onödigt långt. Eftersom parantesen är samma så räcker det med att ändra mellan 1 och 0,85 och ta det gånger parantesen. Dvs

=OM(S3=1;0,85;OM(S3=2;1))*(parantesvärdet)

eller, bakvänt

=((140-B4)*B5/(B6*72*0,0113))*OM(S3=1;0,85;OM(S3=2;1))

(du skulle för övrigt kunna räkna ut 72*0,0113, det ändras ju aldrig)

3. Ytterligare en variant är att använda "VÄLJ"

=VÄLJ(S3;0,85*(140-B4)*B5/(72*B6*0,0113);(140-B4)*B5/(72*B6*0,0113))

eller kortare

=VÄLJ(S3;0,85;1)*(140-B4)*B5/(72*B6*0,0113)

ptr_lks skrev:

KreatinClearence

Ohh, självklart, att jag inte tänkte på det :OO Låter labbigt.

Ok, det där med att dela upp har du ju redan listat ut.

Hmmm, dokumentskydd.
celler/skydd/låst är bara det första steget.
du bestämmer vad som skall vara öppen och vad som skall vara låst.

Standard är låst, så du tar bara bort krysset för de celler som skall gå att ändra (B4-B6 och S3). TA INTE bort skyddet på din gruppruta.

Nästa steg är att låsa bladet eller arbetsboken.
Verktyg, skydd, skydda blad. Ta bort kryssen för allt utom "markera olåsta celler" och ange ett lösenord om du har lust. Kabang!!! Nu kan du bara hoppa mellan de oskyddade cellerna. Tyvärr inklusive S3. Vette tusan hur man blir av med det...

Men, det här löser ju inte ditt ursprungsproblem...
Förslag1.
Se till at B4-B6 är tomma
Arkiv->spara som -> verktyg (högst upp till höger) -> allmänna alternativ -> ange ett lösenord för skrivskydd.
Nu kan folk bara öppna din bok med skrivskydd. Dvs vad de än ställer till med så kan dom inte spara det (dom kan spara en kopia). Inte perfekt, men det borde duga.

Förslag 2. ähhh, finns inte...

Hmmm, känns som om jag missat något. Du får återkomma i sådanna fall.

MindreVetande skrev:

Ohh, självklart, att jag inte tänkte på det :OO Låter labbigt.

Ok, det där med att dela upp har du ju redan listat ut.

Hmmm, dokumentskydd.
celler/skydd/låst är bara det första steget.
du bestämmer vad som skall vara öppen och vad som skall vara låst.

Standard är låst, så du tar bara bort krysset för de celler som skall gå att ändra (B4-B6 och S3). TA INTE bort skyddet på din gruppruta.

Nästa steg är att låsa bladet eller arbetsboken.
Verktyg, skydd, skydda blad. Ta bort kryssen för allt utom "markera olåsta celler" och ange ett lösenord om du har lust. Kabang!!! Nu kan du bara hoppa mellan de oskyddade cellerna. Tyvärr inklusive S3. Vette tusan hur man blir av med det...

Men, det här löser ju inte ditt ursprungsproblem...
Förslag1.
Se till at B4-B6 är tomma
Arkiv->spara som -> verktyg (högst upp till höger) -> allmänna alternativ -> ange ett lösenord för skrivskydd.
Nu kan folk bara öppna din bok med skrivskydd. Dvs vad de än ställer till med så kan dom inte spara det (dom kan spara en kopia). Inte perfekt, men det borde duga.

Förslag 2. ähhh, finns inte...

Hmmm, känns som om jag missat något. Du får återkomma i sådanna fall.

Jag får ej till det med radioknapparna. försöker låsa upp... men när jag öppnar igen, så kan jag inte kryssa i radioknapparna.
Bifogar filen

ptr_lks skrev:

Jag får ej till det med radioknapparna. försöker låsa upp... men när jag öppnar igen, så kan jag inte kryssa i radioknapparna.
Bifogar filen

Du glömde att ta bort skyddet för cell S3 (eftersom radioknapparna vill ändra S3 så protesterar den).
Och vad menar du med låsa upp? Du måste dels öppna filen "som vanligt" (utan skrivskydd) + ta bort själva bladskyddet (verktyg->skydd).
Det tråkiga när du tar bort skyddet för S3 är att den kommer att försöka hoppa dit om du tabbar dig igenom datafälten (n). Skall fundera lite. Borde gå att lösa på något sätt :q

MindreVetande skrev:

Du glömde att ta bort skyddet för cell S3 (eftersom radioknapparna vill ändra S3 så protesterar den).

tack.. detta gjorde suset..

Alternativ för att slippa "hoppet" till S3.
1.) Infoga ett nytt blad bredvid "kreatin bladet" (infoga->kalkylblad). Antar att det blir "blad1"

2.) Ändra länkaddressen för radioknapparna (högerklick, formatera kontroll, kontroll) och i formeln så att de pekar på t.ex Blad1!$A$1, typ
=VÄLJ(Blad1!A1;0,85;1)*(140-B4)*B5/(72*B6*0,0113)

3.) sedan tar du bort skyddet för cell A1 på blad1

4.) Göm undan blad 1 (format, blad ,dölj)

5.) återställ skyddet för "kreatinbladet" (Verktyg, skydd, skydda blad)

Nu fungerar knapparna, och du kan bara "tabba" runt mellan B4, b5, b6
borde bli rätt så ok?

!!!!!!!!!!!!!!!!!Överkurs!!!!!!!!!!!!!!!!!
Om du vill göra det riktigt snygg så borde du lägga till indatakontroll på dina fält (B4-B6).
Exempel ålder
Markera B4 (bladet skall vara oskyddat) och gå till Data->verifiering.
Under kriterier för verifiering sändrar du till något vettigt. T.ex:
Hela nummer
Mellan
Minimum (något vettigt, typ 18)
Minimum (något vettigt, typ 100)

Sedan kan du gå till fliken "felmeddelanden" och skriva en lämplig varning

Vikt är väl svårt att ange nåra gränser (men kanske någont absurt, typ 300 kg, bara för att varna om någon råkar skriva in 3 siffror)

ymolen borde väl gå? Antar att man kan råka använda fel "decimal", typ m istället för y eller nåt? Rimliga gränser.

Borde inte säga det här nu när du är färdig, men:
http://www.nephron.com/cgi-bin/CGSI.cgi

***springer och duckar***