Color:4Z4Z Interior color:LE
[syntax=vbscript]Sub Koloruj() ow = Cells(Rows.Count, "A").End(xlUp).Row Rows(2).Interior.Color = vbYellow For x = 3 To ow If Cells(x, 3) = Cells(x - 1, 3) Then Rows(x).Interior.Color = Rows(x - 1).Interior.Color Else Rows(x).Interior.Color = Not Rows(x - 1).Interior.Color End If Next End Sub[/syntax]
Nie widać Twojej 2 granicy na zrzutach :cry: Ale spróbuj takiego kodu [syntax=vbscript]Selection.FormatConditi... Type:=xlExpression, Formula1:= _ "=JEŻELI(ORAZ(A2>=1;A2<2);1)" Selection.FormatConditions(Selection.For... With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color =...
Można to zrobić na kilka sposobów, w zdarzeniu Change zeszytu 1 lub w zdarzeniu Activate zeszytu 2. Dla pierwszego przypadku użyłbym takiego makra: [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$5" Then On Error GoTo myErr Set wsform = ThisWorkbook.Worksheets("Zeszyt 2") wsform.Range("C3:M3").Interior.Pattern.....
Main data ParameterValue Ident. number (FIN)WDB2200652A098743 VINWDB2200652A098743 Baumuster220065 Sales nameS 320 Order number0 9 537 32809 (Destination: Great Britain) Delivery date15 12 1999 PAINT1347U BLUE QUARTZ METALLIC PAINT Interior color268A LEATHER GREY Engine112944 30 641944 Gearbox722618 01 922575 SA codes ParameterValue 200ALEATHER 220PARKTRONIC...
Trzeba było od razu właściwie napisać. [syntax=vbscript]Sub Porownaj() Application.ScreenUpdating = False Set a = ThisWorkbook.Sheets("Output") Set b = Workbooks.Open(ThisWorkbook.Path & "\1 671 913 2.xlsx") owb = b.Sheets(1).Cells(Rows.Count, "D").End(xlUp).Row For x = 2 To owb s = b.Sheets(1).Cells(x, "D") y = x + 151 k = a.Cells(2, y) If k <>...
[syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = "u" And Target.Interior.Color = vbYellow Then Target.Interior.Pattern = xlGray25 Cancel = True End Sub [/syntax]
Na przykład tak: [syntax=text]komorka.EntireRow.Columns("... = vbGreen[/syntax]
[syntax=vbnet]Cells(w, 7).Interior.Color = vbGreen[/syntax]
Witam [syntax=vb] Sub myRGB() For r = 1 To 50 Cells(r, 4).Interior.Color = RGB(Cells(r, 1), Cells(r, 2), Cells(r, 3)) Next End Sub [/syntax]
Pierwszą część możesz wygodnie zrealizować przy pomocy procedury zdarzeniowej, gdzie warunkiem jest zaznaczenie minimalnej ilości komórek (można ograniczyć do zakresu, kolumn, etc). Przykład dla zaznaczenia >3[syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 3 Then For Each kom In Target If kom.Row / 2 =...
Skoro ma być VBA, to pozwolę sobie wtrącić swoje trzy grosze: [syntax=vbnet]Sub AiC() On Error Resume Next ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow m = 0 m = Application.WorksheetFunction.Match(Cell... 1), Range(Cells(x + 1, 1), Cells(ow, 1)), 0) + x If m > 0 And m <= ow Then If Cells(x, 3) <> Cells(m, 3) Then Cells(x,...
[syntax=vb]For Each c In ActiveSheet.UsedRange.Cells If c Like "OK*" Then c.Interior.Color = RGB(191, 191, 191) Next [/syntax]
VIN code: JMBMNCJ4ATU004294 Model: COLT / LANCER (EUR) Modification: 1600 / 2WD (SEDAN / HATCHBACK) [CJ4A] Classification: GLX, 5FM / T LHD [MNJEL6] Options: U61 Code for exterior color: A69C Interior color code: 32H Release date: 1995.12.1 Region: Europe Jak to mozliwe ? mam w dowodzie wbity rok 1997.
[syntax=vbscript]Function SumujKolorowe(Zakres As Range) As Double For Each k In z If k.Interior.Color <> vbWhite Then a = a + k Next SumujKolorowe = a End Function [/syntax]
Spróbuj [syntax=vb]Private Sub CommandButton4_Click() On Error GoTo myErr Application.ScreenUpdating = False nazwa_arkusza1 = Range("L1") wiersz_naglowka = 11 ost_wiersz = Range("A65536").End(xlUp).Row ost_kolumna = Cells(wiersz_naglowka + 1, 255).End(xlToLeft).Column Set ws = Worksheets(Worksheets.Count) pozycja = ws.Range("A65536").End(xlUp).Row +...
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...
[syntax=vb] Private Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range For Each Komorka In Target.Cells Select Case Komorka.Value Case "D49", "D48", "D30", "D31", "D32", "D33", "D20", "D21", "D22", "D26", "D27", "D28", "D29" Komorka.Interior.Color = vbBlue Case "PL" Komorka.Interior.Color = vbYellow Case Else Komorka.Interior.Pattern =...
[syntax=vbscript]Sub OstatniDzien() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow If Cells(x + 1, 1) - Cells(x, 1) = 1 Then Cells(x, 1).Interior.Color = vbYellow Next End Sub [/syntax]
[syntax=vb]Sub koko() For Each c In Sheets("ZLECENIA").UsedRange.Columns(1).... c.Interior.Color = IIf(Sheets("MAGAZYN").Columns(1).Find(c) Is Nothing, vbRed, vbGreen) Next End Sub [/syntax]
Proszę bardzo: [syntax=vbscript] Sub test() Dim i As Integer Dim row As Integer Dim col As Integer Dim tablica(3) As String tablica(0) = "Alpha" tablica(1) = "Beta" tablica(2) = "Charlie" For i = 0 To 2 wyjatek = tablica(i) For col = 2 To 7 For row = 5 To 40 If Cells(row, col).Value = wyjatek Then Cells(row, col).Interior.Color = vbRed End If Next row...
W kodzie arkusza [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 1 Then Target.Resize(, 2).Interior.Color = vbRed Sheets("Arkusz2").Cells(Rows.Count, 1).End(xlUp).Resize(, 2).Offset(1) = Target.Resize(, 2).Value Cancel = True End If End Sub[/syntax]
Jeśli tak, to po co te komplikacje z dzieleniem na wiersze itp.? [syntax=text]Sub bbbbbb() Dim cel As Range Dim rng As Range Set rng = Range("A2:J24") For Each cel In rng If cel.Interior.ColorIndex <> -4142 Then cel.Font.Color = cel.Interior.Color End If Next cel End Sub[/syntax]
Albo:[syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then If Application.CountIf(Range("A1:A4"), Target) = 0 Then Target.Interior.Color = vbRed Else Target.Interior.ColorIndex = xlNone End If End If End Sub [/syntax]
uzyskać sumę kwoty z kolumny B tylko dla produktu z kolumny A od kolumny B kolumna A jest "offset(,-1) Rzeczywiscie kwoty w kolumnie C wtedy ze wskazac produkt w kol. A wzgledem kol. C trzeba 'offset(, -2)' [syntax=vb]Function SumCellsByColorProduct(rData As Range, cellRefColor As Range, produkt As String) Dim indRefColor As Long Dim cellCurrent As...
"Złap" zależność i zamknij to w pętli/pętlach "For" z wykorzystaniem Range(cells(x,y),cells(m,n)) Np tak [syntax=vb]Sub bbb() For x = 5 To 286 Step 2 With Range(Cells(x, 4), Cells(x, 34)) .FormatConditions.Add Type:=xlExpression, Formula1:="=D4+D5=0" .FormatConditions(.FormatConditions.Coun... = RGB(255, 220, 220) .FormatConditions(.FormatConditions.Coun...
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...
Najlepiej by było gdybyś w załączniku podpiął twój przykładowy arkusz. Wtedy łatwiej będzie znaleźć ten błąd. I jeszcze jedno - na chwilę obecną to makro sprawdza wszystkie kolory z palety więc nie trzeba nic definiować. Wklej ten kod między Private Sub ...() a End Sub Dim kom As Range, i As Integer Application.ScreenUpdating = False Range("AB5:AC60")....
Podany kod koloruje wszystkie komórki w podanym zakresie mimo, że nie spełniają warunku Zakres B2:E6 sam podałeś. Najpierw napisałeś pytanie, a po odpowiedzi dołączyłeś plik. Pozwolę sobie pomyśleć za Ciebie... [syntax=vbscript]Sub Pokoloruj() ow = Cells(Rows.Count, "A").End(xlUp).Row ok = Cells(1, Columns.Count).End(xlToLeft).Column For x = 2 To ow...
Super! działa dzięki za pomoc mam jeszcze jedno pytanko Poniższa pętla przeszukuje zakres komórek w kolumnie A i jak odnajdzie określoną wartość zmienia kolor tła dla całego wiersza. Czy jest możliwość ograniczenia zaznaczania wiersza do na przykład 15 pierwszych komórek danego wiersza [syntax=vb] For Each kom In Range("a4:a3000") If kom.Value = "KA0001"...
A z MOD nie zadziała? Spróbuj [syntax=vb]With Range("D9:AH48,D51:AH450") .FormatConditions.Add Type:=xlExpression, Formula1:="=ORAZ(D4+D5=0;MOD(WIERSZ();2)... .FormatConditions(.FormatConditions.Coun... = RGB(255, 220, 220) .FormatConditions(.FormatConditions.Coun... = True .FormatConditions(.FormatConditions.Coun...
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
...lub gotowca... [syntax=vb]Option Explicit Sub kopiujZakres() Dim r% Dim cRange As Range, pRange As Range r = ActiveCell.Row Rows(r).Insert Shift:=xlUp Set cRange = Range(Cells(r - 1, 1), Cells(r - 1, 7)) Set pRange = Range(Cells(r, 1), Cells(r, 7)) cRange.Copy Destination:=pRange Rows(r).Interior.Color = 65535 Cells(r, 3) = "1579x" End Sub[/syntax]...
Witaj Makrem [syntax=vb] Sub licz_czerw() Dim r&, c&, k% r = 2 While Cells(r, 2) <> Empty k = 0 For c = 2 To 8 If Cells(r, c).Interior.Color = vbRed Then k = k + 1 Next If k > 3 Then For c = 4 To k Cells(Rows.Count, 6 + c).End(xlUp).Offset(1) = r Next End If r = r + 1 Wend End Sub [/syntax]
Można na przykład tak: [syntax=vb] Sub zaznacz() Dim wartosc1, wartosc2 As String Dim a, kolumna1, kolumna2 As Range Set kolumna1 = Range("A:A") Set kolumna2 = Range("B:B") wartosc1 = "a" wartosc2 = "b" For Each a In Intersect(ActiveSheet.UsedRange, kolumna1).Cells If a.Value = wartosc1 Then If Cells(a.Row, kolumna2.Column).Value = wartosc2 Then Rows(a.Row).Interior.Color...
Rozwiązanie od zadania pierwszego z pierwszej kartki. 1. W 'A1' wpisać: =MROUND(RANDBETWEEN(0;100);5) jeśli pojawi się błąd-załadować dodatek Analysis ToolPak: # Narzędzia >> Dodatki >> Dostępne dodatki >> Analysis ToolPak >> OK 2. Przekopiować formułę do 'A50' 3. Zaznaczyć całość 4. Skopiować 5. Kliknąć na 'B1' Edycja >>...
Nie pokazałeś w pliku przykładowym spodziewanego wyniku, ale mam nadzieję, że o to chodziło. W mojej propozycji makra wykorzystuję na zmianę formatowanie warunkowe i filtrowanie, a następnie usuwam wyfiltrowane wiersze, aby w końcu uzyskać efekt, o którym pisałeś. [syntax=vbnet]Sub Duplikaty() Application.ScreenUpdating = False Sheets("Arkusz1").Copy...
Ja zrozumiałem, że autorowi wątku chodzi o odpowiednie sformatowanie dowolnie zaznaczanego obszaru, czyli coś takiego: [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target 'formatowanie pierwszego wiersza zaznaczonego obszaru Range(Cells(.Row, .Column), Cells(.Row, .Column + .Columns.Count - 1)).Font.Bold = True Range(Cells(.Row,...
A w VBA to będzie coś takiego (tylko z indeksami kolorów i ewentualnie warunkami można trochę pokombinować): [syntax=vb]For Each kom In Range("A1:A23") If IsDate(kom) Then If kom >= Date - 2 And kom < Date Then kom.Interior.ColorIndex = 45 ElseIf kom >= Date - 7 And kom < Date Then kom.Interior.ColorIndex = 3 Else kom.Interior.Color = xlNone...
Przetestuj następujące makro [syntax=vb]Sub koloruj() Dim lLstRw& Dim iLstCol% Dim rngTmp As Range lLstRw = Cells(Rows.Count, 3).End(xlUp).Row iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column On Error Resume Next For i = 4 To lLstRw Step 4 Set rngTmp = Range(Cells(i, 4), Cells(i, iLstCol)).SpecialCells(xlCellTypeConstan... If Not rngTmp Is Nothing...
Istnieją dwa sposoby: 1) wykorzystując makro Excel4 KOMÓRKA (formuła jako nazwa). 2) VBA Color, ColorIndex (Interior, Font).
Sprobuj [syntax=vbscript] .ForeColor = Sheets("Arkusz1").Range("Z58").FormatCon... [/syntax]
Nie masz zdefiniowanej komórki jaką Excel ma pokolorować, patrz --> Cell.Interior.Color = 16506298 Spróbuj zmienić na Cells(0,-2).Interior.Color = 16506298
https://obrazki.elektroda.pl/4681571000_...
No właśnie podstawa to zrozumienie :-). Chodzi Ci o to że jak jest godzina w danym przedziale to mają być odpowiednio kolorowane dane. Nie że dane zawierają informacje o godzinie :-). Jednak jak byś dał przykładowy plik to już by było dawno rozwiązane. Fakt rozwiązanie jest banalne. To jest rozwiązanie (koloruje tekst, jak chcesz wypełniać komórki kolorem...
W kodzie: [syntax=text]If Kolor = r.Interior.Color Then[/syntax]dopisz drugi test [syntax=text]If Kolor = r.Interior.Color And IsNumeric(r.Value) Then[/syntax]
Mam coś takiego tylko wyskauje mi bład error 13 mismatch. Pomógłby ktoś ? Sub przypomnienie() Dim b As Integer, kom As Range For Each kom In Range("I5:I250") 'kom.Interior.Color = xlNone kom.Interior.Color = vbBlack If kom.Value > 0 Then b = Date - kom.Value Select Case b Case 1 To 14 MsgBox "Upłynęło " & b & " dni. Zakres 1 do 14." kom.Interior.Color...
Jako regułę formatowania wpisz cos takiego: =ORAZ(GODZINA($G$2)>=20;GODZINA($G$2)... U mnie coś nie bardzo koloruje. Wychodzi Tak: http://obrazki.elektroda.pl/4761811000_1... po scroll'owaniu http://obrazki.elektroda.pl/6046184800_1... oraz http://obrazki.elektroda.pl/6375512400_1... i dopiero po...
Zrób zmienną string ze ścieżką i różna ścieżkę w zależności czy otwarty plik czy nie [syntax=vb]Sub aaa() Dim lOstRw As Integer Dim test As Boolean Dim NazwaSkoroszytu As Workbook Dim sciezka As String 'Sprawdzenie jakie arkusze są otwarte For Each NazwaSkoroszytu In Application.Workbooks If NazwaSkoroszytu.Name = "BazaKlas.xlsx" Then test = True Exit...
To skopiuj sobie całą procedurę np. do jakiejś komórki albo do pliku tekstowego w formie: [syntax=vb]Private Sub Worksheet_Activate() MsgBox "To jest test" Cells(1, 1).Value = "OK" Cells(1, 1).Interior.Color = vbGreen End Sub[/syntax]a z kodu zrób: [syntax=vb]'Dodać referancję: Tools->References->Microsoft Visual Basic for Applications Extensibility...
Sub stary_nowy() Const mark = "?" 'tu dopasuj swoj marker np. "*", "#", "$" listpath = "D:\lista.xls" 'tu dopasuj sciezku do listy, oddzielny plik, tylko jeden arkusz Dim lista As Range With Workbooks.Open(listpath) Set lista = Sheets(1).Range("A:...
Będzie na chwilę, ale teraz mam inną pracę Dodano po 2 Mam pytanie do Dydelmax - jak wstawić zdjęcie ekranu jak w poście # 9 albo # 1? Bez "kliknij aby powejkszyc"
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]
[syntax=vbscript] For Each c In Worksheets("Arkusz1").Range("A1:Z300").C... If c.Interior.Color = 65535 Then c.ClearContents Next[/syntax] zmień zakres na taki jaki jest Ci potrzebny, ja wstawiłem A1:Z300, kolor wypełnienia to najnormalniejszy żółty.
Przetestuj poniższy kod (ilość kolumn do sprawdzenia jest brana na podstawie ilości zapełnionych komórek w wierszu 1). [syntax=vb]Sub pokoloruj_1v2() Dim lLstRw& Dim iLstCol% Dim rRng As Range Dim rTmpRng As Range iLstCol = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To iLstCol lLstRw = Cells(Rows.Count, i).End(xlUp).Row On Error Resume Next...
A po co takie pojedyncze klikanie w każdy nagłóweczek. Trzeba było wszystko razem. Poniżej kod do formatowania nagłówków we wszystkich tabelach w skoroszycie (we wszystkich arkuszach tego skoroszytu). Dodano po 1 ...aby formatował tylko wybrane nagłówki: [syntax=vbscript] Sub test_formatowanie_wszystkich_tabel() Dim ListaTabel As ListObject Dim ListaArkuszy...
dziękuje, Mam jeszcze jedno pytanie , chciałabym, aby w pliku działała walidacja na brak danych. A dokładniej w sytuacji kiedy w której z komórek kolumny H zostanie wybrana pozycja "Oględziny inne" to wówczas w odpowiadającej komórce z kolumny I (ten sam wiersz ) trzeba będzie wybrać powód, jeżeli nie zostanie on wpisany przy próbie wysłania e-maila...
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...
W tym przypadku wystarczy takie prościutkie makro: [syntax=vb]With Range("B15:C17") 'zakres do sortowania .Interior.Color = xlNone 'czyścimy stary kolor tła .Sort key1:=.Cells(1, 2), order1:=xlDescending, Header:=xlNo 'sortujemy po drugiej kolumnie majejąco .Rows("1:1").Interior.Color = 65535 'ustawiamy kolor pierwszego wiersza w sortowanym zakresie...
Zapuść pętle korzystając z [syntax=vb]Cells(x, y).Interior.Color[/syntax]
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 =...
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...
Witam. jak w temacie, mam już taką formułkę na sumowanie po kolorze: Function CellCount(zakres As Range, kolor As Range) Application.Volatile CellCount = 0 For Each cell In zakres If cell.Interior.Color = kolor.Interior.Color Then CellCount = CellCount + cell.Value End If Next End Function dodatkowo w Workbooku mam: Private Sub Workbook_SheetSelectionChange(ByVal...
Jestem laikiem jeżeli chodzi o VBA. Potrzebuję makro, które będzie sumowało komórki z danego zakresu względem kolorów jakie są w komórkach gdzie są wartości. Kod mam, ale po zmianie koloru komórki z zakresu automatycznie nie przelicza się, trzeba "odświeżyć". Jakieś pomysły jak to zrobić, żeby latało z automatu? Sub Makro1() Function SumujKolorowe(Zakres...
[syntax=vb]Sub Porownaj() Dim x As Integer, y As Double For x = 1 To 30 If Cells(x, 1) = Cells(x, 3) Then y = y + 1234 Cells(x, 1).Interior.Color = y Cells(x, 3).Interior.Color = y Else Cells(x, 1).Interior.Pattern = xlNone Cells(x, 3).Interior.Pattern = xlNone End If Next x End Sub[/syntax] Ale zabawa w odpowiednią sekwencję numerów, czyli zmienność...
NIE TO NIEMIECKIE AUTO Nazwa pozycjiOpis pozycji Vehicle identification no.Wvwzzz3bzye185238 ModelPassat estate pa Date of production25.10.1999 Sales type3b53w5 Engine codeARG Transmission codeDWA Axle drive5S Interior trim codeGQ Roof colorK1 Exterior color / paint codeK1 / a5e
Jak już piszemy o różnych rozwiązaniach, to zaproponuję takie: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Interior.Color = vbYellow Then UserForm1.Show Cancel = True End If End Sub [/syntax] Wystarczy wypełnić na żółto żądane komórki.
Masz tutaj chyba to o co Ci chodziło.Możesz wybrać kolorowanie całego wiersza lub jego części. [syntax=vbscript]Sub kolor() Dim i As Integer 'Komórki od A1 do np.A10 For i = 1 To 10 If Cells(i, 1) = "" Then 'Kolorowanie całego wiersza Range(Cells(i, 1), Cells(i, 1)).EntireRow.Interior.Color = RGB(255, 255, 0) 'Kolorowanie wiersza przez określoną liczbę...
Potrzebuję napisać makro do formatowania warunkowego. Chciałabym pokolorować cały wiersz, jeśli spełnione są dwa warunki: - kolumna O > 10% oraz kolumna B zawiera tekst "styczeń", "luty", "marzec" - kolumna O > 15% oraz kolumna B zawiera tekst "kwiecień", "maj", "czerwiec" AI: Jaka wersja programu Excel jest używana? Excel 2024 AI: Czy potrzebujesz...
Ja używam funkcji Cells(roobl, coobl).Interior.Color = RGB(255, 255, 255) Odpowiednio przepisana powinna być OK Pomogłem? :)
[syntax=vbscript]Sub Czerowne() k = ActiveCell.Column ow = Cells(Rows.Count, "A").End(xlUp).Row For w = 1 To ow If Cells(w, k).Interior.Color = vbRed Then s = s + Cells(w, k) Next Cells(w, k) = s End Sub [/syntax]
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...
Spróbuj coś w ten deseń [syntax=vbscript]Sub ods() Dim zakres As Range, kom As Range Set zakres = Sheets("mapa").Range("A1:DH860") 'rozmiar mapy On Error Resume Next 'żeby się nie wysypało gdy nie znajdzie (literówka, czeski błąd, itp) For Each kom In zakres If kom.Value > 0 Then kom.Interior.Color = Sheets("dane").Range("B:B").Find(what:=k...
Witam. Userform uruchamia mi się po przez double click w konkretne pokolorowane pole. Czy jest możliwość aby userform odpalał się w pokolorowanym polu w momencie gdy strzałka najedzie się na te pole ? Tzn. gdy dana pokolorowana komórka będzie aktywna. [syntax=vbscript]Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel...
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...
Cześć wszystkim, mam 2 małe problemy makrem do zaznaczania wierszy. 1. Pierwsze makro dodaje mi obramowanie do zaznaczonego wiersza - w tym kodzie chciałbym dodać zakres w jakim ma ono działać (tylko w obrębie tabeli) Od wiersza 42 do 305. If w > 0 Then With Rows(w) .Borders(xlEdgeBottom).LineStyle = xlNone End With End If With Target(1).EntireRow...
Podejrzewam, że może to być spowodowane niezbyt uporządkowanymi danymi. Zakomentuj na razie MsgBox. Przeleciałeś wszystkie 27 komórek pierwszego wiersza bez błędu? Jeżeli tak, gdy się kod zatrzyma, sprawdź wartość zmiennej RowCounter, będziesz wiedział, z którego wiersza dane powodują błąd. Może taki uchwyt błędu: [syntax=vbscript]Sub ExportToSQL()...
[syntax=vb]If MaxValue <> "" And MaxValue <> 0 Then For Each Cell In Range("A" & i & ", D" & i & ", F" & i) If Cell.Value = MaxValue Then Cell.Interior.Color = vbRed Next Cell End If[/syntax]
Użyj pętli i wewnątrz sprawdzaj warunek. Np [syntax=vb]Dim zakres As Range, kom As Range Set zakres = Range("C1:C150") For Each kom In zakres If kom.Value = "test" Then If zmiana Then kom.Interior.ColorIndex = xlNone kom.Font.Color = vbBlack Else kom.Interior.Color = vbBlack kom.Font.Color = vbWhite End If End If Next[/syntax]
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,...
Cześć, Mam w jednym pliku kilka arkuszy o różnych nazwach. Chcę wydrukować tylko te arkusze, które spełniają mój warunek, te arkusze które nie spełniają warunku mają zostać pominięte do drukowania. Na razie mam kod, który drukuje wszystkie arkusze do pdf, ale baza się rozrasta i nie chciałbym drukować wszystkiego. Jeden arkusz to jeden plik pdf. kod,...
Witam potrzebuje napisać makro które będzie robić coś takiego: zaznaczy wszystkie liczby "powtarzające się w arkuszu na kolor zielony i wypisze te znaczenia w innym arkusz zrobiłem coś takiego [syntax=vb] Sub Zaznacznie_klorem() Dim ConstantCells As Range Dim cell As Range If TypeName(Selection) <> "Range" Then Exit Sub Application.ScreenUpdating...
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. https://obrazki.elektroda.pl/6868611200_...
Pomysł kol. Kursant , rewelacyjny. O to chodzi, sterować z urządzenia zewnętrznego jeżeli jest tylko taka możliwość. Poniżej zamieszczam króciutki kod, którego jedynym celem jest miganie komórki co 1sek. Mądrze kombinując można go zaadoptować do własnych potrzeb. Deklarować w Module Private zmiana As Boolean Sub UpdateClock() Dim zakres As Range Set...
Można też tak: [syntax=vbscript]Sub Auto_Open() ok = Cells(1, Columns.Count).End(xlToLeft).Column ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ok If Cells(2, x) = Date Then Range(Cells(1, x), Cells(ow, x)).Interior.Color = vbYellow Else Range(Cells(1, x), Cells(ow, x)).Interior.Pattern = xlNone End If Next End Sub [/syntax]
excel 2010 problem rozwiązałem taka pętlą For i = 4 To 18 For j = 20 To 100 If Cells(i, 8).Value = Cells(j, 2).Value Then If Cells(j, 2).Value <> "" Then Cells(j, 2).Interior.Color = RGB(255, 0, 0) End If End If Next j Next i
Dokładniej: mam coś takiego i mi nie działa. Nie widzi, że komórka, do której się odwołuje jest żółta. [syntax=vb]With szukaj Set R = .Find(What:=Index, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ SearchDirection:=xlNext, _ MatchCase:=False) Sheets("Stacje ").Select If Cells(R.Row, "f").Interior.Color = 27 Then Sheets("dane do wypełnienia ").Select...
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"...
Znajdują się w pliku excel znajdujący się w załączniku ale poniżej prezentuje je w całej okazałości: Private Sub cbWykonaj_Click() wartość = Val(ZaznaczForm.tbWartość.Value) Application.ScreenUpdating = False Dim zaznaczKomórkę As Boolean For Each cell In Application.Selection zaznaczKomórkę = False If ZaznaczForm.obRówny.Value Then If cell.Value =...
Koniecznie makro? Wystarczy zastosować formatowanie warunkowe. Jeśli VBA to zainteresuj się funkcjami daty i czasu. Np [url=http://www.vb4all.pl/teoria/]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)...
hej. działa mi to :) dzięki wielkie :) Jeszcze tylko pytanie można w jakimś wypadku wyłączyć tą ochronę? mam taki kod:[syntax=vbscript]Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range) If Not Intersect(Target, sh.Range("A12:A42,K12:K42")) Is Nothing Then If Target.Value = "so" Then Target.Resize(, 8).Interior.Color = RGB(247,...
To sie dzieje jak dodałem tą liniske która kasuje zbędny arkusz mainws.Delete Tu ją dodałem: ark.Cells(ark.Cells(Rows.Count, "E").End(xlUp).Row + 1, "E").FormulaR1C1 = "=SUM(R2C5:R[-1]C5)" ark.Cells(ark.Cells(Rows.Count, "E").End(xlUp).Row, "E").Interior.Color = vbRed Next ark mainwb.Sheets("Arkusz1").Activate mainws.Delete Application.DisplayAlerts...
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))...
Mi sie wydaje, że nalezy to zrobic tak: Sub Duplikaty() Dim x As Long, LastRow As Long LastRow = Range("A65536").End(xlUp).Row For x = LastRow To 1 Step -1 If Application.WorksheetFunction.CountIf(Ra... & x), Range("A" & x).Text) > 1 Then Range("A" & x).Select Selection.Interior.Color = 255 MsgBox "masz duplikaty! " exit sub end if next U mnie...
OK dzięki. A teraz to samo ale w VBA. Nie wiem w jaki sposób zapisać adres pierwszej komórki zakresu, aby foratowanie warunkowe "skopiowało się" do pozostałych wierszy zakresu. tekst: acgr1.Cells(0, 0).Address jest błędy bo zawsze odnosi się do pierwszego wiersza zakresu. I drugi problem: .FormatConditions(acgr1.FormatConditions...
jeżeli zaznaczone na żółto =7 wówczas pierwsza linika (forma i kod) , a wszystkie wiersze do następnej żółtej komórki...
Czy analogicznie do powyższego, da sie zastosować to rozwiązanie do poniższego kodu? [syntax=vb] 'FORMATOWANIE WARUNKOWE Range("AB3:AB500").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=DŁ(USUŃ.ZBĘDNE.ODSTĘPY(AB3))>0" Selection.FormatConditions(Selection.For... With Selection.FormatConditions(1).Borders(xl...
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,...
Dzień dobry, no właśnie wczoraj po wielu godzinach udało mi się rozwiązać zagadnienie, poniżej kod końcowy i działa tak jak trzeba, bardzo dziękuję za Twoją pomoc adamas_nt! :) [syntax=c] Sub Go16() Dim rng As Range, rCell As Range, i As Integer For i = 1 To Sheets.Count Sheets(i).Select Range("A1").Select ActiveSheet.Range(ActiveSheet.PageSetup....
W oryginalnym pliku Prot_plik.xls zastosowany jest m.innymi kod: Jeśli zmieniana komórka jest niepusta to wypełnienie ustaw na szary i kolor czcionki na szary, jeśli inaczej to kolor wypełnienia ustaw na niebieski" . Nie wiem co zmieniłeś w kodzie lub arkuszu, żeby uzyskać taki efekt jak na Twoim zrzucie ? Proponuję wróć do oryginału :D
magnat interior funkcja interior cobra color
transformator rezonansowy czyszczenie mechanizmu lasera wyświetlacz brother
pogotowie antywirusowe samsung nq50h5533ks
Krups EA 9000 - młynek mieli za długo i się zatyka Napęd na koła w traktorku kosiarce 12 KM: mechaniczny vs hydrostatyczny
