🚀 go-pugleaf

Proponuje F8.

P.S. Dlaczego nie korzystasz z Selection.Insert?

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.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

Poprawiłam tą pętlę, znaczy Edn If, ale nadal coś nie tak:(.
Pomóżcie proszę.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

Poprawiłam End If i znowu coś nie tak:(.
Pomóżcie proszę.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

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

Hm, to chyba się nie rozumiemy. Chce móc szybko zmieniać wiersz do którego 
mam odwołanie w pliku. Np. w całej jednej zakładce mam odwołania do innego 
pliku, po kolei np. 1 wiersz w pliku X, odwołuje się do wiersza 120 w pliku 
Y, wiersz 2 w pliku X odwołuje się do wiersza 121 w pliku Y, itd. I teraz 
chce przesunąć odwołania, np. o 5 wierszy, czyli chce aby wiersz 1 odwoływał 
się do wiersza 125, wiersz 2 do 126, itd. Oczywiście chce to robić tylko w 
adresach bezwgędnych i szybko od razu wszystkie razem.
Przepraszam, że tak łopatologicznie, ale wkurzam się, że coś co miało mi 
ułatwić pracę tak nie działa:(.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

Dnia Tue, 2 Mar 2010 13:54:14 +0000 (UTC), nothing.at.all@NOSPAM.gazeta.pl
napisał(a):

> Hm, to chyba się nie rozumiemy. Chce móc szybko zmieniać wiersz do którego 
> mam odwołanie w pliku. Np. w całej jednej zakładce mam odwołania do innego 
> pliku, po kolei np. 1 wiersz w pliku X, odwołuje się do wiersza 120 w pliku 
> Y, wiersz 2 w pliku X odwołuje się do wiersza 121 w pliku Y, itd. I teraz 
> chce przesunąć odwołania, np. o 5 wierszy, czyli chce aby wiersz 1 odwoływał 
> się do wiersza 125, wiersz 2 do 126, itd. Oczywiście chce to robić tylko w 
> adresach bezwgędnych i szybko od razu wszystkie razem.
> Przepraszam, że tak łopatologicznie, ale wkurzam się, że coś co miało mi 
> ułatwić pracę tak nie działa:(.

Badz uprzejma operowac nazwami przyjetymi.
Wiersz, kolumana oraz komorka.

> 'Chce móc szybko zmieniać wiersz do którego mam odwołanie w pliku'

Jest plik .xls, ktory zawiera arkusze, ten zawiera wiersze i kolumny. 
Komorka to dana okreslona przez wiersz i kolumne, etc.
Nic nie mowilas o wiecej niz jenym pliku.

>Oczywiście chce to robić tylko w 
> adresach bezwgędnych i szybko od razu wszystkie razem.

Wstawiajac wiersz/kolumny, nie aktualizujac odwolan wzglednych chcesz, zeby
'przed' komorka A3 zawierala '=A1', a 'po' '=A2'?

Użytkownik <nothing.at.all@NOSPAM.gazeta.pl> napisał w wiadomości 
news:hmj5a6$s9m$1@inews.gazeta.pl...
> Hm, to chyba się nie rozumiemy. Chce móc szybko zmieniać wiersz do którego
> mam odwołanie w pliku. Np. w całej jednej zakładce mam odwołania do innego
> pliku, po kolei np. 1 wiersz w pliku X, odwołuje się do wiersza 120 w 
> pliku
> Y, wiersz 2 w pliku X odwołuje się do wiersza 121 w pliku Y, itd. I teraz
> chce przesunąć odwołania, np. o 5 wierszy, czyli chce aby wiersz 1 
> odwoływał
> się do wiersza 125, wiersz 2 do 126, itd. Oczywiście chce to robić tylko w
> adresach bezwgędnych i szybko od razu wszystkie razem.
> Przepraszam, że tak łopatologicznie, ale wkurzam się, że coś co miało mi
> ułatwić pracę tak nie działa:(.

Ok, chyba zaczynam rozumiec :)
Moze ja sprecyzuje po swojemu, a ty potwierdzisz, ze o to chodzi:
twoje makro nie ma przesuwac wierszy, a jedynie WYSZUKIWAC I ZMIENIAC 
definicje odwolan bezwzglednych w formulach, we wskazanym zakresie komorek, 
tak?
Zmiana definicji tych odwolan bezwzglednych ma polegac na zwiekszeniu 
wartosci w tym odwolaniu o zadana wielkosc.


Ok - pierwszy podstawowy blad - jesli w formule, ktora przerabiasz pojawia 
sie nazwa z cyfra, np. "Arkusz2", to numerek 2 z nazwy jest zjadany.
drugi - brakuje "end if" - wewnatrz petli for - "otwierasz" 3 razy "if", a 
zamykasz tylko 2 razy.

zmienilem troche twoj kod, daj znac, czy to jest to, co chcialas. Nie 
testowalem zbyt dokladnie, wiec pewnie pojawi sie jakis blad...
Tylko od razu mowie, ze kod ma spora wade - mianowicie - jesli teksty typu 
$23 znajda sie nie w formule, ale normalnie w wartosci komorki, to tez 
zostana zmienione...
takze zadziala rowniez dla komorek z tekstem typu: "Te buty kosztuja $200"


Sub PrzesunWiersze2()

Dim Cyfra As Integer
Dim NrZnaku As Integer 'nr biezacego znaku, ktory analizujemy
Dim Znak As String 'biezacy znak
Dim Liczba As String 'liczba za znakiem $ w postaci tekstowej
Dim Nliczba As Integer 'liczba za znakiem $ w postaci INT
Dim NowaFormula As String 'formula po zmianie
Dim Zmiana As Variant 'zmienna okreslajaca przesuniecie w formule
Dim komorka As Range ' pojedyncza komorka z zadanego zakresu

Zmiana = InputBox("Podaj przesunięcie wierszy")
If Zmiana = "" Then Exit Sub
' ustala zakres do zmian
Set Zakres = Selection

For Each komorka In Selection

    NowaFormula = ""

    ' zamiana cyfer w jednej komórce
    NrZnaku = 1
    Do While NrZnaku <= Len(komorka.Formula)

        Znak = Mid(komorka.Formula, NrZnaku, 1)
        ' dodaje znak jeśli nie numeryczny
        If IsNumeric(Znak) = False Then
            NowaFormula = NowaFormula & Znak
        Else
        'modyfikuje i dodaje znaki jeśli liczbowe
            If Mid(komorka.Formula, NrZnaku - 1, 1) = "$" Then
                Liczba = ""
                Do While IsNumeric(Mid(komorka.Formula, NrZnaku, 1))
                    Liczba = Liczba & Mid(komorka.Formula, NrZnaku, 1)
                    If NrZnaku = Len(komorka.Formula) Then Exit Do
                    NrZnaku = NrZnaku + 1
                Loop
                If Liczba <> "" Then
                    Nliczba = CInt(Liczba) + Zmiana
                    NowaFormula = NowaFormula & Nliczba
                End If
           Else
               NowaFormula = NowaFormula & Znak
           End If
        End If
        NrZnaku = NrZnaku + 1
    Loop

    komorka.Formula = NowaFormula
Next komorka
End Sub


Pozdrawiam
Michal 

Przepraszam, faktycznie powinnam pisać formalnie przyjętym językiem.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/

Dokładnie tak. Napisałam nieformalnie, pod siebie i dziwie się, że nikt nie 
potrafi zrozumieć. Poprawię się.

Brak zakończenia pętli poprawiłam już wcześniej. Ale nie widziałam tego 
zjadanego numerka.
Dziękuję bardzo, to już po częsci działa tak jak chciałam. Muszę jeszcze te 
wady poprawić.

Pozdrawiam.

-- 
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/