poniedziałek, 16 lipca 2007

Dodawanie usuwanie wiersza kolumny

VBA - dodawanie pojedynczego wiersza kolumny
Range("B2").Select
Selection.EntireColumn.Insert
Selection.EntireRow.Insert
VBA - usuwanie pojedynczego wiersza kolumny

Jak usunąć drugi wiersz arkusza.
Range("A2").Select
Selection.EntireRow.Delete
lub
Column(2).Delete
podobnie można usuwać dla kolumn:
Selection.EntireColumn.Delete

7 komentarzy:

  1. a jak zrobic, zeby wzial formatowanie dla nowego wiersza z wiersza dolnego a nie gornego?

    OdpowiedzUsuń
  2. w Office 2007 przy okazji wstawiania wiersza/kolumny - Excel pyta się czy formatowanie przenieść ze strony lewej/prawej lub z góry/z dołu względem wstawianego elementu

    OdpowiedzUsuń
  3. znalazłem ten temat i mam pytanie czy możliwe jest dodanie tylu wierszy poniżej wiersza A, ile wskazywała by wartość np w komórce A1 i tak przez zały arkusz?

    OdpowiedzUsuń
  4. Hej, Chciałbym nie wyświetlać wierszy w który w pierwszej komórce jest napisane "Tego nie bierzemy". Czy jest to możliwe?

    OdpowiedzUsuń
  5. Cześć,
    Chciałbym usunąć co trzeci wiersz w arkuszu OpenOffice Calc.
    Mam taki kod:
    "Sub Delete_Every_Other_Row()

    ' Dimension variables.
    Y = TRUE ' Change this to True if you want to
    ' delete rows 1, 3, 5, and so on.
    I = 3
    Set xRng = Selection

    ' Loop once for every row in the selection.
    For xCounter = 1 To xRng.Rows.Count

    ' If Y is True, then...
    If Y = True Then

    ' ...delete an entire row of cells.
    xRng.Cells(I).EntireRow.Delete

    ' Otherwise...
    Else

    ' ...increment I by one so we can cycle through range.
    I = I + 1

    End If

    ' If Y is True, make it False; if Y is False, make it True.
    Y = Not Y

    Next xCounter

    End Sub"

    Ale niestety przy próbie uruchomienia pojawia się komunikat "Błąd uruchomieniowy języka BASIC. Nie ustawiono zmiennej obiektu".
    Chodzi o ten fragment kodu: "Set xRng = Selection".

    Z góry dziękuję za szybką pomoc :)
    Pozdrawiam,
    Szymon

    OdpowiedzUsuń