https://obrazki.elektroda.pl/1561315800_... Wpisujesz formułę przy pierwszej pozycji, resztę kopiujesz.
Każdy skaner ma w swoich ustawieniach opcję zakodowania "entera" po odczycie. Do każdego jest dołączona plastikowa karta lub odpowiednio przygotowana karta papierowa z kodami sterującymi i ustawieniowymi. Cała sprawa polega tylko i wyłącznie na zeskanowaniu odpowiedniego kodu z takich kart i gotowe.
Wystarczy użyć choćby wyszukaj.pionowo() czy też indeks() i pobrać odpowiednie wartości z arkusza cennik.
... JEŻELI(B9&C9&D9&E9&F9&am... ...
Jak sprawić aby excel sam po wpisaniu odczytu licznika z datą nowego miesiąca liczył sumę Całą prostą zabawę można zrealizować w jednym arkuszu (oczywiście można to rozpisać na kilka arkuszy z odpowiednimi odwołaniami ;-) ) np. tak jak na zrzucie 1232639 Musisz jednak wprowadzić odpowiednie formatowanie wszystkich danych i wykorzystać kilka formuł...
Ani. Najprawdopodobniej nie opisujesz problem. Utworzym dwa pliki, jeden w odwołań A1 do A1 innego. Zapiszem i zamkniem oba. Otwarte ponownie - w pierwszym w A1 zapiszem wartości, w innem tam w A1 ta wartość. Żadnych komunikatow. Aby załącznik dwa Twoje pliki tutaj.
Jeżeli wprowadzisz odpowiednią kolumnę pomocniczą w arkuszu głównym :spoko: to pożądany efekt można uzyskać formułami jak na zrzucie 927750 Całość w załączniku. 927751
[syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target = "" Then Exit Sub[/syntax]
Zmieniłeś kolumnę gdzie jest wyrażenie :) =JEŻELI(NR.KOLUMNY(J$10)=$Q14+1;"NOK";JE... Teraz powinno być: =JEŻELI(NR.KOLUMNY(J$10)=$Q14+9;"NOK";JE... Liczba +1 (+9) "dopasowuje" wynik funkcji NR.KOLUMNY() do wartości w NOK. NR.KOLUMNY() dla kolumny...
Dodano po 3 Strona 14. Carriage Return/Line Feed To append a carriage return/line feed to all transmitted data, scan the following bar codes in the order shown. To cancel this operation, the SET DEFAULTS bar code on page 8, or refer to the Product Reference Guide. Lepiej?;)
Najlepiej wykorzystać zmianę w kalendarzu. Wklej w kod arkusza "Kalendarz" [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$18" Or Target.Address = "$I$18" Then With Sheets("Szychtownica") For i = 34 To 32 Step -1 If .Cells(2, i).Value = "" Then .Columns(i).EntireColumn.Hidden = True Else .Columns(i).EntireColumn.Hidden...
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]...
Pytanie chyba niezbyt przemyślane, a propozycja rozwiązania prosta, ale dość ryzykowna. A co będzie jak użytkownik kliknie dwa lub trzy razy? Nie ma żadnego śladu, co było pierwotnie w komórce, ani możliwości cofnięcia operacji. Poza tym, czy w arkuszu będzie tylko jedna taka cena? Jeśli wiecej, to przy każdej będzie przycisk? Moim zdaniem lepszym rozwiązaniem...
Sprawdź w opcjach (menu: Formuły) czy masz włączone autouzupełnianie. Łatwo to niechcący przełączyć (Alt + Down Arrow)...
Witaj Trochę wątpliwości. Dlaczego jest to tak ważne, aby bez makr?
Sprawdź poniższe dwa warianty ... tak coś niby działa, ale sceptycznie podchodzę do takiego drukowania. W mojej ocenie, na teraz, drukarka będzie się przytykać - wstawiłem "opozniacz" (Const opozniacz), przy pomocy którego możesz sterować opóźnieniem nowego wydruku, gdzie: 0.5 = 0.5 s 1 =1 s itd. (opóźniacz pomysłu kolegi JRV ). Wariant nr 1 - drukuje...
Zerknij czy tak jest dobrze:
Dobry wieczór, Wprost nie da się tego zrobić, ale można okrężną drogą. Trzeba podzielić dane na serie zgodnie z regułą formatowania warunkowego. Następnie każdą serię nanieść na wykres i pokolorować wg życzenia. Serie wyświetlać na wykresie jako nakładane. Pozdrowienia
Do komórki F2 wklej formułę =JEŻELI(LICZ.JEŻELI($C$2:$C$... i przeciągnij do dołu.
Bez VBA raczej się nie da. Jeśli mowa o VBA, ComboBox ma tę właściwość. W przykładzie uForm uruchamiany przez podwójne kliknięcie. Możesz wybrać z listy lub wpisując pierwsze znaki. Zatwierdzasz Enter'em. Spróbuj, może to jest to...
A może arkusz pomocniczy z funkcjami wyszukującymi i adresowymi (Dodałem w "SPT" słowo "Wynik" w kolumnach K i N): http://obrazki.elektroda.pl/8432508000_1... A w arkuszu "RC" zamiast nazwy zakresu użyć wyniku z D1? Np =LICZ.JEŻELI(ADR.POŚR(Arkusz1!D1...
Da się to zrobić w ten sposób: 1. wpisać dane kwota netto w kilka wierszy np od 2 do 5, 2. przeciągnąć formułę przeliczenia euro od wiersza 2 poza wiersz 5 o kilka (np 5) wierszy w dół. w miejscach gdzie nie było w wierszach danych kwot netto w kolumnie przeliczników pojawi się 0. 3. zaznaczyć obszar komórek z zerami i nacisnąć "del", nie poprzez usuń...
Patrz zdarzenie arkusza Worksheet_SelectionChange
Po co ochrona, jesli np. przed tym(zamykaniem) "użytkownik przez przypadek kasuje jakąś formule"? W kazdym razie mozna uzyc zdarzenia[syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each s In Me.Sheets s.Protect 'ew. haslo Next Me.Save End Sub [/syntax] Ale lepiej mieć zapasowe arkusze i przed zamknięciem kopiowanie formuł, lub, jeśli...
W takim razie temat do zamknięcia.
Masz tylko datę przydatności (do spożycia) a to nie to samo. A jeśli to magazyn z żywymi karpiami? Jedna (ryba) mogła wejść (wpłynąć) najedzona, inna na czczo. Ważniejsze jest, moim zdaniem, ile jeszcze pociągnie niż to kiedy wpłynęła, tzn weszła na staw, tfu, stan ;)
[syntax=vb] Sub Link() Dim x As Long, Adres As String x = 1 While Cells(x, 1) <> "" Adres = Cells(x, 1) Cells(x, 1).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ "http://www." & Adres, TextToDisplay:=Adres x = x + 1 Wend End Sub [/syntax]
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Zamalować wszystkie owale czarnym recznie. Dodano po 1 następnie makro wszystko zrobi
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
Można makrem można tak wklej to do module [syntax=vbscript]Function istnieje(s As String) As Boolean istnieje = Dir(s) <> "" End Function[/syntax] i wtedy [syntax=vbscript]=JEŻELI(istnieje("C:\sk...
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]
Poprzedni plik i funkcja, to były przykłady. W tym pliku masz gotowca.
Może źle wpisałem funkcje O, to to... ;D Wpisujesz Arkusz2!A:B (ewentualnie Arkusz2!$A$2:$B$15 - koniecznie z dolarami i do końca zakresu, który powinien pozostać wtedy niezmienny) a nie Arkusz2!A2:B2.
Można formułą, ale chyba lepiej makrem, np: [syntax=vbscript] Sub aaa() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 16 For j = 1 To 52 For k = 0 To 5 Cells(((i - 1) * 52 * 6) + ((j - 1) * 6) + (k + 1), 1).Value = "N" & Format(i, "00") & "-" & Format(j, "00") & "-" & Format(k, "00") Next k Next j Next i End Sub [/syntax]
Niektórych klientów nie ma przypisanych do firmy także fajnie byłoby jakby pole klient zostało puste Do formuły kolegi Kindlar dodaj jeżeli.błąd :D tzn. JEŻELI.BŁĄD(WYSZUKAJ.PIONOWO(A2;Arkusz2!...
Mogłeś chociaż wyklikać formularz...
wpisuję kolejno w 1a imię 1b nazwisko 1c nr tel Zawsze w tej samej komórce?(wiersz 1) Dodano po 16 w kodzie arkuszu (dane wprowadzone ) [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) Dim rekord As Range, baza As Range Set rekord = Range("A1:C1") Set baza = ActiveSheet.Next.Cells If Intersect(Target, rekord) Is Nothing Then Exit Sub...
Powiem tak: przeczytaj jeszcze raz mój ostatni post #8 (tak od połowy) i porównaj z tym, co masz. Obecnie każdy z 4 argumentów funkcji WYSZUKAJ.PIONOWO (tej z ostatniego załącznika) masz zły :) Grunt, to dobrze zrozumieć tą funkcję: może Wyszukujemy wartości komórki (dajmy na to) U17; przeszukiwany zakres to Y6:AC59 i szukam tego w kolumnie 1. Czy tak?...
Nie jestem pewien, czy dobrze zrozumiałem.
Najprościej byłoby z wykorzystaniem kolumn pomocniczych (załącznik) P.S. Formuły są "kopiowalne" w pionie i w poziomie, nie będzie więc problemu z kolejnymi (w przykładzie) miastami.
Dobry wieczór, To można zrobić stosunkowo prosto. Wystarczy zaznaczyć pole tekstowe, w polu formuły wpisać = i kliknąć komórkę, do której chcemy utworzyć odwołanie. Potem tylko sformatować czcionkę. Przykład w załączniku. Pozdrowienia.
Czyli chodziło o uzupełnienie kolumny A ? Jeżeli tak, to najpierw zrobiłem tabelę pomocniczą w arkuszu3 z wartościami unikalnymi.(filtrem) Wg niej funkcja uzupełniła brakujące puste pola.
Skorzystaj z Licz.jeżeli() W A1 wpisz: =B1&"/"&LICZ.JEŻELI($B$1:B1;B1) I przeciągnij w dół
Pierwotnie zupełnie inaczej to rozumiałem, ale może teraz będzie lepiej.
Tak, dokładnie o coś takiego chodziło. Tylko Skąd i Dokąd bym na dwie kolumny rozbił (zakładając że chcesz je mieć potem w raporcie). Nazwy mają się powtarzać. Teraz możesz np. zrobić tabelę przestawną jak w załączniku: http://obrazki.elektroda.pl/2261331300_1... popróbować z różnymi funkcjami czy nawet próbować jakieś makro napisać,...
A można też bez kolumn dodatkowych, tylko formułka formatowania nieco dłuższa: [syntax=text]=JEŻELI($A2=""; ""; MOD(SUMA.ILOCZYNÓW(--($A$1:$A1<>$A...
dzięki za błyskawiczne rozwiązanie :)
Przykładowo: W komórce A2 formuła: =JEŻELI(B2="";"";1) W komórce A3 formuła: =JEŻELI(B3="";"";MAX($A$2:A2)+1) Kopiujesz formułę z kom. A3 w dół i masz L.P. w kol. A. dla niepustych komórek w kol. B. Mogą być przerwy w kol. B.
Lepiej zastosować wyszukaj.pionowo. Przykład (nazwa jest wpisywana w A1) w B2 wpisz =WYSZUKAJ.PIONOWO(A1;Arkusz2!A:D... w C2 wpisz=WYSZUKAJ.PIONOWO(A1;Arkusz2!A&... w D2 wpisz=WYSZUKAJ.PIONOWO(A1;Arkusz2!A&... Chociaż twoje rozwiązanie tez by przeszło tylko popełniłeś błąd wskazując (całą) tabelę z danymi...
Opisane trochę niejasne, ale funkcja PODAJ.POZYCJĘ a INDEKS może pomóc
[url=https://docs.microsoft.com/en-us/of...
Witam, Można użyć prostego makro - tylko nie wiem, czy o takie coś chodzi koledze: [syntax=vb]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim x As String If Target.Value = "" Then Exit Sub x = Replace(Target.Value, " ", "*") If Left(x, 1) <> "*" Then x = "*" + x If Right(x, 1) <> "*" Then x = x + "*" Target.Value...
Popraw swoje formuły i będzie działać. Niezauważyłem tego wcześniej bo przyznam że w mojej przygodzie z excelem nie spotkałem się jeszcze nigdy z takim "błędem". Teoria: Jeżeli w komórke wpiszesz "2" to owszem widzisz dwójkę ale excel odczyta to jako tekst o znaku 2 a nie cyfrę dwa. (rozumiesz niuansik?) Dla excela "0" to tekst i nie jest tożsame z...
Dzień dobry, Można to zrobić formułami Excela jak w załączonym pliku. Kolumny z "u" są sformatowane warunkowo. W ostatniej kolumnie musi Pan sobie uzupełnić obramowania. Numery dni miesiąca są podbarwione na stałe, więc zakres zabarwiony czasem sięga za daleko. Może Pan sobie to zmienić na formatowanie warunkowe. Tabelka jest wypełniana od daty wpisanej...
Ech, pomyliłem. Nie tłumacząc zbyt wiele. Wpisz w K10: =J10+(13-WIERSZ())/100+I10/10 i przeciągnij w dół. Zasada się nie zmienia, ale wartości chcemy od zera w górę. Dodajemy mały ułamek wiersza i dodajemy duży bilansu. Jeśli bilans ujemny - zmieni się znak (ułamka) na minus i przesunie w tabeli na koniec "równych". Tu: ManU na końcu http://obrazki.elektroda.pl/7520329700_1...
Funkcja ADR.POŚR może służyć do odczytania danych z pliku otwartego w tej samej instancji Excela. W tym przypadku to się nie przyda. Bez VBA czy innych dodatkowych narzędzi nie da się tego zrobić w sposób trywialny. Istnieją sposoby "drogą okrężną". Najpierw trzeba przygotować teksty odwołań, potem zamienić formuły na wartości i wreszcie aktywować uzyskane...
Teoretycznie można coś tam w zdarzeniu Worksheet_Change pokombinować, ale w praktyce to raczej trudne do zrealizowania - zawsze można wyłączyć makra albo usunąć cały arkusz. Najlepiej w takim wypadku zablokować plik i jego strukturę i przygotować go tak, żeby użytkownik mógł wykonywać tylko dopuszczone akcje, np. wprowadzać dane tylko w wyznaczone pola...
dla przycisku tak daj takie samo makro tylko zamień True na False
Witam =ZŁĄCZ.TEKSTY(LEWY(B1;5);A1;... albo =ZŁĄCZ.TEKSTY(LEWY(B1;5);A1;...
z kilku innych arkuszy Z arkuszy, czy ze skoroszytów? Jeśli z arkuszy (w tym samym skoroszycie) to wstawiasz nazwę arkusza, wykrzyknik i odnosisz się do jego zakresu/komórki. Np. w ten sposób odwołasz się np. do A1: [syntax=vb]=Arkusz1!A1[/syntax] Jeśli ze skoroszytów, to tutaj wyjaśnienie: http://office.microsoft.com/pl-pl/excel-...
Dzień dobry, Nie wiem czy o to Panu chodziło, ale rozwiązanie wydaje się dość proste. Po zastosowaniu formuł jak w przykładzie puste wiersze można zamaskować filtrem (tak chyba najprościej).
Zliczanie komórek o innym kolorze tła jest możliwe wyłącznie makrem. Jednak nawet makro nie obliczy kolorów jeżeli są one zmienione formatowaniem warunkowym. W makro, w twoim przypadku, trzeba by było zliczać tak samo jak w warunku formatów. Proponuje ci, w przypadku rozwiązania zastosowanego przez kolegę adamas_nt , w jakiejkolwiek komórce wpisać =LICZ.JEŻELI(G1:I3;"<="&C5)...
Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & " " & zmF & " zamienić na:", "podaj symbol") If zmR <>...
Chciałbym żeby automatycznie kolorowały się komórki jak w załączonym pliku. Mianowicie jeżeli w wierszu występuje wyraz 'sob' lub 'ndz' automatycznie pokolorował całą kolumnę. Dorobiłem Ci makro. Znajdziesz go przez Alt + F11. Makro możesz edytować, jednak jego nazwa musi pozostać niezmienna.
Za pomocą makr pewnie, skoro standardowe funkcje nie pozwalają. Gdyby Twój opis był jaśniejszy, już kilka osób pewnie by Ci pomogło. Dwa razy czytałem Twoje posty i nadal nie mam pojęcia, co chcesz tak właściwie osiągnąć (chodzi o wynik końcowy, bo wiem, że zmieniając coś chcesz zmienić resztę tabeli, ale według jakich kryteriów - nie mam pojęcia)....
Formuły sprawdzają czy data wypada w weekend i cofają ją do najbliższego piątku: [syntax=txt]=JEŻELI(DZIEŃ.TYG(A1;2)=6;A1... lub [syntax=txt]=A1-INDEKS({0;1;2};PODAJ.POZ... lub [syntax=txt]=A1-(PODAJ.POZYCJĘ(DZIEŃ.TYG...
[syntax=vb] Sub Wyslij() Dim bs As Range Dim r& Set bs = Sheets("zbiorczy").Range("A:L") r = bs(Rows.Count, 1).End(xlUp).Row + 1 bs.Rows(r) = bs.Rows(1).Value Range("b6:c10").ClearContents End Sub [/syntax]
Tak, bo w Excelu 2010 są te kontrolki, ja mam 2007 więc musiałem je dogrywać.
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
Dobry wieczór, Propozycja rozwiązania w załączniku. Formuły wprowadzone do 17-go wiersza (poz. 12). Dalej trzeba skopiować. Proponowałbym usunąć listy rozwijane z kolumny F, bo jak się coś wprowadzi z tej listy, to zrobi się bałagan, wystarczą listy w kolumnie E. Formuły w kolumnie O są w zasadzie niepotrzebne, pełnią tylko funkcję informacyjną - jeśli...
I dalej nie ma załącznika. Czy to ma być ten sam kolor wszystkich liter we wszystkich kolumnach? Jeżeli tak, to należy zaznaczyć zakres do formatowania (można to też zrobić później, w ramach modyfikacji) i jako formułę wpisać np. [syntax=text]=A11=A$11[/syntax] (warunek zapisujemy dla pierwszego wiersza zakresu). Przykład w załączniku.
Po Next dodać [syntax=vb] .Cells(w,1).value = .Cells(w-1,1).value + 1[/syntax] Powinno działać. Pamiętaj tylko, że gdy w = 1 dostaniesz error, bo spróbujesz się odnieść do Row = 0. Oraz, jeśli ta komórka nad nie będzie liczbą(bądź pusta), a spróbujesz do niej dodać 1. Można temu zapobiec dodając kilka If'ów. Jednakże myślę, że nie jest to takie znów...
Nie wiem czy dobrze cie rozumiem Zaznaczasz kolumny wciskasz kopiuj przechodzisz do nowego zeszytu (nie wiem jak jest w oo ) wciskasz prawy klawisz myszy wybierasz wklej specjalnie... zaznaczasz "wartości" ok i masz wklejone same cyfry.
Jedyne co przychodzi mi do głowy to makro z wykorzystaniem kolumny z prawidłowymi nazwami. W przykładzie zamiana polskich liter, porównanie, podstawienie. Trochę długo trwa, należałoby pewnie dopracować, ale działa (w arkuszu autora). Sub zamien() Dim i As Long, kom As Range, tekst As String For i = 2 To Range("B65536").End...
Można pokombinować z funkcją WYBIERZ a godzinę wstawiać kombinacją Ctrl+Shift+":" Prościej (wygodniej) jednak będzie wykorzystać VBA. Wklej w kod arkusza, wypróbuj i dostosuj do własnych potrzeb Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target.Offset(0, 2) = Format(Time(),...
Wszystko da sie zrobic :)
[syntax=vb]Sub zm_dat() t = CDbl(Time) If t >= (6 / 24) And t < (14 / 24) Then Range("d2") = "I": Range("c2") = Date ElseIf t >= 14 / 24 And t < 22 / 24 Then Range("d2") = "II": Range("c2") = Date ElseIf t >= 22 / 24 And t < 1 Then Range("d2") = "III": Range("c2") = Date Else 't >= 0 And t < 6 / 24 Range("d2") = "III": Range("c2")...
Podpowiedziałem ci w drugim topiku który założyłeś. Ale jeszcze raz: "wróć" do rozwiązania że w jednej komórce wpisujesz datę w formie "2014-01-01" "Dołóż" kolumnę np pomoc2 (później ją ukryjesz) wpisz w pierwszej komórce tabeli funkcję: =miesiąc(odwołanie do komórki z datą z tego samego wiersza) skopiuj funkcje w dół. efektem będzie numeryczne określenie...
Coś muszę włączyć lub wyłączyć? Pogrzeb w opcjach bezpieczeństwa, centrum zaufania (zależy od wersji Excela). Włącz makra, zaptaszkuj: "ufaj dostępowi do modelu obiektowego VBA", lub tp.
Wtedy byłoby tak jak podają wszystkie podręczniki i fora, to znaczy: = WYSZUKAJ.PONOWO(num; nr_i_opis; 2; FAŁSZ) num oznacza komórkę z szukanym numerem, nr_i_opis stanowi teraz jedną tablicę złożoną z dwóch kolumn (adres lub nazwa tej tablicy), 2 oznacza, że wynik będzie z drugiej kolumny, a FAŁSZ (lub 0) oznacza, że funkcja ma znaleźć dokładnie to...
A może być makro? Jeśli tak, to spróbuj odpalić taki kod: [syntax=vbscript] Option Explicit Sub Zakresy() Dim ark As Worksheet Dim i&, j&, w& Set ark = ThisWorkbook.ActiveSheet w = ark.UsedRange.Rows.Count + 1 i = 2 j = 2 Do While i < w If Cells(j, 4) <> "" Then Cells(i, 5) = "OK" End If j = j + 1 Do Until ark.Cells(j, 2) <>...
Nie mam potrzeby zamieniać daty tylko wstawiać poszczególne dni tygodnia w odpowiednie komórki No tak. W takim razie przyjmując, że poniedziałek jest pierwszym dniem tygodnia wystarczy wpisać kolejno 1,2,3,4,5,6,7. Jeśli jednak chodzi o dzień miesiąca, trzeba szukać daty... http://obrazki.elektroda.pl/2694734300_1...
Dzień dobry, Do rozwiązania Pana problemu nie wystarczy sam Excel, trzeba wspomóc się funkcjami użytkownika zdefiniowanymi w VBA. Poza tym w Pana arkuszu były nieścisłości, które starałem się poprawić, o ile dobrze zrozumiałem ideę. Szczegóły podałem w załączonym arkuszu. Jeśli coś jeszcze będzie niejasne, proszę napisać.
Nie widzę potrzeby stosowana makr. Formuły i formatowania powinny wystarczyć. Ad.1. Poprawność danych > lista Ad.2. WYSZUKAJ.PIONOWO z argumentem (nazwa arkusza) podstawianym przez ADR.POŚR
Chyba jednak się nie zrozumieliśmy... Załączam zrobiony na szybko załącznik ilustrujący ideę. Zależy mi na pominięciu okienka wyszukaj/zamień. Bo w tej chwili żeby powyższy sposób zadziałał muszę na dzień dobry wywołać okno wyszukiwania czyli ctrl+f, Nigdzie nie pisałem o tym okienku. Nie musisz go wywoływać. Wyszukujesz za pomocą funkcji wyszukaj.pionowo....
Zawijaj tekst się nie sprawdzi?
Przetestuj makro z załącznika.
Witam. Pan napisze w kolumnie C, tylko ta jedna wartość - 633401 ? W przeciwnym razie należy określić Excel'u, oparty na co on ma do określenia wartości względne danych.
moze ktos ma pomysł jak to prosto ogarnąć Obawiam się, że przy pomocy Excela i VBA trudno to będzie funkcjonalnie zrealizować ;-) tym bardziej, że jak widać mamy tu do czynienia z jakimiś produktami spożywczymi i każdy błąd kodu może mieć poważne konsekwencje. Jak sam piszesz: przy uruchomieniu excel aktualizuje baze z zewnatrz to dlaczego nie wykorzystać...
Na razie tylko zmniany Co do tych antydubli i listy w zależności od zmiany jeszcze różnej dla każdego kierowcy to więcej roboty i na pewno przynajmniej jeden arkusz pomocniczy.
Dzięki koledze adamas_nt i jego sugestii co do "automatycznego" pobrania numeru kolumny (i wiersza w domyśle) poprawiłem nieznacznie moje makro. Wystarczy teraz wkleić w arkusz "dane" gdziekolwiek twoją tabelę z danymi (jak by ona nie wyglądała). Nacisnąć wstaw kody i kody wewnętrzne zostaną wstawione bez względu na to gdzie znajduje się tabela z danymi...
Hmm, wywołują mnie tu do tablicy :) Rozumiem, że już jakieś makro działa... Z tego wynika, o czym już kolega Tommy82 wspomniał, że należy do makra dopisać instrukcję warunkową. A właściwie umieścić Twoje makro w gałęzi Else. Schemat: If IsNumeric([A]) then [X]=[B].value Else tu Twoje makro End If Jesli makro jest w innym skoroszycie wywołujesz...
czy jest jakieś narzędzie w Excelu które umożliwia zmianę kolumny D na podstawie C? Narzędziem do tego celu są formuły. czyli jeśli mamy kraj GB w kolumnie C to chciałbym dopisać w kolumnie D +44 i analogicznie dla całej reszty symbol + W kolumnie E (pole E2) wpisz sobie formułę [syntax=vb]=JEŻELI(C2="GB";"+44"&D2;"+"&... A następnie przeciągnij...
Samo się wpisze...
[syntax=vb]Sub kopie2() Dim r&, rb& For r = 11 To Range("B" & Rows.Count).End(xlUp).Row With Sheets("DataBaza") rb = Application.WorksheetFunction.Match(Rang... & r), .Columns(4), 0) .Range("EZ" & rb).Offset(, Day(Cells(r, 5))) = Cells(r, 9) End With Next End Sub [/syntax]
Trzeba dopisać do kodu jedną linijkę i zakończenie instrukcji warunkowej (bo już nie zmieści się w 1 linijce): [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Intersect(Target, Range("I:I")) Is Nothing Then Exit Sub If Target = 2 Or Target = 3 Then Range("J" & Target.Row & ":AP" & Target.Row) = 0 Range("AQ" & Target.Row).Select...
[syntax=vbscript]Sub Import() Set a = ActiveWorkbook nw = a.Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("USERPROFILE") & "\Desktop" .AllowMultiSelect = False .Title = "Wybierz plik" .Filters.Add "Excel", "*.xls*" If .Show = True Then Plik =...
A nie wystarczy wyłączyć obsługę zdarzeń przed otwarciem tego "innego" pliku? Zdarzenie Workbook_Open nie powinno się wykonać.
automatyczny excel excel makro automatyczny excel automatyczny wykresu
dostawca internet wrocław wsady flash blaupunkt sygnał video sygnal video
zbudować gokarta zbudować gokarta elektycznego
Schemat połączenia świec zapłonowych Audi 80 B3 1.8S 1989 Lampa ostrzegawcza Hörmann SupraMatic E4 - instalacja i konfiguracja