Witam, ponownie, Bardzo mi wszystkie rady pomogły w przygotowaniu szablonu rozliczenia, ale jak to często bywa pojawiły się dodatkowe potrzeby, chodzi o zaszycie formuł, które będą tez działały w arkuszach wysyłanych e-mailem do firm współpracujących. Przygotowałam je , niestety jest tak, ze w tych arkuszach utworzonych w pliku źródłowym sa i wyliczają...
Witam Mam takie proste makro które sprawdza czy w komórce G jest wpisane BBBB jeśli tak to komórkę I koloruje na zielono jeśli nie to koloruje na niebiesko kod wygląda tak Sub Makro1() If Range("G6") = "BBBB" Then Range("I6").Interior.ColorIndex = 4 Else Range("I6").Interior.ColorIndex = 5 End If End Sub Tabelka tak : BBBB 1220 BBBB 1220 BBBB 1220 BBBB...
Witam, Mam następującą funkcje zliczająca ilość komórek o odpowiednim kolorze tła i czcionki. W vba jestem zielony, połączyłem ją z dwóch innych. Chciałbym funkcje przerobić tak żeby zliczała określone słowo (z zakresu komórek który zaznaczę) w określonym kolorze czcionki i kolorze tła. Za udzieloną pomoc dziękuje z góry i pozdrawiam. [syntax=vbscript]Function...
witam ten kod jest zły uruchom visual basica ,następnie daj wstaw/moduł i wklej ten kod. Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function Teraz będziesz...
Ok już dołączam: Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Masz w nim dwupoziomową korekcję oraz filtr fizjologiczny. Jest też funkcja direct, czyli ominięcie układu korekcji. Tyle wystarczy w zupełności. Balans przy odpowiednim ustawieniu zestawów, jest zbędny. Gdzie w tym wzmacniaczu jest AUX, bo coś nie umiem tego znaleźć. Wejście line.
Znalazłem w necie ciekawą procedurkę do rejestracji funkcji. Jest z nią jednak drobny problem. Ale od początku. Mam napisaną przykładową funkcję zwracającą indeks koloru wypełnienia komórki: Private Function KolorKom(Komorka As Range) As Double Application.Volatile KolorKom = Komorka.Interior.ColorIndex If KolorKom < 0 Then KolorKom = 0 End...
Kolega adamas_nt udzielił już odpowiedzi, więc ja tylko dopowiem parę rzeczy: a. dlaczego jako argumentu funkcji używasz nazwiska z arkusza GRAFIK, a nie z kolumny B arkusza ZESTAWIENIE ? b. można trochę "czytelniej" ten kod zapisać: [syntax=vbscript]Function Licz_dyz_zw(lekarz As String) As Integer Application.Volatile Dim c As Range Dim Lzw As Integer...
Zdefiniowałem funkcję: Function LiczNieZolte(Zakres As Range) For Each Kom In Zakres If Kom.Interior.ColorIndex <> 6 Then LiczNieZolte = LiczNieZolte + Kom.Value Next End Function Wylicza prawidłowo sumę pozycji o kolorze różnym od żółtego (żółty= 6). Jednak kiedy zmienię kolor komórki w analizowanym zakresie, formuła nie aktualizuje się automatycznie....
Witam, Mam problem z operacjami na arkuszu, komórkach z poziomu funkcji. Mam kod, jak poniżej i na koniec, po warunku, chciałbym aby np. dane komórki (aktywna i sąsiednia wyżej) zostały oczyszczone z zawartości lub zmieniły kolor na inny. Niestety formatowanie to nie działa, ale z kolei scalanie komórek już jest rozpoznawane. W czym tkwi szkopuł ? Z...
Jak najbardziej należy się uczyć i VBA ale z kolei nie wszystko na raz. Piszesz że słabo znasz excela (funkcje) a chcesz się brać od razu za VBA. Można ... tylko boje się że się wcześniej zniechęcisz całkowicie do excela nie tylko do VBA (tym bardziej jak nie miałeś do czynienia z jakimkolwiek programowaniem). Poniżej kod i przykład który za przyciśnięciem...
Jak sprawdzasz kolor po indeksie, to odwołuj się do: [syntax=vb]Cells(R.Row, "f").Interior.ColorIndex = 27[/syntax] Poza tym, przez [syntax=vb]MsgBox Cells(R.Row, "f").Interior.ColorIndex[/syntax] upewnij się, że ten "żółty" ma na pewno kod 27.
[syntax=vbnet]Cells(w, 7).Interior.Color = vbGreen[/syntax]
Ok teraz wszystko działa :), mam jeszcze jedno pytanie mam takie makro: [syntax=vbscript]Sub URLOP() '1=wekendy,2= kolor i godziny przy urlopie, 3= x+w Dim Komorka As Range Dim osiem As Variant Dim x As Range Dim KK As Range osiem = 8 '1 For Each KK In Range("A11:A41") If KK = "so" Then KK.Resize(, 8).Interior.Color = RGB(247, 150, 70) ElseIf KK = "n"...
Można też sprawdzać kolor wypełnienienia. [syntax=vbscript]If d.Cells(w, k) <> 0 And d.Cells(w, k).Interior.Color = vbWhite Then[/syntax]
na razie mam taki kod [syntax=vbscript]Function tabMnozenia() Dim row As Integer Dim col As Integer For row = 1 To 10 For Column = 1 To 10 Arkusz1.Cells(row, Column) = row * Column Next Next End Function Function obliczaj(a As Integer, b As Integer, col As String) Dim tabCol(1 To 10) As String tabCol(1) = "A" tabCol(2) = "B" tabCol(3) = "C" tabCol(4)...
Koniecznie makro? Wystarczy zastosować formatowanie warunkowe. Jeśli VBA to zainteresuj się funkcjami daty i czasu. Np [url=]Link, Funkcje>Funkcje daty i czasu>Weekday. "Podświetlenie" można zrealizować przez "pokolorowanie" tła komórki zakres.interior.colorindex=indeks koloru lub zakres.interior.color = RGB(red, green, blue) (wartości 0-255).
Jeżeli te pionowe zakresy są komórkami scalonymi, to nic z tego. Jeżeli usuniesz scalenie, to masz co najmniej dwa wyjścia: 1. Wstawić np. iksy w tym samym kolorze co tło i sprawę załatwisz funkcją: JEŻELI(ORAZ(warunki)) w połączeniu z funkcją TERAZ. 2. Zastosować VBA wykorzystując właściwość Interior.ColorIndex komórek. Dodano po jakimś czasie: 3....
W drugą stronę jak najbardziej. Ale jeśli kolor wypełnienia wstawiasz ręcznie z palety (nie w wyniku formatowania warunkowego), to pozostaje makro lub funkcja użytkownika (też w VBA) z wykorzystaniem Interior.ColorIndex zakresu. Excel nie ma wbudowanych funkcji odwołujących się do właściwości formatowania komórek.
Oczywiście ta funkcja działa mi poprawnie. No jeśli tak :?: tj. działa poprawnie w bloku pierwszym to zamiast działań typu [syntax=vbscript]Selection.SpecialCells(... trzeba przeprowadzić czyszczenie skopiowanego obszaru (tj. bloku 2 i ewentualnie następnych) jedynie w komórkach z Interior.ColorIndex = 24 :!:...
Marka: FORD Model: Fiesta 01-08/Fusion CBK 2001-2012 Region Europe Od Rok Modelu: 2001 Do Roku Modelu: 2012 Catnote Dla Fusion proszę wybrać rodzaj nadwozia '5-drzwiowy UAV' Rok Produkcji: 2005 Data Produkcji: 05/03/2005 Interior_Fabric Metropolitan/Tk.diagon/Medium Flint Drive: LHD FWD Version Seria 15 Exterior_Paint Magnum Grey Metalik Nadwozie: 5-drzwiowy...
Witam ponownie kupiłem od gościa z allegro to co proponowałeś. Ale wiele więcej niż kolega BIGOLSEN mi pomógł się nie dowiedziałem, wszystko poniżej to jest z allegro. A ten gratis co proponuje gościu już kiedyś w elektodzie zamieściłem "CLIMAtronic w VW i AUDI do 92'". passat: 1. Wciśnij Fan Down, Temperature Colder, ECON w tym samym czasie. 2. Użyj...
Przepraszam, że z takim opóźnieniem odpisuję, ale wcześniej nie było możliwości. Poniższy kod na sztywno porównuje 2 kolumny (pierwszą i drugą), ale równie dobrze zamiast procedurki (Sub), można zrobić funkcję (Function), która będzie miała dwa argumenty określające numery kolumn (albo literki kolumn). Przy większej ilości wierszy, wykonanie porównania...
Ach, o kolorze mowa... To funkcja wyszukaj.pionowo nie zwróci Ci koloru komórki. Musisz zatem do tego VBA wykorzystać. Jeżeli chcesz, żeby wyszukiwało w zakresie A17:F38 wartości z komórki A1, to formuła powinna tak wyglądać: [syntax=vb]Set kom = Range("A17:A38").Find(what:=Range("A1"), lookat:=xlWhole) If Not kom Is Nothing Then Range("H1").Value =...
[url=]Pantone Color Cue 2.1 Plus - polska instrukcja obsługi Pantone Color Cue 2.1 Plus to kompaktowe i przenośne narzędzie, umożliwiające bezproblemowe przechwytywanie koloru z dowolnej powierzchni. Wystarczy umieścić Color Cue 2.1 w dowolnym punkcie i za pomocą jednego przycisku sprawnie odczytać kolor. Urządzenie wskaże najbliższy odpowiednik z biblioteki...
Jak U na żółtym tle mam z listy rozwijalnej to ta funkcja nie działa czy jest możliwość aby to zadziałało? Popraw delikatnie kod kolegi PRL by reagował zarówno na małą i wielką literę U gdyż dla tego kodu nie ma znaczenia skąd wybierasz tę literę. W linii zamiast Target = "u" wpisz LCase(Target) = "u" I pamiętaj że tak jak chciałeś kod "zakropkowania"...
Mam taki problem jak porównać wypełnienie komórki w funkcji if chodzi o to że jeżeli komórka jest żółta( ten podstawowy) to w komórkach x pojawia sie odpowiednia wartość mam coś takiego... color index działa mi tylko w wersji rgb(255,0,0) exel 2003 [syntax=vb]If (Cells(R.Row, "f").Interior.ColorIndex = 27) = True Then Sheets("A1 ").Select ActiveSheet.Cells(2,...
Witam, Mam zarejestrowane takie oto makro: Sub Makro4() ' ' Makro4 Makro ' ' Columns("A:D").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.Delete Shift:=xlToLeft Range("A1").Select ActiveWorkbook.Worksheets("BI").Sort.Sor... ActiveWorkbook.Worksheets("BI").Sort.Sor... Key:=Range("A1"),...
Cześć, Próbuję automatycznie zsumować wiersze, w których coś zostało zaznaczone na określony kolor, używam do tego funkcji: [syntax=vbscript] Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long Dim indRefColor As Long Dim cellCurrent As Range Dim cntRes As Long Application.Volatile cntRes = 0 indRefColor = cellRefColor.Cells(1,...
Hej, mam problem, próbuje w VBA napisać funkcję, która zautomatyzuje mi odznaczanie checkboxów. Chciałbym żeby funkcja działa w następujący sposób: Jeżeli pola C, D,E w zakresie 1:140 są puste to odznacza nam checkbox w kolumnie A, oraz zmienia czyści kolor z całego wiersza EntireRow.Interior.ColorIndex = xlColorIndexNone Do tej pory udało mi się osiągnąc...
Marka: RENAULT Model: Trafic II Model: Trafic II Rok produkcji: 06 2007 Typ pojazdu: JL0J Vehicle_fabrication_number Y308276 Kod silnika: G9U630 Nr silnika: C018305 Gearbox_type_and_suffix PF6012 Gearbox_fabrication_number C014432 Drive: Z lewej strony Opcje: Typ pojazdu: JL0J; Numer fabryczny pojazdu: Y308276; Typ silnika: G9U; Typ plus wyznacznik...
W kodzie nie obowiązują funkcje używane w arkuszu. Kod ma swoje funkcje i tak np. zaokrąglanie to Poprawiłem, ale coś jest nie tak, bo podświetla mi jako błąd End If: [syntax=vbscript]Sub Makro4() If Worksheets("SPR").Range("C81").Value / 4 <> Round(Range("C81")) / 4 Then With Range("BG91:BH97").Interior .PatternColorIndex = xlAutomatic .ThemeColor...
Witam Mam kolumnę gdzie są 2 wartości tak nie . I teraz jeśli komórce jest słowo Nie to chce by migała. Migotanie tła realizuję przez VB : Private zmiana As Boolean Sub migajaca() Dim zakres As Range Set zakres = Range("A1") If zmiana Then zakres.Interior.ColorIndex = xlNone zakres.Font.Color = vbBlack Else zakres.Interior.Color...
Można to prosto zrobić na funkcjach + formatowanie warunkowe, jak zaproponował adamas_nt . Gdybyś jednak upierał się przy VBA - też można: [syntax=vb]Private Sub CommandButton1_Click() Application.ScreenUpdating = False ost_data = Cells(Rows.Count, 2).End(xlUp).Row 'wyczyszczenie starych danych With Range(Cells(1, 3), Cells(Rows.Count, Columns.Count))...
Cześć, szukam pomocy excelowych czarodziejów. Potrzebuję funkcji lub makra, które po zadaniu zakresu uwzględni dwa warunki (kolor wypełnienia i wartość) i na ich podstawie zwróci ilość wystąpień. Mówiąc bardziej obrazowo: ile razy w danej kolumnie pojawia się słowo "dom" na czerwonym tle. Sprawę koloru rozwiązałem poniższą funkcją: [syntax=vb]Function...
Witajcie mam taka sprawę ... Potrzebuje zrobić Exela do celow prywatnych... kwestia tego ze nie wiem jak mam sie za to zabrac ale zacznę od początku. Po 1 w Exelu beda 4 Kolumny pytanie || odpowiedz || kto || kiedy -Pytanie wiadomo odpowiedz tak/nie ( w formie przycisku) kto bedzie wprowadzane recznie ręcznie i kiedy tez Na czym mi zalezy Jezeli bedzie...
Witam, Potrzebuję pomocy z makrem. Chcę aby funkcja działała na całą kolumnę. Próbowałem załatwić to Range ale wywala błąd Mismatch zaraz przed komenda kolorowania. Co chce żeby makro robiło: 1. gdy w kolumnie A nie ma słowa "zielony" a w kolumnie B jest słowo "duza", to komórka w której nie ma słowa "zielony" ma byc kolorowana. 2. gdy w kolumnie A...
Funkcja, która działa poprawnie - sumuje, ale pokazuje błąd #valuegdy w wybranym zakresie i kolorze komórki znajduje się litera (u, w, x) Function SumaKolor(SumaZakres As Range, KolorZakres As Range) As Double Dim r As Range Dim Kolor As Long Kolor = KolorZakres.Interior.Color ' For Each r In SumaZakres If Kolor = r.Interior.Color Then SumaKolor = SumaKolor...
dzięki wielkie działa wyśmienicie. Można prosić o podpowiedź jak wykonać taki skrypt ? Chodzi mi o analizę i konkretnie funkcję Licz czerwone tylko wtedy gdy kolumna 4 zawiera słowo "FIRST-OFF" Docelowo wykorzystywał będę 26 kolumnę z datą . Aby rozbić analizę na dni. Tzn. w innym arkuszu przydzielić dziennie liczbę czerwonych ( niezgodne, zależne od...
Marka: RENAULT Model: Logan Sandero II Model: Logan Sandero II Rok produkcji: 05 2015 Typ pojazdu: B8AL Vehicle_fabrication_number A485455 Kod silnika: K9K612 Nr silnika: D292516 Gearbox_type_and_suffix JR5368 Gearbox_fabrication_number A094296 Drive: Z lewej strony Opcje: Typ pojazdu: B8AL; Numer fabryczny pojazdu:...
Dobry wieczór, Miał być przykład, ale się nie doczekałem. Można zdefiniować funkcję użytkownika np. taką: [syntax=vb]Function Tło(adr As Range) As Integer Application.Volatile Tło = -CInt(adr.Interior.ColorIndex <> xlColorIndexNone) End Function[/syntax] Funkcja pobiera adres komórki jako argument i zwraca 0 jeśli komórka nie ma zdefiniowanego...
Po mojemu, spełnione muszą być oba warunki z obu znalezionych funkcji. Zmodyfikowana, będzie wyglądać po prostu: [syntax=vbscript]Function SumCellsByColor(rData As Range, cellRefColor As Range) Dim indRefColor As Long Dim indRefFontColor As Long Dim cellCurrent As Range Dim sumRes Application.Volatile sumRes = 0 indRefColor = cellRefColor.Cells(1, 1).Interior.Color...
Bardzo proszę kolego może to się przydać i jak się trochę postarasz to sam zrobisz pełną diagnostykę Pasują do wszystkich aut wyprodukowanych przez VAG tj. Volkwagen Golf MK3/MK4/MK5, Passat B4/B5/B6, Skoda Octavia/Fabia/SuperB, Audi A4/A6/A8/TT itp… spisane, wyszukane, testowane by ygd. Volkswagen Passat B5/B6: 1. Wciśnij Fan Down, Temperature...
Przedstawiona funkcja jest prosta, tyczy się jednej komórki i właściwie nic nie robi. Nie szuka, nie wybiera, to tak jak "=" (równa się) tylko nie wartość komórki a przypisany do wskazanej komórki numer indeksu. na marginesie funkcja kolor to tylko tyle kodu: Function Kolor(Adres As Range) Application.Volatile True Kolor = Adres.Interior.ColorIndex...
dziękuję bardzo Marcinie szczęka mi opadła i to maksymalnie no powiem tak genialnie Dodano po 5 Hej a jednak nie działa perfektnie jeśli w kolumnie np. A jest zbyt mało wartości to nie chodzi o to żeby przenieść z kolumny B, lecz sumować A+B,dobierać wartości z B w załączonym pliku kolumna L nie spełnia warunku napisałem sobie funkcję do sumowania po...
Witam, mam za zadanie zrobić arkusz w excelu w którym wartości będą sumowane w zależności od koloru czcionki. Napisałem sobie ładną funkcję w VBA. [syntax=vb]Public Function sumakolor(zakkom As Range, kolor As Range) Dim kom As Range Application.Volatile True For Each kom In zakkom.Cells If kom.Font.ColorIndex = kolor.Interior.ColorIndex Then sumakolor...
np. takie makro ale to dzieje się w każdym z makr przejście do tej fukcji jak wykasowałem tą Funkcje to przerzuca do innej Funkcji, więc może coś w ustawieniach VBA trzeba by zmienić ??
Witam, Prosiłby o pomoc jak zapisać w kodzie VBA, formatowanie warunkowe oparte na formule jeżeli i zmiennej gora. aby uzyskać taki efekt: Niestety wpisując tutaj coś takiego. With Selection .FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="=JEŻELI(A1=1;" & gora &";0)" Formula2:=... .FormatConditions(2).Interior.Color = RGB(255,...
Masz rację Macieju. Pierwotnie miało być 'z', ale jak tu wklejałem, to postanowiłem zmienić na 'Zakres', żeby było widoczne przy użyciu funkcji w arkuszu. [syntax=vbscript]Function SumujKolorowe(Zakres As Range) As Double For Each k In Zakres If k.Interior.Color <> vbWhite Then SumujKolorowe = SumujKolorowe + k Next End Function [/syntax] Ale...
Moje makro: Dodano po 19 PRL funkcja zwraca 0, gdzie może być błąd: =LiczkolorTekst(zestawienie!A2:A500;3;"*...
Main data Parameter Value Title Laguna III KT15 Eclipse grey bodywork paint VIN VF1KT350E47167562 Model Laguna III Model type KT15 Date of manufacture 04 2012 Vehicle fabrication number S357172 Equipment level EA3 Additional to equipment level SAN913 Additional to Limited Edition SAN513 Paint code NV432 Seat trim CUIR11 Interior trim HARM01 Country...
Czy ktoś wie cos o tym alarmie? Może ktoś przetłumaczyć na nasze jakie funkcje posiada ten alarm? Pzdr SR5000 TWO-WAY SECURITY WITH REMOTE ENGINE START View a Larger Image With its LCD Remote Transmitter, ProSecurity's highly advanced remote engine start and security system always keeps you in the know. Monitor your vehicle for security purposes from...
niemam pojecia ziomus :D Nabijasz punkty ??? po co ??? Liczy się twoja wiedza a nie ilość punktów czy postów - jak nie wiesz to nie zabieraj głosu. Do twórcy topiku Przepisowo wbudowana funkcja sprawdzająca format komórki to KOMÓRKA(typ;odwołanie) - niestety to się tyczy tylko formatu liczb adresu i paru innych ale nie koloru samej komórki. myśle żebez...
Witam Mam problem z oswietleniem wnetrza. Poczytalem forum, polutowalem kabeki w progu, wylalem wode z puszki komfortu :-) i ... kicha. Wydlubalem modul komfortu i okazalo sie, ze ktos wylutowal "cos" z plytki. Na oko powinien tam byc chyba przekaznik podajacy napiecie na pin 18. Czy wiadomo co tam siedzi? Da sie to jakos zastapic? Czy mozna zewrzec...
To tylko za pomocą makr. Np. tak: Dim kolor(40) As Integer For y = 1 To 93 For x = 1 To 24 For i = 1 To 40 If Cells(y + 4, x + 2).Interior.ColorIndex = i Then kolor(i) = kolor(i) + 1 Next i Next x Next y For i = 1 To 40 Cells(i + 4, 28).Interior.ColorIndex = i Cells(i + 4, 28).Interior.Pattern = xlSolid...
po poprawkach wygląda to tak: Sub Macro1() 'deklaracje tablic grup POTS,DSL,inne dopisać Dim POTS(1 To 2) As Variant POTS(1) = "0.2" POTS(2) = "0.3" Dim DSL(1 To 2) As Variant DSL(1) = "0.4" DSL(2) = "0.5" Dim inne(1 To 2) As Variant inne(1)...
Ja używam funkcji Cells(roobl, coobl).Interior.Color = RGB(255, 255, 255) Odpowiednio przepisana powinna być OK Pomogłem? :)
Jeżeli chcesz robić formatowanie warunkowe w VAB to samemu sprawdzaj warunki u ustawiaj kolor, nie korzystaj - jak teraz to robisz - z VBA do wstawiania funkcji formatowania. Coś w stylu: [syntax=vb]For Each c In ActiveSheet.Range("J2:J20") If (ActiveSheet.Cells(c.Row, 7) < 1) And (CDate(c) > #9/1/2010#) Then c.Interior.ColorIndex = 3 End If Next...
mam pytanie, bo widzę, ze wpisałeś jakieś kody w Visual Basic i funkcje działają mi tylko w tym arkuszu który wysłąłeś, czy można zrobic tak aby działało to we wszystkich, czy musze do każdego te kody wpisywać. Arkusze chciałbym móc tworzyć w każdej chwili jak mi się skończą, lub dla różnych osób. Normalny kod mam np. taki: Private Sub Worksheet_Change(ByVal...
i nie działa, pojawia mi się komunikat Object required (Error 424) Może dlatego, że w tym formularzu nie masz ComboBoxa do którego się odwołujesz? :) Poza tym co chcesz zrobić z tymi wartościami które znajdziesz, zaznaczyć? Składnia funkcji Find nieco się komplikuje, kiedy trzeba wyszukać więcej niż jedną wartość (czytaj: wszystkie). Sam zawsze podpieram...
Możne to osiągnąć również za pomocą zwykłych funkcji i formatowania waunkowego, ale skoro ma to być makro, to np. tak: [syntax=vb]Dim MaxValue Dim Cell As Range For i = 1 To 43 MaxValue = Application.WorksheetFunction.Max(Range(... & i & ", D" & i & ", F" & i & "")) For Each Cell In Range("A" & i & ", D" & i & ", F" & i) If Cell.Value = MaxValue Then...
To zależy jaki użyjesz jako Kolor1. Prościej będzie przerobić funkcję, gdzie drugim argumentem będzie komórka "wzorcowa". Np [syntax=vb]Function LiczKolory(zakres As Range, kolor As Range) idCol = kolor.Interior.ColorIndex For Each kom In zakres If kom.Interior.ColorIndex = idCol Then LiczKolory = LiczKolory + 1 End If Next End Function[/syntax]Użycie...
Skoro raport ma 300000 wierszy, to zmienna i musi być zadeklarowana jako long. W którym miejscu Twoje makro się zatrzymuje? A tak w ogóle to zamiast mozolnego porównywania każdej komórki z elementami tablicy przy pomocy pętli to poszedłbym w sprawdzenie przy pomocy odpowiednika arkuszowej funkcji PODAJ.POZYCJĘ czy wartość danej komórki jest w tablicy....
Witam. Mam prośbę o pomoc w stworzeniu odpowiedniej formuły lub kodu VBA który doda mi (w moim pliku do kolumny G) odpowiednią dniówkę na podstawie przepracowanego czasu pracy. Zasady dodawania dniówek napisałem w pliku który jest w załączniku. W moim macierzystym pliku w arkuszu w który chcę dodawać te dniówki pracuje poniższy kod. Kod dział jak najbardziej...
Witam Na necie znalazłem taki oto skrypt [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Dim Wartosc As Variant With ChartObjects(1).Chart.SeriesCollection(1... .Interior.ColorIndex = xlAutomatic Wartosc = .Values For i = 1 To .Points().Count Select Case Wartosc(i) Case 1 To 100 .Points(i).Interior.ColorIndex...
Tomuś_P tak to jest także makro do scalania, które między innymi też przeglądałem, tylko tyle, że ja potrzebuję dodatkowe funkcje, które wyszczególniłem w pierwszym poście, a których żaden gotowiec nie ma. JRV, jeżeli chodzi o wpisywanie od pierwszego wiersza, to dzięki pomocy kolegów z innego forum, już mam to rozwiązane, co do zakresu danych, to zakres...
Dzieki wszystkim za odpowiedzi. Co do tresci tego co napisalem jest to polecenie zacytowane od prowadzacego wiec niczego nie wymyslilem. Co do magisterki to jak juz napisalem po pierwszym stopniu jestem po podstawach produkcji,technologii maszyn, interesuje sie i raczej staram doksztalcac w tematach; od pomyslu do gotowego wyrobu, pracuje jako konstruktor....
Wydawało mi się, że nie ma sensu zamieszczania całego kodu dodawania w pierwszej kolumnie checkboxów bo generalnie całość prakytcznie produkuje ta linijka, którą wkleiłem. Do meritum, na chwile obecną cała funkcja wygląda tak i niestety zawiesza excela. [syntax=vbscript]Sub CheckBoxDate() Dim ws As Worksheet Dim chk As CheckBox Dim lColD As Long Dim...
modyfikacja radia polegała na zmianie na inne wartości 1 czy 2 rezystorów i kondensatorów i bodajże 1 diody. Hehehe, Ty naprawdę masz mnie za idiotę? Mam taki miernik i jest w nim funkcja HOLD. Można z dowolnego radia złapać moc i sobie podłączyć miernik z zatrzymanym pomiarem. Nawet nie widać gdzie Twoje kable lecą z miernika GY561.Poza tym jaka modyfikacja,...
Skoro już VBA, to można rozwinąć funkcję "LiczKolor" do "LiczKolorJeżeli", Np [syntax=vbscript]Function LiczKolorIf(zakres As Range, wzor As Range, var As Range) Dim kom As Range Dim suma As Double Dim kolor As Integer suma = 0 kolor = wzor.Interior.ColorIndex For Each kom In zakres If kom.Interior.ColorIndex = kolor And kom.Value = var.Value Then suma...
Pętla pełni dwie funkcje (po pierwsze nie odznaczam klikniętej komórki - pozwala to na wprowadzenie tekstu - co twoje rozwiązanie uniemożliwia), jeśli masz zaznaczone dwie komórki to bez pętli (a raczej dostania się do każdej komórki indywidualnie) .Interior.ColorIndex jest nullem. No a drugą opcją jest masowe zaznaczanie (co może być pożądane a może...
Cześć, mam pytanie w jaki sposób za pomocą makra wyszukać wszystkie kropki w komórkach (niezależnie od ciągu znaków), a następnie pokolorować je na czarno. Funkcja ma działać tak jak Ctrl+f i wyszukanie: „*.” Jak to zapisać za pomocą makra? Moje makro wyszukuje i koloruje tylko samą kropkę, a jak zrobić to z dowolnym ciągiem znaków? Proszę...
Witam, Potrzebuję zsumować komórki zaznaczone na kolorowo (fiolet, który jest uzupełniany ręcznie) w zależności od wartości, która znajduje się w kolumnie "B" (warunek: większe od 5). Wiem jak sumować wszystkie kolorowe komórki za pomocą funkcji w VBA, np.
Możesz zastosować taką funkcję UDF: [syntax=vbscript]Function Biale(rng As Range, pat As Range) As Long Application.Volatile Dim cel As Range For Each cel In rng If cel <> "" And cel.Interior.Color = pat.Interior.Color Then Biale = Biale + 1 End If Next cel End Function [/syntax]Funkcja powinna być umieszczona w module uniwersalnym. Pierwszym...
Może najpierw funkcja, która zaznaczy komórki żółte, a potem je zabezpieczy przed zmianą. Plik z możliwością działania makr (xlsm, xls) :idea: w arkuszu roboczym wprowadź taki kod makra :spoko: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Unprotect "a" Target.Interior.ColorIndex = 6 Target.Locked = True Protect "a" End Sub[/syntax]...