Exceliin nappi joka suorittaa laskun?

Apuja kaivataan

Miten saan taulukkoon laitettua napin tai checkboxin joka painettuna saa arvon 1 ja suorittaa haluamani laskun ja un-chekattuna palautuu 0?

4

698

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • apuja kaivataan

      Haluan siis että
      kaava m5=B5*$B$2 b5 on joko 1 tai 0 jota haluan napilla ohjata. ettei tarvi aina laittaa numeroa ruutuun.

      • askeltaja

        Lomakkeet > Askellin. Piirrä "Askellin". 2*klikkaa sitä. "Muotoile ohjausobjektia" Ohjaus-välilehdellä annat tarvittavat arvot ja OK. Nyt nuolia painamalla vaihdat 1 tai 0.


      • apuja kaivataan
        askeltaja kirjoitti:

        Lomakkeet > Askellin. Piirrä "Askellin". 2*klikkaa sitä. "Muotoile ohjausobjektia" Ohjaus-välilehdellä annat tarvittavat arvot ja OK. Nyt nuolia painamalla vaihdat 1 tai 0.

        Taas on tullut opittua jotain uutta, kiitos.
        Mutta valitettavasti ongelmani ei ratkennut täysin.
        Minun on nähtävä kokoajan mikä ruutu on chekattuna (arvo1 tai 0), eli
        a5:k23 välille tulee joka ruutuun näitä "nappeja".

        Siksi haluaisin joko napin tai checkboxin. Jos nappi niin napissa tulisi olla teksti 1 kun painettuna ja täysin harmaa ilman tekstiä jos ei painettuna eli 0.


      • apuja kaivataan kirjoitti:

        Taas on tullut opittua jotain uutta, kiitos.
        Mutta valitettavasti ongelmani ei ratkennut täysin.
        Minun on nähtävä kokoajan mikä ruutu on chekattuna (arvo1 tai 0), eli
        a5:k23 välille tulee joka ruutuun näitä "nappeja".

        Siksi haluaisin joko napin tai checkboxin. Jos nappi niin napissa tulisi olla teksti 1 kun painettuna ja täysin harmaa ilman tekstiä jos ei painettuna eli 0.

        valintaruudulle ja vaihto nppulalalle koodit...

        Private Sub CheckBox1_Click()
        If CheckBox1 Then
        CheckBox1.Caption = 1
        Range("B5") = 1
        Else
        CheckBox1.Caption = 0
        Range("B5") = 0
        End If
        End Sub

        Private Sub ToggleButton1_Click()
        If ToggleButton1 Then
        ToggleButton1.Caption = ""
        Range("B5") = 0
        Else
        ToggleButton1.Caption = 1
        Range("B5") = 1
        End If
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Muistatko kaivattusi

      Syntymäpäivän? Päivämäärä riittää. 🌹
      Ikävä
      112
      1639
    2. 105
      1185
    3. Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!

      https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro
      Maailman menoa
      138
      1071
    4. Mulla on ikävä

      sua nainen ja niitä katseita ❤️ Lupaatko, että katseemme kohtaa taas?
      Ikävä
      49
      969
    5. Miten pääsee ujon naisen pään sisään?

      Siis tosi tosi tosi ujon...
      Ikävä
      128
      857
    6. Keitä oli kunnanjohtajan erottajat?

      Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni
      Ilmajoki
      50
      854
    7. Atte Harjanne usuttaa eläkeläisvihaan

      Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v
      Maailman menoa
      240
      838
    8. Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.

      Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?
      Maailman menoa
      70
      745
    9. Pridekulkue kiellettävä?

      Näin täällä suoraan vaaditaan. Perusteina mitä mielikuvituksellisimmat tarinat. No, miksi ihmeessä kukaan ei ole samalla
      Luterilaisuus
      178
      719
    10. Mä oon tyytyväinen, että ei ole enää tunteita.

      Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu
      Ikävä
      55
      699
    Aihe