Re: Pytanie o Excela

Article View: pl.comp.lang.vbasic

Article #92211

Back to pl.comp.lang.vbasic Previous Next

#92211

From: Stanislaw
Date: Fri, 21 Oct 2005 22:16

34 lines
1877 bytes

Przykładowo:
wpiszujesz pozycje w fakturze w wierszach od 6 do 20,
a w wierszu 21 masz podsumowanie,
(formułę sumującą)
czyli na wpisywanie masz 15 wolnych miejsc
(zakładasz, że nigdy nie będziesz potrzebował więcej).

Jak wpiszesz potrzebną ilość pozycji to klikasz przycisk w arkuszu,
który uruchamia makro ukrywające niewykorzystane wiersze,
a wiersz sumujący i wszystkie kolejne wiersze "podjeżdżają" do
góry.

Zakładam, że kolumną w której następuje sprawdzanie,
czy dany wiersz jest wypełniony jest kolumna "B".

Sub Ukryj()

Dim i As Long

For i = 6 To 20
    If Cells(i, "B").Value = "" Then _
       Cells(i, "B").EntireRow.Hidden = True
Next i

End Sub

Sub Odkryj()

    Rows("6:20").EntireRow.Hidden = False

End Sub

--
Stanislaw

Technical Details

Message-ID: <1129932980.196663.169900@f14g2000cwb.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!f14g2000cwb.googlegroups.com!not-for-mail

References: <dj56u6$1tjr$1@KORBolin.KS.K.PL><djbo0k$iob$1@nemesis.news.tpi.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!f14g2000cwb.googlegroups.com!not-for-mail
From: "Stanislaw" <stanislaw_@op.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Pytanie o Excela
Date: 21 Oct 2005 15:16:20 -0700
Organization: http://groups.google.com
Lines: 35
Message-ID: <1129932980.196663.169900@f14g2000cwb.googlegroups.com>
References: <dj56u6$1tjr$1@KORBolin.KS.K.PL><djbo0k$iob$1@nemesis.news.tpi.pl>
NNTP-Posting-Host: 83.175.176.33
Mime-Version: 1.0
X-Trace: posting.google.com 1129932985 12471 127.0.0.1 (21 Oct 2005 22:16:25 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 21 Oct 2005 22:16:25 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: f14g2000cwb.googlegroups.com; posting-host=83.175.176.33; posting-account=q9SwWg0AAACsZGpqQVbocTuYdhIZQRhD
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message