» »

Naloga v Excelu

Naloga v Excelu

Jancheq99 ::

V šoli imamo neko nalogo iz programa Excel. Ta zahteva izdelavo nekega igralnega avtomata, ki s pritiskom na gumb poda 3 simbole itd. Vse mi je uspelo narediti, razen seštevanja točk glede na dobljene simbole. Se pravi zanima me, kako bi v Excelu naredil sledeče:

Hvala za pomoč!

111111111111 ::

A1= 7
B1= 7
C1= 7
D1= =IF(AND(A1=7;A1=B1;A1=C1);20;0)

Potem narediš tam kjer je nula samo še if stavke za vse ostale simbole. Če bi rad kaj bolj natančnega boš pa moral kaj več povedati.

HighBane ::

Se mi zdi, da najbolj preprosto s uporabo IF in else funkcij, ne vem točnih znakov, ki jih excel uporablja, samo nekaj takega.
1) IF (:okence 1: = 7 in :okence 2: = 7 in :okence 3: = 7), naredi "score + 20" (ali kar :okence 1: = :okence 2: = :okence 3: =7)
else
2) IF (:okence 1: = :okence 2: = :okence 3:), naredi "score + 5"
else
3) IF (:okence 1: = :okence 2: ali :okence 1: = :okence 3: ali :okence 2: = : okence 3:), naredi "score +2"
else
4) IF (:okence 1: =/ :okence 2: =/ :okence 3:), naredi "score -3"

Zgodovina sprememb…

  • spremenil: HighBane ()

Jancheq99 ::

Chuapoiz tale odgovor mi je res zelo pomagal. Zdej sm vglavnem naredu da mi izpisuje točke tko kot je treba. Ampak moram pa še naredit, da mi bo točke še seštevalo in ne le izpisovalo. Moram nekam vmes vrinit funkcijo SUM?

milc ::

V funkciji, ki se izvrši ob pritisku na gumb dodaj klic spodnje funkcije, ki predvideva, da imaš v polju D6 rezultat točk.

Sub PopraviTocke()
  Dim tockeMet as Integer

'Nastavis na 0
  tockeMet = 0

'preveris, ce so vsa tri polja enaka 7
  If  Range("A1").value = Range("A2").value And
      Range("A2").value = Range("A3").value And 
      Range("A3").value = 7 
  Then
     tockeMet = 20
'preveris, ce so vsa tri polja enaka
  ElseIf Range("A1").value = Range("A2").value And
         Range("A2").value = Range("A3").value     
  Then
     tockeMet = 5
  ElseIf 
'preveris, ce sta vsaj dva polja enaka
    Range("A1").value = Range("A2").value Or
    Range("A2").value = Range("A3").value Or
    Range("A1").value = Range("A3").value
  Then
     tockeMet = 2
  Else
'ce niso 3 enaka polja in ce nista dva enaka, potem so vsa tri polja razlicna
     tockeMet = -3
  End If

  Range("D6").value = Range("D6").value + tockeMet 
End Sub

Zgodovina sprememb…

  • spremenil: milc ()

Isotropic ::

kaksna sola je to, srednja racunalniska al kaj drugega?

Jancheq99 ::

Hvala vsem za pomoč, res ste mi zelo pomagali!
Isotropic, tako je, to je srednja računalniška šola, 2.letnik :)

Isotropic ::

kako ste pa naredili to, s kaksnim dashboardom? bi se ti dalo linkati xls?
pa bi lahko prilimal se kaksne dodatne naloge? magar na zs, ce iz kaksnega razloga nebi public


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Excel: izbris obeh podvojenih vrednosti

Oddelek: Programiranje
5968 (912) dvojka
»

Excel IF in macro

Oddelek: Programiranje
101226 (1098) snow
»

[Excel]Kako izvleči vrednost?

Oddelek: Programiranje
223636 (3359) Mobidick
»

[Excel]Vrednost celice = ime dokumenta

Oddelek: Programska oprema
314526 (3948) veteran
»

[excel]duplikati

Oddelek: Programiranje
81406 (1333) baksuz

Več podobnih tem