Kod VBA do wyświetlania danych w TextBox

Pytanie

napisz kod VBA aby w arkuszu wybranym w combobox C_NN wypisać wszystkie dane z nie pustych komórek z zakresu od A2 do C100 i wyświetlić je w textbox o nazwie L_S w formie tabeli. Inicjacja nastąpi po wciśnięciu commandbox o nazwie H_S

Odpowiedź Sztucznej Inteligencji

Bezpośrednia odpowiedź na pytanie

Poniżej znajduje się kod VBA, który realizuje zadanie wyświetlenia danych z zakresu A2:C100 wybranego arkusza w kontrolce TextBox o nazwie L_S w formie tabeli. Inicjacja następuje po kliknięciu przycisku H_S.

Szczegółowa analiza problemu

Kod VBA:

Private Sub H_S_Click()
    Dim ws As Worksheet
    Dim rng As Range
    Dim row As Range
    Dim outputText As String
    Dim maxLengthA As Integer, maxLengthB As Integer, maxLengthC As Integer

    ' Sprawdzenie, czy wybrano arkusz w ComboBox
    If C_NN.Value = "" Then
        MsgBox "Proszę wybrać arkusz z listy!", vbExclamation
        Exit Sub
    End If

    ' Ustawienie wybranego arkusza
    Set ws = ThisWorkbook.Worksheets(C_NN.Value)

    ' Ustawienie zakresu danych
    Set rng = ws.Range("A2:C100")

    ' Znalezienie maksymalnej długości tekstu w każdej kolumnie
    For Each row In rng.Rows
        If Len(row.Cells(1, 1).Value) > maxLengthA Then maxLengthA = Len(row.Cells(1, 1).Value)
        If Len(row.Cells(1, 2).Value) > maxLengthB Then maxLengthB = Len(row.Cells(1, 2).Value)
        If Len(row.Cells(1, 3).Value) > maxLengthC Then maxLengthC = Len(row.Cells(1, 3).Value)
    Next row

    ' Tworzenie nagłówka tabeli
    outputText = "+ " & String(maxLengthA + 2, "-") & " + " & String(maxLengthB + 2, "-") & " + " & String(maxLengthC + 2, "-") & " +" & vbNewLine
    outputText = outputText & "| " & PadRight("Kolumna A", maxLengthA) & " | " & PadRight("Kolumna B", maxLengthB) & " | " & PadRight("Kolumna C", maxLengthC) & " |" & vbNewLine
    outputText = outputText & "+ " & String(maxLengthA + 2, "-") & " + " & String(maxLengthB + 2, "-") & " + " & String(maxLengthC + 2, "-") & " +" & vbNewLine

    ' Przetwarzanie danych i tworzenie wierszy tabeli
    For Each row In rng.Rows
        If Not IsEmpty(row.Cells(1, 1)) Or Not IsEmpty(row.Cells(1, 2)) Or Not IsEmpty(row.Cells(1, 3)) Then
            outputText = outputText & "| " & PadRight(row.Cells(1, 1).Value, maxLengthA) & " | " & _
                         PadRight(row.Cells(1, 2).Value, maxLengthB) & " | " & _
                         PadRight(row.Cells(1, 3).Value, maxLengthC) & " |" & vbNewLine
        End If
    Next row

    ' Dodanie dolnej krawędzi tabeli
    outputText = outputText & "+ " & String(maxLengthA + 2, "-") & " + " & String(maxLengthB + 2, "-") & " + " & String(maxLengthC + 2, "-") & " +"

    ' Wyświetlenie wyników w TextBox
    L_S.Text = outputText
End Sub

' Funkcja pomocnicza do wyrównywania tekstu
Function PadRight(str As String, length As Integer) As String
    PadRight = str & Space(length - Len(str))
End Function

Kod inicjalizujący ComboBox:

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        C_NN.AddItem ws.Name
    Next ws
End Sub

Aktualne informacje i trendy

• Kod uwzględnia dynamiczne dopasowanie szerokości kolumn w tabeli, co poprawia czytelność.
• Wykorzystanie ComboBox do wyboru arkusza jest standardową praktyką w VBA, co zwiększa elastyczność aplikacji.

Wspierające wyjaśnienia i detale

• Funkcja PadRight: Służy do wyrównywania tekstu w kolumnach, dodając odpowiednią liczbę spacji.
• Nagłówki tabeli: Są generowane dynamicznie, aby pasowały do szerokości danych w kolumnach.
• Obsługa pustych komórek: Kod pomija puste komórki, co zapobiega wyświetlaniu niepotrzebnych wierszy.

Aspekty etyczne i prawne

• Kod nie narusza żadnych regulacji prawnych ani zasad etycznych, ponieważ działa wyłącznie na danych lokalnych użytkownika.

Praktyczne wskazówki

• Upewnij się, że TextBox ma włączoną opcję MultiLine, aby poprawnie wyświetlać wielowierszowy tekst.
• Zakres A2:C100 można dostosować do własnych potrzeb, zmieniając wartości w Set rng.

Ewentualne zastrzeżenia lub uwagi dodatkowe

• Kod zakłada, że dane w komórkach są tekstowe. Jeśli zawierają liczby lub daty, mogą wymagać dodatkowego formatowania.
• Przy dużej liczbie danych wydajność może być ograniczona.

Sugestie dalszych badań

• Rozszerzenie funkcjonalności o możliwość eksportu tabeli do pliku tekstowego.
• Dodanie opcji filtrowania danych przed wyświetleniem w TextBox.

Krótkie podsumowanie

Kod VBA umożliwia dynamiczne wyświetlanie danych z wybranego arkusza w formie tabeli w kontrolce TextBox. Uwzględnia wyrównanie kolumn, obsługę pustych komórek oraz dynamiczne dopasowanie szerokości tabeli. Jest to elastyczne i czytelne rozwiązanie, które można łatwo dostosować do własnych potrzeb.