Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 42 43 44 ... 51 52
Wyślij wiadomość do admina

Przewiń wpisy ↓

Excel- potrzebna pomoc

2021-03-06 (14:20)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7813

14865
wpis nr 1 350 748
[ CZCIONKA MONOSPACE ]

siger7>

"Jezeli rozpis bedzie zawarty tylko w kolumnie A1 do A38 / a nie A1:F38/, to formula bedzie mniej skomplikowana ?"
Niestety nie.

Można Twój problem rozwiązać przy pomocy makra z odpowiednimi założeniami:

1. linia zawiera maksymalnie 20 liczb.
2. linie zapisujemy od pierwszego wiersza arkusza.
3. pary zapisujemy w kolumnach "X,Y" od pierwszego wiersza

W kolumnie "V" znajdą się wyniki sprawdzania ("0" - pozostawić, "1" - usunąć linię)
Po pozytywnej odpowiedzi na pytanie linie zostaną usunięte.

zdjęcie

A oto makro:

Sub wyczyść()
Columns("V:V").Select
Selection.ClearContents
wierszy = Application.WorksheetFunction.CountA(Range("A1:A65536"))
pozycji = Application.WorksheetFunction.CountA(Range("A1:T1"))
par = Application.WorksheetFunction.CountA(Range("X1:X65536"))
For y1 = 1 To wierszy
Cells(y1, 22) = 0
For y2 = 1 To par
licznik = 0
For x = 1 To pozycji
If Cells(y1, x) = Cells(y2, 24) Or Cells(y1, x) = Cells(y2, 25) Then
licznik = licznik + 1
End If
Next
If licznik = 2 Then
Cells(y1, 22) = 1
End If
Next
Next
decyzja = MsgBox("Usunąć linie ?", vbYesNo)
If decyzja = 6 Then
Columns("A:V").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range(Cells(1, 22), Cells(wierszy, 22)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range(Cells(1, 1), Cells(wierszy, 22))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("V:V").Select
Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
wiersz = ActiveCell.Row
Range(Cells(wiersz, 1), Cells(wierszy, 22)).Select
Selection.Delete Shift:=xlUp
End If
Columns("V:V").Select
Selection.ClearContents
End Sub
2021-03-06 (16:53)

status siger7
Data rejestracji: 2017-07-30
Ilość postów: 199

15381
wpis nr 1 350 771
[ CZCIONKA MONOSPACE ]

@fair_play
Jeszcze raz dziekuje, obydwa sposoby przetestowane,dzialaja bez zarzutu
2021-03-07 (19:00)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 350 972
[ CZCIONKA MONOSPACE ]

Czy ktoś pomoże mi wygenerować listę dat + indywidualne numery do pliku TEXTOWEGO?

Tutaj zakres dat od 2000 do końca 2007-Tutaj liczba od 1 do 1000

Przykład:

2003/10/03-9
2003/10/03-10
2003/10/03-34
2007/01/29-1000

--- wpis edytowano 2021-03-07 19:02 ---

2021-03-07 (20:05)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 1 350 988
[ CZCIONKA MONOSPACE ]

W pierwszym okieneczku wpisz 2000-01-01 i przeciągnij tą komórkę w dół aż do daty jaką chcesz.
Nie wiem o co ci chodzi z tymi numerami ale domyślam się że chodzi ci o numer porządkowy. Więc w pierwszej komórce obok daty wpisz =WIERSZ() i kliknij podwójnie w prawym rogu tej komórki podwójnie jak się kursor zmieni w krzyżyk, a o ci samo ponumeruje w dół do ostatniej daty
2021-03-07 (21:17)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 350 997
[ CZCIONKA MONOSPACE ]

merti - "przed momentem wpadłem na genialny (bardzo prosty sposób). Skoro mam specjalny generator, który generuje nazwy oczekiwane prze mnie

XXXX_XX_XX_XXX
zmienić na
XXXX_XX_XX-XXX

Rok_Miesiąc_Dzień_ID numer [zakres 1-1000]
Zmienić na:
Rok_Miesiąc_Dzień-ID numer [zakres 1-1000]


to wystarczy tylko ostatnie "_" zmienić na "-" i będzie OK
Tutaj tylko potrzebne wyrażenie regularne

To jest pełne dopasowanie, należy je zmodyfikować. jak?


--- wpis edytowano 2021-03-07 21:23 ---

2021-03-07 (21:32)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 1 351 002
[ CZCIONKA MONOSPACE ]

zaznacz całą kolumnę, CTRL-H i wpisz co na co zamieniasz
2021-03-07 (21:37)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 351 004
[ CZCIONKA MONOSPACE ]

Notepad++
Zamień _ na -
Zamienia wszystkie na - a ja chcę ostatnie _ zamienić na -

Gdybym miał regex, to zamiana trwa pół sekundy. Ale bez regex nici z tego, trzeba kombinować

--- wpis edytowano 2021-03-07 21:40 ---

2021-03-07 (22:43)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 1 351 025
[ CZCIONKA MONOSPACE ]

To zapisz proste makro, bo odległość od początku wiersza jest taka sama do "podłogi"
Ja tak mam zrobione makro do oddzielania średnikiem wyników piłkarskich bo tam mam wszystko w stałych odległościach

--- wpis edytowano 2021-03-07 22:44 ---

2021-03-07 (23:03)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 351 027
[ CZCIONKA MONOSPACE ]

a co to jest te makro, Makro to mi się kojarzy z aparatem fotograficznym, ze zdjęciami...
Nie sugeruj mi pisania skryptów, bo ja nie jestem żadnym programistą
2021-03-07 (23:07)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 351 033
[ CZCIONKA MONOSPACE ]

Tu nawet nie chodzi o excel ale o dowolny edytor tesktu. nie wiedziałem, że w edytorze nie da się zmienić "_" na "-". Kurcze dlaczego wszystko jest tak skomplikowane. Jakeiś makra trzeba pisac, aby zmienić jeden i ten sam znak. No ciekawe, ciekawe. ach jak ludzie starają sobie utrudnić życie.
2021-03-07 (23:14)

status merti
Data rejestracji: 2011-12-25
Ilość postów: 4460

13301
wpis nr 1 351 036
[ CZCIONKA MONOSPACE ]

Wiem że możemy sobie muchy w makro robić Ale N++ ma też zapisu makra czyli ruchów kursorem i podmiany "podłogi"
Makro jest proste: Musisz pamiętać by kursor zawsze ustawiać na górze w pierwszej linijce, potem kursorem jedziesz do "podłogi", kasuj, wpisz, Home, kursor dół i Stop zapisu makra.
Wycofujesz wszystkie zmiany aż będzie tekst przed zmianami, klikasz ikonę przewijania jak magnetofonie czyli Uruchom makra wielokrotnie, w okienku fajkujesz Wykonaj do końca pliku i Uruchom

--- wpis edytowano 2021-03-07 23:20 ---

2021-03-07 (23:19)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 351 040
[ CZCIONKA MONOSPACE ]

Nie wiem jak dopasować tylko do trzeciego znaku "_"
Lipa z tym wyrażeniem
\d_\d_\d[\_(\d+)]
2021-03-08 (18:02)

status puszatek
Data rejestracji: 2020-01-15
Ilość postów: 368

16097
wpis nr 1 351 233
[ CZCIONKA MONOSPACE ]

Makinero

Jeżeli chcesz zmienić coś np. w Notepad++ dla całej serii danych to musisz wpisać troszeczkę więcej niż tylko 1 znak.
Chcesz zmienić:

Rok_Miesiąc_Dzień_ID numer [zakres 1-1000]

na

Rok_Miesiąc_Dzień-ID numer [zakres 1-1000]

Wpisujesz co ma wyszukać: _ID
Wpisujesz na co ma zmienić: -ID

Opcja "Znajdź tylko całe wyrazy" musi być odznaczona.

I po bólu. Nie trzeba żadnego makra.
2021-03-09 (00:27)

status puszatek
Data rejestracji: 2020-01-15
Ilość postów: 368

16097
wpis nr 1 351 315
[ CZCIONKA MONOSPACE ]

Nie, jednak tym sposobem też będą błędy. Nie wyjdzie tak jak chcesz. Jest jeszcze jeden sposób ale taki na "piechotę" dużo kopiowania zmieniania przenoszenia.
2021-03-09 (01:27)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7813

14865
wpis nr 1 351 316
[ CZCIONKA MONOSPACE ]


makinero>

Załóżmy że te twoje XXXX_XX_XX_XXX są w kolejnych wierszach w kolumnie A.

W komówce B1 wpisz formułę:

=FRAGMENT.TEKSTU(A1;1;10)&"-"&FRAGMENT.TEKSTU(A1;12;99)

i przeciągnij ją do ostatniego wiersza z danymi.

W kolumnie B będziesz miał to czego oczekujesz.

Zaznacz kolumnę B, kliknij PPM, "Kopiuj", otwórz Notatnik i wklej.
2021-03-09 (10:07)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 351 360
[ CZCIONKA MONOSPACE ]

fair_play - nie mam płatnego Excela i nie wiem jak z niego korzystać
Dlatego moją prośbą była dowolny Edytor tekstu obsługujący WYRAŻENIA REGULARNE.
Szybko, prosto, łatwo. Tylko bez wyrażenia na razie możemy tylko gdybać.
2021-03-09 (10:13)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 7813

14865
wpis nr 1 351 363
[ CZCIONKA MONOSPACE ]

makinero>

"nie mam płatnego Excela i nie wiem jak z niego korzystać "

To po co wchodzisz do wątku "EXCEL - potrzebna pomoc" ?
Zadaj swoje pytanie w "Poważne pytanie do Pasko", może tam uzyskasz odpowiedź.
2021-03-09 (17:29)

status grem10
Data rejestracji: 2018-06-03
Ilość postów: 13

15716
wpis nr 1 351 456
[ CZCIONKA MONOSPACE ]

Makinero

Po prostu trzeb użyć grupowania wyrażeń, tu masz 4 grupy:
XXXX_XX_XX_XXX
zmienić na
XXXX_XX_XX-XXX

w notepad w polu (zaznaczamy wyrażenia oczywiście) Szukaj piszemy:
(\d+)_(\d+)_(\d+)_(\d+)
a w polu Zamień na:

\1_\2_\3-\4
potem naciskamy zamień lub zamień wszystkie, gotowe, co ciekawe można manipulować grupami, zamieniać miejscami 🙂.

2021-03-12 (14:44)

status makinero
Data rejestracji: 2017-04-10
Ilość postów: 8697

15235
wpis nr 1 352 059
[ CZCIONKA MONOSPACE ]

@grem10 - i to mi się podoba. Dzięki
2021-03-20 (12:24)

status Marriusz2
Data rejestracji: 2009-06-02
Ilość postów: 2400

4670
wpis nr 1 353 501
[ CZCIONKA MONOSPACE ]

Czy ktoś może wie jak sprawnie odwrócić formułą arkuszową kolejność wartości w wierszu ?
Pozdrawiam
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 42 43 44 ... 51 52
Wyślij wiadomość do admina