Trenger combobox i Excel

[HaKj]

Hei

 

Er det noen som kan hjelpe meg med følgende problem:

 

Jeg ønsker meg en combobox i et excelark.

Denne skal inneholde tre valg: m2, lm og stk

 

Når jeg velger en av disse i comboboxen ønsker jeg at den regner ut en formel:

 

f.eks: hvis jeg velger m2 så skal boksen gjøre følgende:

 

((F13 * H13)/1000000)*J13, også plassere resultatet av dette i celle U13

 

Kan dette løses på en enkel måte?

 

Beste hilsen

 

Harald K

[Harald Staff]

Det aller meste kan løses i Excel. Hvor enkelt, er en mer subjektiv greie.

 

Først: Hvis U13 skal inneholde resultatet så må formelen stå i U13 i utgangspunktet (ELLER vi snakker makroprogrammering, det er en helt annen øvelse). En formel kan altså stå et sted og regne men ikke dytte resultater ut til andre steder.

 

Jeg gjetter oppsettet ditt sier kvadratmeter / løpemeter / stykker, kan du forklare litt mer hva som står hvor hvorfor, og hvordan det er ment brukt?

 

Beste hilsen Harald

[HaKj]

Hei

 

Det er et kalkyleskjema for innredningsprodukter:

 

F.eks. Garderobeskap bredde = 500 mm, lengde, 2000 mm, 5 stk.

 

Jeg ønsker at hvis jeg velger m2 så regner den ut kvadratmeter(500 x 2000/1000000 x 5), og hvis jeg velger lm så regner den ut løpemeter(2000/1000 x 5), hvis jeg velger stk skal det stå stk(5).

 

Fikk dette fra et forum på MSDN:

 

Private Sub cmbMyCombo_Change()

 

Dim dblParam1 As Double

Dim dblParam2 As Double

Dim dblParam3 As Double

Dim sSheet As String

 

sSheet = "Sheet9"

 

Select Case cmbMyCombo.Value

 

Case "STK"

 

dblParam1 = Sheets(sSheet).Cells(13, 6).Value

dblParam2 = Sheets(sSheet).Cells(13, 8).Value

dblParam3 = Sheets(sSheet).Cells(13, 10).Value

 

Sheets(sSheet).Cells(13, 21).Value = ((dblParam1 * dblParam2) / 1000000) * dblParam3

 

Case "M2"

 

Case "LM"

 

End Select

 

End Sub

 

 

Skjønte ikke så mye av det, kanskje du kan hjelpe meg videre med det.

 

 

Hilsen Harald K

[HaKj]

 

Her er et skjermbilde av Excel hos meg:

[HaKj]

Hei

 

Ønsker at når jeg trykker i cellen (T13), så kommer det opp en liste (m2, lm og stk), når jeg velger en av disse regner excel ut m2(F13*H13/1000000*J13),Lm(H13/1000*J13) eller stk(J13) og setter det inn i cellen før(S13).

 

Kanskje det er en enkel løsning på dette som ikke innbefatter VBA.

 

Hilsen Harald

[Harald Staff]

Mañana

 

(i betydning skal se på det altså, ingen løfter)

 

Beste hilsen Harald

Endret 27. oktober 2010 av Harald Staff

[Harald Staff]

Det løste deg greit med en vanlig HVIS-formel.

Comboen lager du med Datavalidering, Liste.

 

Døp om fra Bok1.xlsx.txt til Bok1.xlsx

Bok1.xlsx.txt

 

Beste hilsen Harald

[HaKj]

Kjempebra

 

Det var akkurat slik jeg ønsket det.

 

Takk skal du ha.

 

 

Hilsen Harald