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

549

    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. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      137
      3850
    2. Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista

      ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv
      Maailman menoa
      324
      2745
    3. Ulkoistin makuaistini Yleisradiolle

      Nyt voimme luottaa siihen, että Virallinen Totuus tekee maistelutyön puolestamme. Me persulandiassa arvostamme priimaa,
      Maailman menoa
      0
      2210
    4. Sanna on pakottaja, domina

      Pakotti sadistisessti työttömät hakemaan töitä, josta seurasi hirmuinen työttömyys. Näin on asia, jos uskomme Hesarin k
      Maailman menoa
      44
      2048
    5. Skodan hankintaan painostaminen toi potkut

      Kylläpä on kovat keinot käytössä, kun on yritetty pakottaa hankkimaan Skoda painostuskeinoilla. Kyllä valinnan pitää oll
      Skoda
      14
      1793
    6. No onneks ei tartte sit olla

      Mustis ku se ootki sinä itte 😂😂 Oon pelännyt että ehkä teille kehkeytyy jotain enemmän ku niin paljon yhteistä mut....
      Ikävä
      11
      1535
    7. Niinistö neliraajajarrutteli Natoon liittymistä vielä sodan alettua

      Myöntää nyt itsekin, mikä jo aikaisemmin tiedettiin. Marin vei Suomen ja Ruotsin Natoon. "”Myönnän auliisti jarruttelle
      Maailman menoa
      140
      1290
    8. Harmittaa ettei paluuta entiseen enää ole

      Paluuta entiseen ei ole koska pilasit kaiken.
      Ikävä
      93
      1222
    9. Lahden kolarisuma ja automaattinen hätäjarrutusjärjestelmä

      Olisiko uudehkojen autojen automaattinen hätäjarrutusjärjestelmä vähentänyt kolareiden määrää tuolla Lahden tiellä? Sumu
      Yleistä autoilusta
      90
      1043
    10. Mitä sun päässä oikeen liikkui

      Silloin kun menit laittamaan sille viestiä? Jotenkin tosi outoa?
      Ikävä
      54
      1011
    Aihe