Forum » Programiranje » Dodajanje gumba v excelu
Dodajanje gumba v excelu
Martin91 ::
Pozdravljeni!
Ker nikoli ne vem kam gre denar v teh študentskih letih sem se odločil da se malo zorganiziram in tako sem naredil preprosto tabelo v excelu, ki mi računa zapravljen denar in nato pokaže, koliko denarja imam še na razpolago.
Zanima pa me, kako bi naredil gumb, ki mi prenese vrednost ene celice v drugo. Se pravi:
Naprimer, trenutna poraba pri hrani je 5,53€ in če grem v trgovino in zapravim 1.42€ morem sedaj na kalkulator izračunati koliko je 5.53+1.42 in tako dodati novo vrednost v celico. Sedaj pa bi rad naredil, da v neko celico(v mojem primeru L12) dodam vrednost 1.42, kliknem gumb Hrana in DODA to vrednost v celico C4 in tako naprej za ostale gumbe.
Kako narediti gumb to vem(omogočiš zavihek Developers), samo ne vem kako pravilno programirati.
PS: Straff ni STAFF ampak ostalo:)
Hvala za nasvete.
Ker nikoli ne vem kam gre denar v teh študentskih letih sem se odločil da se malo zorganiziram in tako sem naredil preprosto tabelo v excelu, ki mi računa zapravljen denar in nato pokaže, koliko denarja imam še na razpolago.
Zanima pa me, kako bi naredil gumb, ki mi prenese vrednost ene celice v drugo. Se pravi:
Naprimer, trenutna poraba pri hrani je 5,53€ in če grem v trgovino in zapravim 1.42€ morem sedaj na kalkulator izračunati koliko je 5.53+1.42 in tako dodati novo vrednost v celico. Sedaj pa bi rad naredil, da v neko celico(v mojem primeru L12) dodam vrednost 1.42, kliknem gumb Hrana in DODA to vrednost v celico C4 in tako naprej za ostale gumbe.
Kako narediti gumb to vem(omogočiš zavihek Developers), samo ne vem kako pravilno programirati.
PS: Straff ni STAFF ampak ostalo:)
Hvala za nasvete.
- spremenil: Martin91 ()
ALfonz ::
hej,
en način je tale:
Private Sub CommandButton1_Click()
'cells(12, 12) je tvoja L12
'cells(i, 3) je celica kamor prepišeš vrednost (prva je C4)
Dim i As Integer
For i = 4 To 22
If Cells(i, 3) = "" Then
Cells(i, 3) = Cells(12, 12)
Exit For
End If
Next i
End Sub
...pri tem pazi na meje for zanke za posamezen button.
en način je tale:
Private Sub CommandButton1_Click()
'cells(12, 12) je tvoja L12
'cells(i, 3) je celica kamor prepišeš vrednost (prva je C4)
Dim i As Integer
For i = 4 To 22
If Cells(i, 3) = "" Then
Cells(i, 3) = Cells(12, 12)
Exit For
End If
Next i
End Sub
...pri tem pazi na meje for zanke za posamezen button.
Zgodovina sprememb…
- spremenil: ALfonz ()
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | Excel: tiskanje po vrsticahOddelek: Pomoč in nasveti | 1109 (1022) | luksorzi |
| » | Calc/excel delo s tabeloOddelek: Programiranje | 1457 (1224) | salabajs |
| » | [Excel]Kako izvleči vrednost?Oddelek: Programiranje | 3783 (3506) | Mobidick |
| » | [excel] makro | excel -pomocOddelek: Programiranje | 1961 (1745) | smetko |
| » | Visual Basic in ExcelOddelek: Programiranje | 2675 (2241) | Vesoljc |