Listboxin valinnan säilyminen

Pasi

Terve,

Minulla on VBA:lla koodattuna ohjelmaa ja eräässä Formissa on Listbox ja kolme OptionButtonia. ListBoxiin tulee näkyviin luonnollisesti lista ja Optionbuttoneilla valitaan "Lisää", "Muokkaa" tai "Poista".

Jos valitsen OptMuokkaa eli "Muokkaa" ja sen jälkeen ListBoxixta muokattavan asian ja tämän jälkeen tulenkin toisiin aatoksiin ja valitsenkin OptPoista eli "Poista", niin miten saan ListBoxissa säilymään sen kohteen valittuna joka oli valittuna kun OptMuokkaa oli valittuna?

Sitten vielä toinenkin kysymys:

Jos täytän Listboxin .AddItem -käskyllä, niin voin poistaa sieltä rivin .RemoveItem -käskyllä taikka tyhjentää koko listan .Clear -käskyllä, mutta jos käytän listan täyttämiseen Excelin nimettyä aluetta ja .RowSource -käskyä, niin kumpikaan .RemoveItem eikä .Clear oikein pure. Millä listan saa tyhjäksi jos se on täytetty RowSource -käskyllä?

-Pasi-

4

547

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      ekaan mahdoton vastata tietämättä koodiasi ja jälkimmäinen on helppo
      Listbox1.RowSource=""

      • Pasi

        Olipas tosiaankin helppo homma tuo listan tyhjennys. Tässä hieman koodia (jossa lista on täytetty hiaman vaikeammalla tavalla kuin .RowSource jne.):

        Private Sub UserForm_initialize()
        ' Täytetään ComboBox ja valikot

        OptMuuntaja20_1_Click
        OptMuuntajaLisää_Click
        CboMuuntajaRyhmä.AddItem "Dyn"
        CboMuuntajaRyhmä.AddItem "Yzn"
        End Sub

        Private Sub OptMuuntaja20_1_Click()
        ' Tyhjennetään muuntajalista ja haetaan siihen 20/1 kV muuntajat

        Dim Rivinumero As Integer
        LstMuuntajat.Clear

        Cells.Find(What:="20 / 1 kV muuntajat", After:=Range("B6"), LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
        Rivinumero = ActiveCell.Row 2

        While Cells(Rivinumero, 2).Value ""
        LstMuuntajat.AddItem Cells(Rivinumero, 2).Value
        Rivinumero = Rivinumero 1
        Wend
        End Sub

        Private Sub OptMuuntaja1_04_Click()
        ' Tyhjennetään muuntajalista ja haetaan siihen 1/0,4 kV muuntajat

        Dim Rivinumero As Integer
        LstMuuntajat.Clear

        Cells.Find(What:="1 / 0,4 kV muuntajat", After:=Range("B6"), LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
        Rivinumero = ActiveCell.Row 2

        While Cells(Rivinumero, 2).Value ""
        LstMuuntajat.AddItem Cells(Rivinumero, 2).Value
        Rivinumero = Rivinumero 1
        Wend
        End Sub

        Private Sub OptMuuntaja20_04_Click()
        ' Tyhjennetään muuntajalista ja haetaan siihen 20/0,4 kV muuntajat

        Dim Rivinumero As Integer
        LstMuuntajat.Clear

        Cells.Find(What:="20 / 0,4 kV muuntajat", After:=Range("B6"), LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
        Rivinumero = ActiveCell.Row 2

        While Cells(Rivinumero, 2).Value ""
        LstMuuntajat.AddItem Cells(Rivinumero, 2).Value
        Rivinumero = Rivinumero 1
        Wend
        End Sub

        Private Sub OptMuuntajaLisää_Click()
        ' Aktivoidaan sarakkeita kun toiminnoksi valitaan "Lisää"

        Sub_tyhjennäMuuntajaArvot
        LstMuuntajat.ForeColor = &H80000011
        LstMuuntajat.Enabled = False
        LblMuuntajaHakunimi.Enabled = True
        TxtMuuntajaHakunimi.Enabled = True
        TxtMuuntajaHakunimi.SetFocus
        End Sub

        Private Sub OptMuuntajaMuokkaa_Click()
        ' Aktivoidaan sarakkeita kun toiminnoksi valitaan "Muokkaa"

        Sub_tyhjennäMuuntajaArvot
        LstMuuntajat.ForeColor = &H80000006
        LstMuuntajat.Enabled = True
        LblMuuntajaHakunimi.Enabled = False
        TxtMuuntajaHakunimi.Enabled = False
        LstMuuntajat.SetFocus
        End Sub

        Private Sub OptMuuntajaPoista_Click()
        ' Aktivoidaan sarakkeita kun toiminnoksi valitaan "Poista"

        Sub_tyhjennäMuuntajaArvot
        LstMuuntajat.ForeColor = &H80000006
        LstMuuntajat.Enabled = True
        LblMuuntajaHakunimi.Enabled = False
        TxtMuuntajaHakunimi.Enabled = False
        LstMuuntajat.SetFocus
        End Sub

        Private Sub LstMuuntajat_Change()
        ' Haetaan valitun muuntajan arvot näkyviin

        Dim MuuntajaTyyppi As String, Rivinumero As Integer, EtsittäväMuuntaja ' As String

        If OptMuuntaja20_1 = True Then MuuntajaTyyppi = "20 / 1 kV muuntajat"
        If OptMuuntaja1_04 = True Then MuuntajaTyyppi = "1 / 0,4 kV muuntajat"
        If OptMuuntaja20_04 = True Then MuuntajaTyyppi = "20 / 0,4 kV muuntajat"

        Cells.Find(What:=MuuntajaTyyppi, After:=Range("B6"), LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
        Rivinumero = ActiveCell.Row

        EtsittäväMuuntaja = LstMuuntajat.Value

        Cells.Find(What:=EtsittäväMuuntaja, After:=Cells(Rivinumero, 2), LookIn:=xlValues, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Activate
        Rivinumero = ActiveCell.Row

        CboMuuntajaRyhmä.Value = ""
        TxtMuuntajaHakunimi.Value = Cells(Rivinumero, 2).Value
        TxtMuuntajaSn.Value = Cells(Rivinumero, 3).Value
        TxtMuuntajaP0.Value = Cells(Rivinumero, 4).Value
        TxtMuuntajaPk.Value = Cells(Rivinumero, 5).Value
        TxtMuuntajaZk.Value = Cells(Rivinumero, 6).Value
        TxtMuuntajaRk.Value = Cells(Rivinumero, 7).Value
        TxtMuuntajaXk.Value = Cells(Rivinumero, 8).Value
        TxtMuuntajaZ0.Value = Cells(Rivinumero, 9).Value
        TxtMuuntajaR0.Value = Cells(Rivinumero, 10).Value
        TxtMuuntajaX0.Value = Cells(Rivinumero, 11).Value
        End Sub

        Sub Sub_tyhjennäMuuntajaArvot()
        ' Tyhjennetään muuntajan sähköisten arvojen kentät

        CboMuuntajaRyhmä.Value = Empty
        TxtMuuntajaHakunimi.Value = Empty
        TxtMuuntajaSn.Value = Empty
        TxtMuuntajaP0.Value = Empty
        TxtMuuntajaPk.Value = Empty
        TxtMuuntajaZk.Value = Empty
        TxtMuuntajaRk.Value = Empty
        TxtMuuntajaXk.Value = Empty
        TxtMuuntajaZ0.Value = Empty
        TxtMuuntajaR0.Value = Empty
        TxtMuuntajaX0.Value = Empty
        End Sub

        Formin yhdessä Framessa on siis Optionbuttonit "OptMuuntajaLisää", "OptMuuntajaMuokkaa" ja "OptMuuntajaPoista" sekä Listbox "LstMuuntajat". Samassa Framessa on lisäksi Label "LblMuuntajaHakunimi" sekä TextBox "TxtMuuntajaHakunimi"

        "OptMuuntaja20_1", "OptMuuntaja1_04" ja "OptMuuntaja20_04" ovat toisessa framessa ja "TxtMuuntajaSn" jne ovat kolmannessa framessa.

        Excel-taulukossa on lista muuntajista ja niiden sähköisistä arvoista joita haetaan (ja tarkoitus on muokata).

        Kun valitsen esimerkiksi "Muokkaa" ja sen jälkeen jonkun muuntajan ListBoxista, tulevat muuntajan sähköiset arvot näkyviin. Tämän jälkeen jos valitsenkin "Poista", niin haluaisin että äsken ListBoxixta valittu muuntaja säilyisi valittuna.


      • Pasi

        taikasanasta .ListIndex


      • Kunde
        Pasi kirjoitti:

        taikasanasta .ListIndex

        voisit nimetä muuntajan nimen sisältävän solun esim. "20 / 1 kV muuntajat" ja käyttää seuraavaa koodia sitten
        olettaen että sulla on muuntajan nimet B sarakkeessa ja aina yhtenäisellä alueella muuntajittain ja tyhjä rivi välissä seuraavan muuntajan tietoihin

        Dim rarray As Variant
        rarray = Range("20 / 1 kV muuntajat").CurrentRegion

        With Me.LstMuuntajat
        .List() = rarray
        .ListIndex = 0
        End With
        TxtMuuntajaSn = LstMuuntajat.List(LstMuuntajat.ListIndex, 1)
        TxtMuuntajaP0 = LstMuuntajat.List(LstMuuntajat.ListIndex, 2) jne...

        toi on aika mukava keino ja nopea

        ;-)Kunde


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

    Luetuimmat keskustelut

    1. Sanna Marin kysyi hämmästyneenä: Onko Suomessa jäänmurtajia?

      Nettilehden toimittaja kysyi Sanna Marinilta suoraan, että sovittiinko nuo jäänmurtajien kaupat jo 2019, jolloin Marin k
      Maailman menoa
      148
      4872
    2. Voiko normaali ihminen ryhtyä vasemmistolaiseksi?

      Tätä jäin pohdiskelemaan.
      Maailman menoa
      184
      3943
    3. SDP haluaa 40 000 nettomaahanmuuttajaa

      SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah
      Maailman menoa
      120
      3619
    4. Mikä tuota vasemmistolaisista jankkaavaa vaivaa?

      Pahasti on ihon alle, siis korvien väliin, päässeet kummittelemaan. Ei ole terveen ihmisen merkki jankata yhdestä asia
      Maailman menoa
      44
      2926
    5. Mitä ajattelit kun näit

      kaivattusi ensimmäisen kerran? xd
      Ikävä
      138
      1886
    6. Nyt meni lopulliset lämmöt.

      Alan käyttäytymään yhtä kylmästi miehiä kohtaan kuin mua kohtaan on käyttäydytty ja vain käytetty viimeiset pari vuotta
      Sinkut
      44
      1687
    7. Onko erityinen paikka jossa haluaisit nyt olla

      Onko joku spesiaali lempipaikka missä mieluiten olisit?
      Ikävä
      60
      1360
    8. Orpo loukkaantui fasismiin viittaavasta sanavalinnasta

      Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk
      Maailman menoa
      26
      1299
    9. Sulla on avaimet ja keinot

      Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi
      Ikävä
      21
      1271
    10. Meitä ei tule

      Koska periaatteemme ovat rakkautta vahvempia. Tämä on siis koettelemus, jonka tarkoitus on vahvistaa meitä yksilöinä 😌
      Ikävä
      23
      1223
    Aihe