Keskustelu: Ohjelmointikysymykset: VB.NET: VB2010: ComboBoxin arvon siirtäminen

pointer [21.09.2012 14:36:43]

Hei!

Harjoittelen ohjelmointia VB2010:llä ja olen tehnyt ensimmäisenä projektina kaupanteko ohjelman lomakkeilla eli käyttäjä valitsee comboboxeista "tuotteita". Lopuksi vahvista nappia painamalla ohjelma siirtää valitut "tuotteet" excelin taulukkoon jossa on "tilausvahvistus". Olen monta ongelmaa jo ratkaissut mutta näitä seuraavia en ole vielä voittanut ja toivon saavani teiltä apua.

Ongelma1:
Miten saan lomakkeen comboboxeihin valitut arvot siirrettyä Taul2:sen tiettyyn soluun kun käyttäjä painaa vahvista nappia(Tilausvahvistus).
Ongelma2:
Miten saan siirrettyä lomakkeella olevan comboboxin arvon Listboxiin "Lisää" painikkeella ja poistettua arvon "Poista" painikkeella. Eli ostoskori tyyppinen ratkaisu.

Kiitos!

groovyb [21.09.2012 14:56:03]

Siis teetkö nyt VB / Visual studio + office.interop:lla töitäsi,
vaiko pelkästään excelillä + vba?

pointer [21.09.2012 15:09:16]

excel + vba

neau33 [25.09.2012 10:56:14]

Moi pointer!

'ThisWorkbook
Private Sub Workbook_Open()
    If Not UserForm1.Visible Then
        UserForm1.Show 0
    End If
End Sub

'UserForm1
Private Sub UserForm_Activate()

    ComboBox1.List = Split(",valinta1,valinta2,valinta3,valinta4,valinta5", ",") 'esim.
    ComboBox1.ListIndex = 0

End Sub

Private Sub ComboBox1_Change()

    If ComboBox1.ListIndex > 0 Then
        Taul2.Cells(1, 1).Value = ComboBox1.Value 'esim.
    End If

End Sub

Private Sub CommandButton1_Click()

    If ComboBox1.ListIndex > 0 Then
        If ListBox1.ListCount = 0 Then
            ListBox1.AddItem ComboBox1.List(ComboBox1.ListIndex)
        Else
            For i = 0 To ListBox1.ListCount - 1
                If ListBox1.List(i) = ComboBox1.List(ComboBox1.ListIndex) Then
                    IsExisting = True: Exit For
                End If
            Next i
            If Not IsExisting Then
                ListBox1.AddItem ComboBox1.List(ComboBox1.ListIndex)
            End If
        End If
    End If

End Sub

Private Sub CommandButton2_Click()

    If ListBox1.ListCount > 0 And ComboBox1.ListIndex > 0 Then
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.List(i) = ComboBox1.List(ComboBox1.ListIndex) Then
                 ListBox1.RemoveItem i: Exit For
            End If
        Next i
    End If

End Sub

pointer [25.09.2012 15:36:38]

Kiitos paljon!

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku