Można do tego wykorzystać makro zdarzeniowe, na przykład takie: [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) Dim cel As Range Application.EnableEvents = False For Each cel In Target If Len(cel) > 0 Then If Left(cel, 1) <> "'" Then cel.Value = "'" & cel.Value End If Next cel Application.EnableEvents = True End Sub...
Wystarczy użyć choćby wyszukaj.pionowo() czy też indeks() i pobrać odpowiednie wartości z arkusza cennik.
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.
:) Nie wchodzę w zasadność, poprawność itd danych. Autor prosił o pomoc więc proszę. Widać że autor nie ma za dużo do czynienia z VBA, ale od czegoś trzeba zacząć. Każdy kiedyś stawiał pierwsze kroki, a najlepiej się uczyć na takich przykładach robionych dla siebie. Nagrywanie makra polecam jedynie by zobaczyć/zrozumieć jak to mniej więcej działa. Natomiast...
... JEŻELI(B9&C9&D9&E9&F9&am... ...
[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 =...
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]
Sprawdź w opcjach (menu: Formuły) czy masz włączone autouzupełnianie. Łatwo to niechcący przełączyć (Alt + Down Arrow)...
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...
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]
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...
Tych numerów jest kilkaset. Jeśli tak :cry: to konieczne może być dodanie na początku dwóch kolumn pomocniczych z "przeciągalnymi" formułami zliczającymi :idea: i wówczas będziesz formatował :D jak na zrzucie i w załączonym pliku :spoko: 1111274 1111275
Patrz zdarzenie arkusza Worksheet_SelectionChange
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 ;)
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...
[url=https://stackoverflow.com/questions...
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...
Zamalować wszystkie owale czarnym recznie. Dodano po 1 następnie makro wszystko zrobi
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.
[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")...
Spróbuj teraz... Z drugiej strony w Excelu 2013 istnieje faktycznie funkcja Workday, która generalnie robi praktycznie to samo i można byłoby z niej skorzystać: http://www.excelfunctions.net/Excel-Work...
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...
Do komórki F2 wklej formułę =JEŻELI(LICZ.JEŻELI($C$2:$C$... i przeciągnij do dołu.
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.
Witaj Trochę wątpliwości. Dlaczego jest to tak ważne, aby bez makr?
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...
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]
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ń...
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...
W załączniku rozwiązanie. Nie wiem, czy to wszystko. zeby sie pojawialo zestawienie na najblizsze 3 miesiace Jesteś w stanie przygotować wzór tego zestawienia?
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;...
Skorzystaj z Licz.jeżeli() W A1 wpisz: =B1&"/"&LICZ.JEŻELI($B$1:B1;B1) I przeciągnij w dół
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.
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).
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ą...
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ć,...
Musisz utworzyć plik Excela, w którym będziesz odnotowywał numery wszystkich rachunków wystawionych w Wordzie :idea: :D A potem możesz sobie zestawić dane i ustalić ostatni numer wystawionych rachunków np. tak jak na zrzucie :spoko: 1073332
Jeśli było tak: \\...\katalog\glowny.xls i w tym excelu odwoływał się do innych plików w tym katalogu. to jeśli plik glowny.xls został przeniesiony/skopiowany np. do katalogu c:\katalog\x_katalog\ to wszystkie hiperłącza z glowny.xls będą poszukiwać pliki z tego właśnie katalogu. Aby zawsze odwoływały się do plików z lokalizacji pierwotnej, to inaczej...
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...
Tak, bo w Excelu 2010 są te kontrolki, ja mam 2007 więc musiałem je dogrywać.
Opisane trochę niejasne, ale funkcja PODAJ.POZYCJĘ a INDEKS może pomóc
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...
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...
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...
Podałeś taki niestandardowy format z łącznikami między elementami czasu, zamiast dwukropków, więc zrozumiałem, że to jest istotne. Jeśli jednak chcesz mieć "prawdziwą" datę, to uzupełnij swój kod tak: [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("B1:C10")) Is Nothing...
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...
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) <>...
Serwus, moim problem jest automatyczne kopiowanie(po wypełnieniu danej komórki) trzech kolumn z tabeli w arkuszu pt. "ogólne" do dwóch tabel w arkuszach: "faktury" i "licencje". próbowałem wygooglować coś na temat kopiowania danych między arkuszami automatycznie. Niestety nic co znalazłem nie do końca odpowiadało moim potrzebom. Możliwe, że po prostu...
excel zamykanie automatyczne automatyczne kopiowanie excel makro automatyczne excel
rozwijana lista excel priorytety mikrotik siemens podręcznik
układy zasilajace radio samochodowe
Czyszczenie wymiennika ciepła pieca Vitopend Chiński pendrive 4 TB – filmy działają, zdjęcia nie – fałszywa pojemność, testy H2testw, reklamacja
