Forum - VBA List Box με πολλαπλές στήλες

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] List Box με πολλαπλές στήλες (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2348-list-box-me-pollaples-stiles.html)

anestaki

12-02-13 19:56

List Box με πολλαπλές στήλες

Καλησπέρα σε όλους
Βοήθεια
Με τον παρακάτω κώδικα εμφανίζουμε σε ένα List Box τα δεδομένα μιας στήλης.
Όταν θέλουμε να εμφανίσουμε και της επόμενες πέντε στο ίδιο List Box την μια διπλά από την άλλη τι κάνουμε.
Και υπαρχή τρόπος να διαγράφουμε το επιλεγμένο από την List Box.
Σας ευχαριστώ εκ΄των ποτέρων Γιώργος

Κώδικας:

ListBox1.List = Range(.Cells(2, 5), .Cells(Rows.Count, 5).End(xlUp)).Value

Tasos

13-02-13 00:01

1 Συνημμένο(α)

Καλησπέρα!

Γιώργο δες το παράδειγμα στο συνημμένο.

Πρόσεξε τις ιδιότητες ColumnCount και MultiSelect του στοιχείου ελέγχου "ListBox1".

Καλή συνέχεια!

Τάσος

anestaki

16-02-13 16:41

Καλησπέρα σε όλους
Τάσο σε ευχαριστώ.
Μαζί με τα επιλεγμένη γραμμή στην λίστα μπορούμε να διαγράφουμε και τα δεδομένα.

Κώδικας:

Private Sub cmdRemoveListSelectedItem_Click()

    Dim i As Long

    For i = ListBox1.ListCount - 1 To 0 Step -1

        If ListBox1.Selected(i) Then

            ListBox1.RemoveItem i

        End If

    Next

End Sub

anestaki

17-02-13 21:45

Παράθεση:

Αρχική Δημοσίευση από anestaki (Μήνυμα 13900)

Κώδικας:

Private Sub cmdRemoveListSelectedItem_Click()

    Dim i As Long

    For i = ListBox1.ListCount - 1 To 0 Step -1

        If ListBox1.Selected(i) Then

            ListBox1.RemoveItem i

        End If

    Next

End Sub

Ok το βρήκα:
Φύλλο15.Range("c" & 2 + i) = ""
Φύλλο15.Range("d" & 2 + i) = ""
Φύλλο15.Range("e" & 2 + i) = ""
Φύλλο15.Range("f" & 2 + i) = ""
Φύλλο15.Range("g" & 2 + i) = ""
Φύλλο15.Range("h" & 2 + i) = ""
Φύλλο15.Range("i" & 2 + i) = ""
Φύλλο15.Range("j" & 2 + i) = ""

Η ώρα είναι 11:08.

Search Engine Optimization by vBSEO 3.3.2