Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Makro - ukrywanie scalonych wierszy

sandra662 25 Lut 2018 17:13 321 3
  • #1 25 Lut 2018 17:13
    sandra662
    Poziom 2  

    Szukam makra, które:
    gdy wartość w kolumnie M="tak" ukryje komórki z kolumn A:R w danym wierszu i przesunie dane do góry o wszystkie scalowane wiersze, czyli jeśli np. wiersz 1 i 2 , w kolumnie M jest scalowny i jeśli w tej komórce widnieje opis "Tak" to oba wiersze (1 i 2) przesuną się do góry

    0 3
  • #2 25 Lut 2018 18:54
    JacekCz
    Poziom 36  

    "szukasz makra" tzn sugerujesz, że ono gdzieś istnieje?

    Pachnie jak zadanie szkolne. Nie na Elektrodzie wykonujemy zadań szkolnych.
    Zacząłeś już robić? Na konkretny problem można liczyć na pomoc.

    0
  • #3 25 Lut 2018 21:08
    sandra662
    Poziom 2  

    Gwoli wyjaśnienia, szukam pomocy w zapisie kodu..
    Przy użyciu poniższego zapisu, usuwa się tylko jeden wiersz. Nie wiem w jaki sposób zapisać aby jednak usuwało wszystkie scalowane wiersze. Dodam, że nie ma stałej ilości scalowanych wierszy.

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    Jeśli na Elektrodzie są osoby, które mogą wskazać w jaki sposób można to zrobić (jeśli w ogóle), to będę wdzięczna.
    I nie, to nie jest szkolne zadanie, aczkolwiek, dopiero zaczynam się tego uczyć dla własnych potrzeb.

    0
  • #4 25 Lut 2018 21:50
    adamas_nt
    Moderator Programowanie

    Dwa sposoby, żeby sprawdzić ile jest komórek w MergeArea:
    1. przypisać do tablicy i sprawdzić rozmiar.
    2. Uwaga! Zaznaczyć (Select). Wtedy można sprawdzić ile komórek jest w Selection.

    W Twoim wypadku, na skróty, byłoby:
    bs.Rows(i).Select
    Selection.Delete

    0