[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]
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;...
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
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,...
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...
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:
Chcę usprawnić sobie pracę, dlatego pomyślałem o makro. 1) zaznaczam 2 lub więcej komórek w kolumnie A (dla przykładu A14 i A15). 2) klikam scal i wyśrodkuj 3) zaznaczam tyle samo komórek w kolumnie B, C i D (oczywiście zaczynam od tego samego wiersza co w pkt 1, czyli idąc za przykładem wiersz nr 14 i 15) 4) czyszczę komórki z obramowania (w arkuszu,...
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...
Bardzo dziękuje, za pomoc oba sposoby są dobre. Mam jeszcze jedno pytanie, które jest nieco powiązane z tematem. Otóż link z arkusza A ma odpowiadać wartości z arkusza B. Z tym, że dla jednego linku z ar. A może przypadać jedna wartość lub wiele wartości z ar. B. (coś na zasadzie zbioru). Chce w jakiś sensowny sposób to zobrazować, ale jak na razie...
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...
https://obrazki.elektroda.pl/9396852000_... Wstępna ocena dostępnych informacji Na załączonym ekranie widoczne są dane zapisane w arkuszu kalkulacyjnym Excel. Arkusz zawiera trzy główne tabele: 1. Tabela 1 (kolumny A-D): zawiera dane liczbowe pod nagłówkami „LO”, „CW”, „ZW”, „CO”. 2. Tabela 2 (kolumny E-H): na razie wypełniona jedynie w...
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...
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,...
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"...
Dzięki za podpowiedź, jednakże...:) Piszesz "że funkcja zwraca wartość i nie służy formatowaniu komórek (jak wszystkie zresztą funkcje Excela). " - czemu w takim razie mogę poprzez funkcję scalić komórki ? Jeśli w warunku (w tym samym miejscu, gdzie np kolorowanie nie działa) wstawię: Range(ActiveCell, ActiveCell.Offset(-1, 0)).Cells.Merge...
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...
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...
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ąć...
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 . :)
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...
Mam mały problem - jest arkusz Excela i dokument Worda. Dane wprowadza się w arkuszu a dokument służy tylko do ich wydruku. Wszystko ładnie działa, dopóki nie zmieni się położenia lub nazwy pliku Excela, bo Word zapamiętuje bezwzględną ścieżkę do pliku .xls. Czy ktoś ma jakieś sugestie jak wybrnąć z tego problemu? Całości nie da się napisać w Excelu,...
Hm biorąc pod uwagę specyfikację html5 nie o wiele różni się w znacznikach od poprzedników. Pisanie od nowa? Hmm załóżmy sytuację czysto hipotetyczną: Otrzymałeś zlecenie na wykonanie szablonu od firmy X stronę wykonałeś korzystając z własnej zasady: Ja go pisałem i ja się w nim połapię firma jest zadowolona z wykonanego zadania lecz administrację na...
gpedit.msc > Konfiguracja użytkownika > szablony administracyjne > panel sterowania > Programy > ukryj aplet Programy w Panelu sterowania Niestety - ale na Win7 bez względu, czy zrobimy to za pomocą konsoli MMC czy też gpedit kategoria programy będzie cały czas widoczna. załączenie opcji: http://obrazki.elektroda.pl/9821714600_1...
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ć?
Chyba będzie trzeba podejść do tego trochę niestandardowo. Najpierw posortowałbym dane źródłowe wg. klucza Kol C, D, O, N, M - tu można nagrać makro. Dalej podwójnie, no oko, zagnieżdżona pętla -scalanie w kol.H (wg. partner), a na zewnątrz dopisanie wiersza ze scaleniem F&G i scaleniem w C, D, E (wg. NIP) + przepisywanie danych. Oczywiście najpierw...
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 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ę...
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....
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)
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 ?
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!
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:(
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...
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ć"...
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...
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...
Pokaż mi to na jakimś przykładzie w excellu,bo scala mi wszsytkie komórki a nie na wzór komórek obok
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"....
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?
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?
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....
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))....
... 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...
scalanie komórek excel scalanie danych scalanie partycji
mitsubishi programowanie klucz pralka electrolux moduł zapłonu motocykla
medion md30445 arduino projekty
Hamulce elektromagnetyczne naciągu folii - zasada działania i konserwacja Uszkodzenie w obwodzie wtryskiwacza cylindra 1 w Hyundai Santa Fe 2005
