Wie Display-Teil von Excel auf VBA-Form

Ich habe eine Datei auf .csv-format und von Als Spalten, es hat einige Datensätze wie eine Tabelle. Meine vollständige Programm einfügen/entfernen/löschen/hinzufügen von Zeilen, Spalten und Bearbeiten von Zellen-Werte etc. Ich schaffte es bis zum code alle Vorgänge, die ich brauche, jetzt versuche ich zu integrieren, es mit einer gui.

Was ich möchte, ist die display-Zellen von Ax1 auf die Letzte Spalte mit Eintrag auf VBA user form. Wie kann ich das tun?

*ps: wieder, meine Datei-format ist .csv-und ich bin mit Excel 2007

InformationsquelleAutor Timur Aykut YILDIRIM | 2012-11-23
  1. 19

    Können Sie ein mehrspaltiges Listenfeld zum anzeigen der Daten.

    LOGIK

    1. Importieren Sie die text - (Csv -) Datei in das temp-Blatt
    2. Zeigen, dass Daten in mehrspaltige Listbox -
    3. Löschen der temp-Blatt in der Userform unload-Ereignis

    Importieren Sie die text - (Csv -) Datei in das temp-Blatt

    Private Sub CommandButton1_Click()
    Dim wb As Workbook, wbTemp As Workbook
    Dim wsTemp As Worksheet

    Set wb = ThisWorkbook
    Set wbTemp = Workbooks.Open("C:\MyCsv.Csv")

    wbTemp.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)

    Set wsTemp = ActiveSheet

    wbTemp.Close SaveChanges:=False
End Sub

    Und jetzt können Sie anzeigen, dass Daten in einer mehrspaltigen listbox.

    Zeigen, dass Daten in mehrspaltige Listbox -

    Ich nehme ein Beispiel mit 3 Spalten und bis zu 20 Schlepptau. Ändern, wie zutreffend

    Private Sub CommandButton1_Click()
    Dim wb As Workbook, wbTemp As Workbook
    Dim wsTemp As Worksheet

    Set wb = ThisWorkbook
    Set wbTemp = Workbooks.Open("C:\MyCsv.Csv")

    wbTemp.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)


    Set wsTemp = ActiveSheet

    wbTemp.Close SaveChanges:=False

    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;50;50"
        .RowSource = wsTemp.Range("A1:C20").Address
    End With
End Sub

    SCREENSHOT

    Wie Display-Teil von Excel auf VBA-Form

    Löschen der temp-Blatt in der Userform unload-Ereignis

    Löschen der temp-Blatt, erklären die wsTemp auf der Oberseite des code, so dass Sie zugreifen können, die in der UserForm_QueryClose Veranstaltung. Sehen Sie das vollständige Beispiel

    Option Explicit

Dim wsTemp As Worksheet

Private Sub CommandButton1_Click()
    Dim wb As Workbook, wbTemp As Workbook


    Set wb = ThisWorkbook
    Set wbTemp = Workbooks.Open("C:\MyCsv.Csv")

    wbTemp.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)


    Set wsTemp = ActiveSheet

    wbTemp.Close SaveChanges:=False

    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "50;50;50"
        .RowSource = wsTemp.Range("A1:C20").Address
    End With
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Application.DisplayAlerts = False
    wsTemp.Delete
    Application.DisplayAlerts = True
End Sub

    HTH

    • nice one. Ich möchte nur klarstellen, ein Zweifel, also können wir zeigen unterschiedliche Menge von Bereichen wie Range("A1:E1") - Header, gefolgt von einem beliebigen Bereich unterhalb range("A20:E25")?
    InformationsquelleAutor Siddharth Rout
Schreibe einen Kommentar