Re: Makro - przesuń wiersze - problem:( - Article 104496 - go-pugleaf

Article View: pl.comp.lang.vbasic

Article #104496

Back to pl.comp.lang.vbasic Previous Next

Re: Makro - przesuń wiersze - problem:(

#104496

From: Michal AKA Miki
Date: Mon, 01 Mar 2010 22:48

26 lines
1920 bytes

Użytkownik <nothing.at.all@NOSPAM.gazeta.pl> napisał w wiadomości 
news:hmfpti$3js$1@inews.gazeta.pl...
> Tylko jak dla mnie do Next jest For i nie wiem, czy oślepłam czy coś 
> innego:(.
>
> A jakos tak nie użyłam Selection.Insert. A byłoby prościej? nie sądze.
>

No wlasnie z proponowana metoda Insert byloby duzo prosciej - bo wtedy Excel 
zrobi automatem to, co ty probujesz robic recznie. Pod warunkiem, ze ciebie 
dobrze rozumiemy...

Zrob sama taki przyklad:
- w arkuszu w komorce np. A3 wpisz sobie dowolna wartosc, np 120.
- w komorce A6 wpisz formule z adresem bezwzglednym, np "=$A$3"
- teraz wstawiasz wiersz ponad wierszem 3
- i zauwaz, ze w komorce A7 masz zmieniony adres bezwzgledny w formule 
"=$A$4"

Makra dzialaja tak samo:
    ActiveCell.FormulaR1C1 = "120"
    Range("A6").FormulaR1C1 = "=R3C1"
    Rows("2:2").Insert Shift:=xlDown

Pozdrawiam
Michal

Technical Details

Message-ID: <hmhg7q$phf$1@inews.gazeta.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail

References: <hm8bj5$q4o$1@inews.gazeta.pl> <tsdfvn3dwmkd.oljqd5i9yent.dlg@40tude.net> <hmfpti$3js$1@inews.gazeta.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: "Michal AKA Miki" <jakistammichal@z.onetu.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Makro - przesuń wiersze - problem:(
Date: Mon, 1 Mar 2010 23:48:25 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 28
Message-ID: <hmhg7q$phf$1@inews.gazeta.pl>
References: <hm8bj5$q4o$1@inews.gazeta.pl> <tsdfvn3dwmkd.oljqd5i9yent.dlg@40tude.net> <hmfpti$3js$1@inews.gazeta.pl>
NNTP-Posting-Host: mjelinski.tsi.tychy.pl
X-Trace: inews.gazeta.pl 1267483706 26159 83.142.120.170 (1 Mar 2010 22:48:26 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Mon, 1 Mar 2010 22:48:26 +0000 (UTC)
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5512
X-Priority: 3
X-RFC2646: Format=Flowed; Original
X-Newsreader: Microsoft Outlook Express 6.00.2900.5512
X-User: michalakamiki
X-MSMail-Priority: Normal
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message