W kodzie masz 79, zaś w treści 77 - to poczynając, od której właściwie ma to się dziać ? Przydałby się jakiś przykład, bo nie wiadomo czy to "co 93" ma być łącznie czy rozłącznie z "komórką startową" Sprawdź, zweryfikuj, popraw, skoryguj: [syntax=vbscript]Option Explicit Sub wstaw() Dim licznik As Long 'Integer Dim ostWrs As Long 'Integer 'Dim Nazwisko...
[syntax=vbscript]Sub Scal() ow = Cells(Rows.Count, "A").End(xlUp).Row b = 1 For x = 1 To ow If Not f Then b = x f = True End If If Cells(x + 1) <> Cells(x, 1) Then Range(Cells(b, 2), Cells(x, 2)).Merge Cells(b, 2) = Cells(x, 1) f = False End If Next End Sub[/syntax]
Spróbuj takiej modyfikacji :D zaznaczyć cały zakres "do scalania" :idea: Twój kod też działa ale tylko jeśli zaznaczysz obszar z jedną wartością :please:
Czułem, że trzymasz coś w rękawie ;) Z takim pryszczem poradziłabyś sobie. Spróbuj takiej pętelki [syntax=vb]Sub Merguj() Dim wrs As Long, merg As Long wrs = 1 merg = wrs Application.DisplayAlerts = False Do While Cells(wrs, 1) <> "" If Cells(wrs, 1) <> Cells(wrs + 1, 1) Then With Range(Cells(merg, 1), Cells(wrs, 1)) .Merge .HorizontalAlignment...
Po obróbce przez makro ta tabela powinna wyglądać jak ta po prawej stronie Takie kody tylko na elce :) [syntax=vbscript]Sub elka() Application.DisplayAlerts = False x = 3 Do While Cells(x, "B") <> "" a = Application.CountIf(Columns(2), Cells(x, "B")) With Union(Cells(x, "B").Resize(a), Cells(x, "G").Resize(a)) .Merge .VerticalAlignment = xlCenter...
[syntax=vb]Sub numery() Dim wz As Worksheet, rs&, re&, i&, j& Dim bs As Range, bd As Range Set bs = ThisWorkbook.Sheets("baza").Range("B1:C1... 'platform, tara Set bd = ThisWorkbook.Sheets("start").Range("B1:C... 'wagony Set wz = ThisWorkbook.Sheets("wykaz_zdawczy") wz.Activate rs = 17 'wiersz poczatkowy re = wz.Cells.Find("podpis").Row...
Witam =ZŁĄCZ.TEKSTY(LEWY(B1;5);A1;... albo =ZŁĄCZ.TEKSTY(LEWY(B1;5);A1;...
W takim układzie jak jest możesz wyszukiwać odpowiednią liczbę w 'Ar2' i do tej komórki kierować hiperłącze: [syntax=text]=HIPERŁĄCZE("#'Ar2'!A" & PODAJ.POZYCJĘ(WIERSZ()-1; 'Ar2'!$A$1:$A$100;0); WIERSZ()-1)[/syntax]Jeśli komórki są scalone, to hiperłącze od razu wskazuje wszystkie komórki scalone. Bez scalania komórek musiałbyś jakoś określić, do jakiego...
Hmm. Te tereny leśne (inne tak samo) wpisujesz tak. Najpierw zaznacz dwie komórki i z prawokliku wybierasz Formatuj komórki -> Wyrównanie i tam zanaczasz -> Scalaj komórki . :)
To już wystarczyło zmienić numery wierszy w adresach. Natomiast ważne, aby nie kopiować formuł tablicowych do scalonych komórek. Generalnie to ze scalonymi komórkami same kłopoty. Scalanie komórek - jeśli jest konieczne - powinno być ostatnią czynnością w arkuszu, po umieszczeniu wszystkich danych i formuł. Pozdrowienia
Ja zawsze dziwiłam się pojemności sieci, pamiętam lata gdy np. w sylwestra padały wszystkie sieci Ruch telekomunikacyjny liczony był i jest statystycznie na wypełnienie w danym czasie w danym procencie. To wymusza ekonomia. Dlatego przy telefonii stacjonarnej czy GSM momenty przepełnienia sieci są jak najbardziej normalne. Przy VoiP może być już lepiej,...
Jeżeli z zakresu U38:AU38 pozbyć się scalania komórek oraz w każdą z nich wpisać wartości formatu albumu to można użyć następującej formuły: [syntax=text]=SUMA.ILOCZYNÓW((D4=U38:AU3...
Nie jestem guru od makr w VBA, ale coś takiego powinno zadziałać (zrobiłem testy na prostym arkuszu wklepanym z palca). [syntax=vb] Sub Makro1() Dim xo As Integer xo = 2 Columns("A:B").Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _ , Orientation:=xlTopToBottom,...
Tak jak już wspomniał kolega Dżyszla filtrowanie nie jest zgodne ze scalaniem komórek. Filtr jakby nie zauważał, że komórki są scalone i filtruje wg faktycznej a nie widocznej zawartości komórek. Natomiast scalenie skutkuje tym, że 1) zawartość obszaru scalonego jest umieszczona w pierwszej komórce tego obszaru, a pozostałe komórki są puste, 2) formatowanie...
Hej, mam problem ze scalaniem komórek w tabeli- mianowicie kiedy scalam komórki to automatycznie nie mam możliwości pisania w scalonej komórce tabeli. Co w takiej sytuacji zrobić?
Hej, udało sie trochę ogarnąć ten plik. Jednak teraz na 100% potrzebuje pomocy z dalszą rozbudową makra. Potrzebuje wstawić funkcję wyszukaj pionowo oraz chyba zapętlić pętlę po danej kolumnie. Czy ktoś da radę mi pomóc? w załączniku plik z makrem jaki udało mi sie stworzyć
Bardziej zależy mi na tym wprowadzaniu godziny by się podstawiało imię i nazwisko w drugim arkuszu Próbowałem spełnić Twoje oczekiwania :cry: lecz ze względu na złożony układ tabeli roboczej (masowe scalanie komórek, wymieszane dane liczbowe i tekstowe, na jednych stanowiskach tylko obsada jednoosobowa, na innych różnie czasem dwu a czasem trzyosobowa,...
Trochę przekombinowałeś formułę, nie wspominając o scalaniu komórek :( Zakładając, że kolejność części (w wierszu 7 arkusza 00 i kolumnie E arkusza 01) i miesięcy w obu arkuszach będzie taka sama to wystarczy suma.iloczynów() i transponuj() jako funkcje tablicowe.
W załączniku twój przykład. Rzeczywiście przy umieszczeniu kodu w module trzeba było troszkę jeszcze poprawić kod (co uczyniłem powyżej). [Ukierunkować na odpowiedni arkusz] Co do tabel: Proponuje najpierw wcisnąć przelicz a potem opisywać kolory. Chyba że kolory będą zawsze przypisane temu samemu odbiorcy. Wtedy przydałby się arkusz ze słownikiem....
W kolumnie D nie widzę w ogóle Z. Po analizie jak to działa stwierdzam, że: 1) Chciałem usuwać te pliki hurtem, żeby było szybciej, ale okazuje się, że to za dużo i jednym poleceniem odwołującym się do tablicy z nazwami tego się nie da zrobić. Widocznie jest jakieś ograniczenie, którego nie znam. Wobec tego trzeba usuwać pojedynczo. Dopisałem nową procedurę...
Sorry, załącznika nie zobaczę, nie mam prawa nic pobrać, służbowy komp. :) Najprostsze co mi przychodzi do głowy to wykorzystanie szerokości komórek (kolumn). Nie da się tak jeżeli używasz wielu wierszy jeden pod drugim, bo rozszerzają się kolumny a nie komórki. Innym rozwiązaniem może być scalanie komórek o stałej szerokości. Ale bardziej profesjonalnie...
Jeżeli chodzi tylko o określenie położenia zaznaczonej komórki to jest to ActiveCell i odpowiednio do potrzeb .Address, .Row, .Column.
Dzień dobry, Scalanie komórek utrudnia lub uniemożliwia wykonanie różnych operacji m.in. sortowania. Dlatego lepiej nie scalać komórek dopóki nie wykona się wszystkich operacji i dopiero na końcu scalać, jeśli to niezbędne. Należy pamiętać, że w przypadku komórek scalonych dane są przypisane tylko do komórek znajdujących się w lewej górnej komórce zakresu...
Scalone komorki w zakresie kopiowania? Jeżeli chodzi o zakres kopiowania i wklejania żadne z komórek nie są scalone, staram się unikać scalania komórek, co może być innego przyczyną tego błędu ?
Częściowo zrywa łącza, ale przy otwieraniu pojawia się komunikat "Ten skoroszyt zawiera łącza...". Dodatkowo rozjeżdża się formatowanie (scalanie niektórych komórek zostało usunięte)
wstawiłam formułę. działa super ale kiedy próbuję ją skopiować w dół mam komunikat "ta operacja wymaga aby wszystkie scalane komórki miały takie same rozmiary". wklejanie formuły w każdy wiersz z osobna jest niemożliwe (mam ponad 2000 wierszy). w załączeniu plik z formułą. co zrobić ? jest jakiś sposób? pomocy!
Już nie raz napisano, że scalanie komórek w Excelu jest przyczyną wszelkiego zła. :cry: Tu po zaznaczeniu komórki (a właściwie scalonych komórek) należy: 1) Rozdzielić 2) W formatowaniu komórki ustawić: Wyrównaj zaznaczenie do środka 3) Zrobić Autodopasowanie wysokości wierszy 4) Ponownie scalić, jeśli koniecznie potrzeba. Tekst będzie niestety wyśrodkowany,...
ten problem jest rozwiązany, ale mam jeszcze jedno pytanie. Jak scalić komórki zachowując przy tym tekst z tych wszystkich scalonych komórek w jednej ? Excel domyślnie, przy scalaniu komórek, zachowuje jedynie wartość z lewej górnej komórki, a zawartość pozostałych komórek zostaje usunięta. Aby scalić komórki i zachować tekst z wszystkich scalanych...
Pojecie scalania oznacza co innego. Nie można zrobić tak jak chcesz, bo to powodowało by zapętlenie. Możesz natomiast zablokować komórki aby uniemozliwic edycję tam gdzie takla edycja jest zabroniona.
Witam, w załączniku przedstawiam tablę którą musze posortować wg kolumny J, potem kolumny I i wg kolumny C. Jednak jak próbuję zaznaczyć komórki i biorę sortuj to wyskakuje mi taki komunikat: Ta operacja wymaga aby scalane komórki miały takie same rozmiary. Jak mam posortować te dane ???? proszę o pomoc:(
Poza tym przy operacji scalania, zanim funkcja zostanie usunięta z komórki to wykonuje polecenie scalania, więc cały czas istnieje podczas wykonywania, dopiero po operacji scalania jest kasowana z komórki, więc to wytłumaczenie nie do końca mi logicznie przemawia...
Było coś podobnego już na forum. Jest coś takiego jak aparat fotograficzny (musisz wyciągnąć na pasek/wstążkę poprzez dostosuj...) Zaznaczasz komórkę lub zakres komórek naciskasz aparat a następnie w inny miejscu klikasz myszką. Tworzy ci się tak jakby podgląd tamtej komórki lub zakresu. Zauważ że ten obiekt ma w pasku formuł adres do "wyświetlanych"...
zrobić tak, by format był taki, jak w tym arkuszu co wkleiłam? A mogłabyś wyjaśnić co Ci nie pasuje z formatem tabelki z mojego załącznika :?: Formułujesz koleżanko swoje zadanie jakbyś chciała utworzyć nowy "trójkąt Penrose'a" w Excelu :D automatyczne wypełnia dni robocze (acz nadal można zmieniać coś manualnie, np. zmienić dzień roboczy na urlop)...
Super właśnie o to mi chodziło, ale w związku z modyfikacją zwykłe sortowanie nie działało a nie wiedziałem gdzie można dokonać tej zmiany w ustawienia aby poprawnie sortowało dane. Mam jeszcze takie pytanie jakbym załóżmy chciał wydrukować taką listę to w przypadku jak są 3×2 kolumn to jakoś to wygląda w pliku excel, a jak jest więcej to już niekonieczne...
Dzięki wielkie za pomoc! Działa super. O to właśnie mi chodziło. Jeszcze tylko zapytam się o ten punkt drugi z mojego postu: jest taka możliwość aby kolor wypełnienia komórki źródłowej mógł być przenoszony do innej np. Z Bazy danych do Wydruku? Tak aby pojazdy, nazwiska kierowców, kurierów i firm zachowały kolory nadane im w Bazie Danych? Ręczne formatowanie...
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
Pokaż mi to na jakimś przykładzie w excellu,bo scala mi wszsytkie komórki a nie na wzór komórek obok
Witam. Posiadam zablokowany plik excela, czy jest możliwość scalania wybranych komórek w kolumnie tak aby użytkownik nie mógł zmienić stylu formatowania komórki?
Tak. Przy scalonych komórkach (zarówno w pionie jak i w poziomie) pojawia się ten komunikat. Jeżeli scalenia sa w poziomie można zaznaczyć cały arkusz (kliknąć na narożną "kostkę" między A a 1) i odznaczyć scalanie komórek. Ale jeżeli scalenie było w pionie to po takim zabiegu tekst zostanie przyporządkowany do górnego wiersza a "dolne" komórki które...
Jaki masz OOo? U mnie w 1.1.4 ux.pl i 1.9.102 kopuje się cały wiersz i nie ma problemu. Może wcześniej scalałeś jakieś komórki lub cos w tym stylu i teraz wiersze tabeli nie są identyczne?
Ten Twój plik to jest stajnia Augiasza. Trudno się połapać o co w nim w ogóle chodzi. Piszesz, że masz problem z kopiowaniem z powodu scalonych komórek. A ja tu w ogóle nie widzę żadnego kodu do kopiowania. Jest tylko kod do sprawdzania kompletności wypełnienia tabelki, uzupełnienia daty i blokady niektórych komórek. Nie ma kodu do zapisu tego, co zostało...
Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....
Kolumna "F" zawiera komórki scalone z DATĄ :?: Proponuję jednak, abyś zamieścił przykładowy plik (z fikcyjnymi danymi), który zilustruje rozmiar i rodzaj problemu. Byłoby dobrze, gdybyś jeszcze uzasadnił konieczność "łapania się lewą ręką za prawe ucho" :D tj. scalania pionowego danych i potem wyszukiwania ile komórek jest scalonych :cunning: - żadnych...
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Jeżeli jest to normalne na tym forum to naturalnie za finalną pomoc chcę podarować punkty. To jest Twoja indywidualna sprawa. Darowanie punktów nie jest naturalne na tym forum :) Wskazane jest natomiast kliknięcie przycisku http://obrazki.elektroda.net/23_12596950... Sortowanie kodów: Żeby później nie zgubić grupowania, należałoby (makro) rozpocząć...
Podeślij przykładowy plik wejściowy, będzie łatwiej. Ze scalanymi komórkami zawsze jakiś problem.;) [syntax=vbscript]Sub PolaczArkusze() Application.ScreenUpdating = False Application.Calculation = xlManual oa = Sheets.Count With Sheets(1) a1 = .Columns(1).ColumnWidth b1 = .Columns(2).ColumnWidth c1 = .Columns(3).ColumnWidth End With Set r = Sheets.Add(After:=Sheets(Sheets.Count))....
Nie wiem, czy da się osiągnąć taki efekt jak zamierzasz. Trzeba by było wymyślić jakieś sprytne makro. Standardowo Excel potrafi ukryć wszystkie puste wiersze, a tu należałoby pozostawić pierwszy pusty odkryty. Myślę, że lepiej wykorzystać te mechanizmy, które zostały przygotowane, a nie walczyć z Excelem. Tu należałoby wykorzystać tabelę Excela. Ona...
... po dodaniu tego kod zaczyna bardzo długo pracować ... Nie obserwuję tego na "prostych" danych, ale spróbuj może w ten sposób: [syntax=vbscript]Option Explicit Sub Czysc_Wszystko_2() Dim czas As Single: czas = Timer If MsgBox("Wyczyścić wszystkie formularze 'Dniówek'?", vbQuestion + vbYesNo, "Potwierdź") = vbNo Then Exit Sub Dim i As Integer, w...
No właśnie nie moge sie pogodzić z tym, że normalnie sie tego nie da zrobić. Pomijam fakt że arkusz można tak zaprojektować żeby nie było problemów ale taki dostałem. Komórka scalona powinna byc traktowana jako jednostka bez zaszytych rozmiarów. Programiści z microsoftu powinni nad tym pomyśleć. Twój drugi sposób jest troche szalony. Nigdy nie wiadomo...
Witam, mam problem z formułą. Mianowicie potrzebuje takiej która by spełniała warunki: a) Zliczała ilość unikalnych dat z unikalną godziną w kolumnie C dla określonego miesiąca. b) W kolumnie "C" sformatowanej jako data (z godziną) zliczała ilość wierszy z określonym miesiącem. (Np. tylko październik, tylko listopad) c)Nie dublowała dat z tą samą godziną...
samsung scalać scalać samsung scalać folder
działają przyciski panelu lavor lanca podłączyć manta głos
Kontrolka ESP i tryb awaryjny: przyczyny i diagnostyka Boardview dla płyty DAOP5JMB6EO REV: E w laptopie
