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

536

    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. Hengenvaaralliset kiihdytysajot päättyivät karmealla tavalla, kilpailija kuoli

      Onnettomuudesta on aloitettu selvitys. Tapahtuma keskeytettiin onnettomuuteen. Tapahtumaa tutkitaan paikan päällä yhtei
      Kauhava
      180
      6567
    2. Ootko rakastunut?

      Kerro pois nyt
      Ikävä
      148
      1814
    3. Onhan sulla nainen parempi mieli

      Nyt? Ainakin toivon niin.
      Ikävä
      113
      1588
    4. Ujosteletko tosissaan vai mitä oikeen

      Himmailet???? Mitä pelkäät?????
      Ikävä
      51
      1310
    5. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      47
      1019
    6. Möykkähulluus vaati kuolonuhrin

      Nuori elämä menettiin täysin turhaan tällä järjettömyydellä! Toivottavasti näitä ei enää koskaan nähdä Kauhavalla! 😢
      Kauhava
      40
      973
    7. Älä mies pidä mua pettäjänä

      En petä ketään. Älä mies ajattele niin. Anteeksi että ihastuin suhun varattuna. Pettänyt en ole koskaan ketään vaikka hu
      Ikävä
      98
      942
    8. Reeniähororeeniä

      Helvetillisen vaikeaa työskennellä hoitajana,kun ei kestä silmissään yhtään läskiä. Saati hoitaa sellaista. Mitä tehdä?
      Kouvola
      5
      869
    9. Tarvitsemme lisää maahanmuuttoa.

      Väestö eläköityy, eli tarvitsemme lisää tekeviä käsiä ja veronmaksajia. Ainut ratkaisu löytyy maahanmuutosta. Nimenomaan
      Maailman menoa
      243
      853
    10. Kävit nainen näemmä mun

      Facessa katsomassa....
      Ikävä
      41
      819
    Aihe