Czemu nie ma załącznika? Niby to proste, ale niejasne. Komórka A1 w którym arkuszu? w aktywnym? w określonym z nazwy? w pierwszym, w którym komórka A1 jest wypełniona? W sąsiednim arkuszu należy rozumieć: w następnym czy w poprzednim? Poszukiwane słowo "białe" lub "czarne" ma stanowić pełną zawartość komórki czy fragment zawartości komórki? Czy wielkość...
Nie bardzo zrozumiałem - chcesz wpisać "tekst" jak komórka jest pusta, wtedy już nie będzie pusta. Takie działanie nie ma sensu. Ale mógłbyś to zrobić w innej komórce, czyli: (przykładowo) Jeśli komórka A1 jest pusta, wpisz w B1 "tekst", inaczej wpisz wartość A1 1: w komórce B1 formuła =JEŻELI(A1=0;"tekst";A1) 2: W komórce A1, wartość 0, pusta lub inna
Możesz też od razu dla komórki TD nadać parametr height zamiast rozbijać tekst na nowe divy, itp - O ile, komórka TD to tylko sam tekst . PS. Zamknij tag </center> ;) Ogólnie mogę Ci polecić www - http://validator.w3.org/ , abyś mógł sprawdzać błędy na stronie i od razu je korygować. Skrypt wykryje właśnie takie błędy jak niedomknięty tag CENTER....
Możesz jak wspomniał kolega wyżej wykorzystać funkcje dzielenia mi modulo (funkcja mod w excelu) ale możesz też skorzystać z operacji na tekstach tak zamyślałeś na początku. jeśli A5 to nasza komórka z danymi to kolejne cyfry można obliczyć np tak: =JEŻELI(DŁ(A5)>10;WARTOŚĆ... =JEŻELI(DŁ(A5)>9;WARTOŚĆ&...
...kolego w Twoim wzorcu nawet jeśli zakres "E1:E9" jest całkowicie pusty to pokazuje wynik 3 Chyba u Ciebie... http://obrazki.elektroda.pl/9225081400_1... ">0" oznacza większe od zera Jeśli w komórce jest liczba ujemna lub tekst warunek nie jest spełniony "<>" oznacza niepusta spełniony zawsze jeśli komórka nie jest pusta.
Problem w tym, że jeśli dam aby pomijał tekst "po terminie" to będzie pomijał wszystkie teksty... Chodzi o to, że pomimo tego, że komórka jest pusta to arkusz pustą komórkę traktuje jako datę jeśli cała kolumna jest tak sformatowana. .. Wiec sprawdzaj 2 warunki w forumule np.: ORAZ(E20<DZIŚ();E20<&g... albo kolejny...
No okej ale ma przy okazji wyliczac srednia zapomnialem dodac 😃. Wiec ma wyliczac srednia ocen i przy okazji jak jest pusta komorka to ma napisac "brak ocen"
Witam Nie odrobiłeś lekcji. Adres pierwszego widocznego znaku po inicjalizacji to 00H. Aby sterownik wiedział że podajesz mu adres pod który będziesz wpisywał dane ustawiasz najstarszy bit. Dlatego wcześniej napisałem 00+80. Jeśli pierwsza komórka drugiej linii ma adres 40H to pierwsza niewidoczna z lewej pierwszej linii ma 3FH. Wypadało by wpisać adres...
Sub UsunWiersze() Dim i As Long Dim zakres As Range Dim zakres2 As Range Dim nzakres As Range Application.ScreenUpdating = False For i = 450 To 1 Step -1 If Cells(i, 12).Value = "LICZBA AUT:" Then If Cells(i, 14).Value = 0 Then Set zakres = Range(Cells(i, 1), Cells(i + 81, 1)) zakres.Rows.EntireRow.Delete End If End If Next For i = 450 To 1 Step -1...
Odnośnie daty - użyj kontrolki z kalendarzem zamiast kontrolki textbox. Tu masz przykład: http://www.fontstuff.com/excel/exltut03.... Tylko u Ciebie z tego co widzę kontrolka jest na formie, a nie zagnieżdzona w arkuszu, ale chyba sobie poradzisz, po prostu w edytorze form sobie ją wrzucisz. Tak, zgadza się - textbox nie ma właściwości value. W linijce...
Jeżeli chcesz uzyskać indeks górny tylko części zawartości komórki, należy znak indeksu poprzedzić spacją (sprawdzone, jeśli piszesz ciągiem, niby pokazuje że znak idzie do góry, ale po zatwierdzeniu wraca do normalnej postaci. Cały M$... Mam Office 2007. Także zapisujesz np. 10 2 - 2 - właściwości czcionki, indeks górny, Spacja nie jest potrzebna...
Ta twoja komórka obsługuje tryb TXT więc sprawa prosta. Załatw sobie kabelek podłącz komórę do PC i poeksperymentuj na terminalu. Potem odcinasz od kabla wtyczkę komputerową i wtykasz bezpośrednio do UARTu mikrokontrolera. Piszesz program który odbiera znaki i jeśli natrafi na tekst WLACZ LAPKE to ustawia stan wysoki na nóżce do której podłączony jest...
Powstrzymam się od skomentowania Twoich czarnych zrzutów ;-) Odnoszę wrażenie że borykasz się jedynie z problemem nieczytelności widoku arkusza z komórkami zawierającymi bardzo dużo !!! tekstu. Mogę jedynie zaproponować zmniejszenie skali wyświetlania arkusza i dostosowanie formatowania komórki - aby uzyskać możliwość wprowadzania tekstu do wybranej...
Podaj więcej szczegółów. Np. która wersja Excela? Czy masz funkcję X.WYSZUKAJ? Ona nie ma tego ograniczenia do 255 znaków. Poza tym ile znaków ma C1? To znaczy, czy limit 255 jest przekroczony w C1 czy tylko w A1:A6? Ponadto, czy chodzi o niewielkie przekroczenie (możliwość podziału tekstu na 2 fragmenty), czy o znaczne? Czy mają być rozróżniane małe/wielkie...
Chcesz odblokować tylko formatowanie tekstu w komórkach ? (dane nie zmieniac) Kod w post #2 odblokuje wszystko... Ale... te makra do przyciskow(Pobierz_Arkusz1, Usuñ_Arkusz1) to odblokowanie usune. Uzyj przy blokowaniu kod ActiveSheet.Protect Password:="x", AllowFormattingCells:=True
https://obrazki.elektroda.pl/4780071900_... Podstawy GOOGLETRANSLATE i wpisujemy w A1 jakieś przykładowe słowo - "Przekaźnik": https://obrazki.elektroda.pl/2211472500_... W B1 wpisujemy znak równości a potem zaczynamy pisać GOOGLE, podpowiedź powinna się już pojawić: https://obrazki.elektroda.pl/2939205100_...
Dzięki za odpowiedzi! Ponieważ jeden dokument ma służyć przynajmniej dla całego roku (jak nie dłużej), to obliczenie H1 dla wszystkich arkuszy nie sprawdzi się. W załączeniu przesyłam przykładowy plik. W zakładce "lipiec - suma" w polu C2 podana jest dotychczasowa formuła - suma('lipiec - suma:lipiec (1)'!H1) wpisywana ręcznie. Formuła działa, w przypadku...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
I się nie dziwię. Twoja formula wycina od spacji przed numerem do spacji przed numerem konta ;) Wpisz: =FRAGMENT.TEKSTU(A1;SZUKAJ.TEKST(" ?? ???? ???? ???? ???? ???? ????";A1;1)+1;32) A jak już będziesz robił wersje finalną to polecam formułkę: =JEŻELI.BŁĄD(<formuła której używasz>;"") W ten sposób w arkuszu nie pojawi ci się #ARG tylko pusta...
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ą...
Sprecyzuj co chcesz uzyskać. Przekaz jest co najmniej 2 znaczny. Przecinki maja znaczenie. chcę żeby "data" pierwsza od góry buła kopiowana niżej w pustą komórkę, (to jasne) po napotkaniu następnej "daty" skopiować ją i niżej wpisać w pustą komórkę. (gdzie ma wystąpić następna data? w kolejnej komórce niżej, w pierwszej napotkanej komórce z datą. Czasem...
Najprościej to można zrobić z kolumną pomocniczą, do której wpisać funkcję SUMY.CZĘŚCIOWE. Wtedy obliczenia formułą: [syntax=text]=LICZ.WARUNKI($A$2:$A$86;"*... Jeśli nie może być kolumny pomocniczej, to sprawa się trochę komplikuje, w każdym razie nie można użyć LICZ.WARUNKI, bo obie funkcje wymagają odwołań.
http://obrazki.elektroda.net/45_12550561... Elektroniczna wizytówka/wyświetlacz. W zależności od przyciśniętego przycisku wyświetla przesuwający się tekst za pomocą 85 multipleksowanych diod LED. Może służyć także jako zwykły wyświetlacz do dyskretnego przekazywania informacji, a ponieważ posiada niewielkie wymiary (24mm x 85mm), można go zabrać...
Ja pamiętam to jeszcze z Delphi 2.0 :-) Być może pokręciłem nazwę, zaraz poszukam w sieci, chwilowo nie mam zainstalowanego delphi... EDIT: W DrawGrid nie trzeba nic zmieniać jednak, pokręciłem z innym komponentem, wystarczy jedną metodę oprogramować i już :) To Ci powinno pomóc: http://www.festra.com/wwwboard/messages/...
Niestety tak nie mogę zrobić. Czasami w następnej komórce coś jest lub będzie. Czasami uzupełniam co drugą, a później muszę coś dać pomiędzy i właśnie psuje mi to czytelność. Komórka musi być pusta, bo nie wiem czy mi później system, na który to uploaduje nie wywali błędów. A lubi :)
Cześć! Czy przy pomocy formatowania warunkowego w Excelu można otrzymać następujące warunki? 1. Gdy w komórce B1 znajduje się tekst "Anulowano" to pokaż w komórce A1 tekst "ND". 2. Jeżeli w komórce C1 znajduje się tekst "Korekta" to komórka A1 podświetla się na czerwono - i to zrobiłam i działa. I teraz chciałabym do tego dołożyć taki warunek: Gdy w...
Witam, mam problem z makrem dotyczący podświetlenia aktywnego wiersza. Zrobiłem coś takiego jak w załączniku - chodzi mi o podpowiedź jak przerobić formatowania tak, aby podświetlane były na niebiesko tylko komórki niepuste. Reasumując, na niebiesko podświetlone mają być tylko komórki, w których jest jakiś tekst lub liczba a nie w deklarowanym zakresie...
W M1 jest formuła, która się zmienia po dodaniu wierszy Czyli generuje jakąś liczbę, tak? (wynikiem formuły nie może być jakiś tekst czy pusta komórka bo będzie błąd, musi być liczba) wkskontroling.Activate Zwróć też uwagę, że wcześniej aktywujesz "wkskontroling" czyli "Worksheets("Rejestr_protokołów")" wtedy n = Cells(1, 13) (M1) pobiera z tego arkusza.
Może taka prosta funkcja: [syntax=vbscript]Function NajnowszaData(Wej As String) As Date Dim Daty() As Date d = Split(Wej, " ") For x = 0 To UBound(d) If IsDate(d(x)) Then y = y + 1 Next ReDim Daty(y - 1) y = 0 For x = 0 To UBound(d) If IsDate(d(x)) Then Daty(y) = d(x) y = y + 1 End If Next ub = UBound(Daty) For x = 0 To ub - 1 For y = x + 1 To ub If...
[syntax=vbscript][/syntax] Cześć, Mam pytanie odnośnie zautomatyzowaniu pewnego procesu, dostaję co tydzień plik z excela w którym interesują mnie zawsze dwie komórki (C30,C46). Jeśli w danej komórce jest jakikolwiek tekst (komórka nie jest pusta) to żeby ta komórka została przeniesiona do innego pliku excela. Czy ktoś mógłby wspomóc kodem, gdyż nigdy...
Jeżeli to możliwe to poproszę o użycie formuły Proponuję formułę :spoko: [syntax=vbscript]=JEŻELI(NIE(CZY.BŁĄD(ZN...
Wczytuje dane ze wszystkich plików tekstowych znajdujących się w tym samym katalogu, co plik Excela: [syntax=vb] Sub ddd() Dim wiersz As Integer Dim wielkosc As Integer Dim lInputFile As Variant Dim linia As String Dim i As Integer Dim tekst As Variant Dim opis As String wiersz = 1 Dim plik_txt As String plik_txt = Dir(ActiveWorkbook.Path & "\*.txt")...
Argumentem funkcji IsNumber ma byc komorka (Range("B" & i)), "B" & i jest zwykly tekst
Chciałbym poprosić o pomoc w związku z makrem które, muszę zbudować. Mianowicie chodzi mi o to że mam tysiąc komórek które wyglądają mniej więcej tak: dzbanek_02-01-2008_K20 W VBA możesz użyć czegoś takiego: Do moderacji: Wiem, że odświeżam temat, ale może ta krótka instrukcja się komuś przyda, bo autor pewnie już sobie poradził. Usuwajcie jeśli uznacie...
Witam Czy jest możliwość, aby makro dokonało przekreślenia części tekstu w komórce? Chodzi o to, że np w komórce A2 mam tekst "TAK NIE" i jeżeli komórka A1=1 to, żeby makro przekreślało fragment tekstu NIE, a jeżeli jest inna wartość przekreślało fragment tekstu TAK. Od razu uprzedzę, że to co powyżej napisałem jest tylko pewnym uproszczeniem, gdyż...
Witam, mam problem z formatowaniem warunkowym. Chcę żeby w zakresie komórek od D3 do I2 (które są z listą wyboru) formatowało komórkę (zakreślało na czerwono) jeśli tekst zawiera fragment z komórki C3. Wybieram formatuj komórki jeśli: Tekst zawiera fragment: i wpisuję =C3 Jednak kiedy w komórce np. D3 wybieram z listy tekst to formatuje mi go od razu...
Przetestuj: [syntax=VB]Sub Data_Bold() Dim lLstRw& Dim i& Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "A" With ActiveSheet sRegExpPatt = "Data" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Global...
dla Excel =>2007 A1 =JEŻELI.BŁĄD(SZUKAJ.TEKST("Peugeot";B1)^...
las na zielono, wody na niebiesko. istnieje jakieś rozwiązanie? Pojedyncze cuda można zrobić :D ale ręcznie np. 1170743 Jeśli chciałbyś to robić na większą skalę to pozostaje jedynie kod VBA :ok:
Bardzo dziękuję za szybkie odpowiedzi. Spróbuję doprecyzować o co dokładnie mi chodzi. W komórce A1 wpisuję kolor "czerwony". Po uruchomieniu makra "czerwony" z A1 zostaje skopiowany do komórek A2, A3 i A4, tak, że teraz wszystkie te komórki zawierają tekst "czerwony". Ale czasem w A1 nie wpisuję tylko koloru ale też przedrostek "kolor", tak, że cała...
Dzień dobry, Trochę to przekombinowane, ale można spróbować czegoś takiego: część, którą Pan wpisuje wpisać w kodzie formatu - format niestandardowy np. L (at) oznacza, że komórka sformatowana w ten sposób będzie wyświetlać na początku L i spację, a dalej faktyczną (zmienną) zawartość komórki. Z kolei w komórce można założyć listę rozwijaną z wariantami,...
Myślałem o takim rozwiązaniu. W komórce A wpisuje text, a w komórce B wpisuję "!". W takim przypadku gdy wpiszę w komórce B "!" to komórka A będzie wpisanym tekstem migać. Da mi to informację o "priorytecie" wpisanej informacji.
Pokaż w tym załączonym pliku jakiego oczekujesz wyniku dla swoich przykładowych danych. Piszesz coś o komórce A1, że tam miałby być wynik, ale ta komórka jest pusta. Zrobiłeś duże scalone pole E3:H5 i tam wpisałeś formułę na podstawie komórek K8:L8. Gdzie mają być wyniki dla następnych wierszy? I jeszcze: w której wersji Excela to ma działać?
[syntax=vbscript]Sub Rozdziel() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 2 To ow a = Split(Cells(x, 1), ".") For y = 2 To 4 Cells(x, y) = a(y - 2) Next Next End Sub [/syntax] Trzeba tylko ustawić format kolumn B:D na tekstowy.
Dla jednego pola nie jest to skomplikowane - działające makro to: Dla zakresu [syntax=vbscript]Sub elka() For Each c In Range("H8:H100") If c = "TAK" Then c.Offset(, -5) = True ElseIf c = "" Then c.Offset(, -5) = False End If Next End Sub[/syntax]
Użyj funkcji: =LICZ.JEŻELI(zakres1:zakres2;"tekst") zakres1 - adres komórki zakres2 - adres komórki "tekst" - wyraz, który występuje w komórkach a ma być zliczony
Witam Mam plik " Wzor" i z niego muszę dokonać drukowania określonych arkuszy. Makro ma zadanie wydrukować najpierw arkusz o nazwie "AAA"; potem arkusz "BBB". Drukowanie jest wysyłane na domyślną drukarkę i drukowanie dwustronne. :idea: Jak ja to bym widziała :D : W arkuszu "MENU" w komórce "F5" makro wstawia liczbę "1". Wtedy zadziałają funkcje Excel...
Witam, Proszę o pomoc w następującym przypadku. W kolumnie A mam do wyboru z listy rozwijalnej kilka opcji teksu np: tekst 1, tekst 2, tekst 3 Chcę aby w zależności od wyboru tekstu z kolumny A, zmienił się kolor komórki na prawo od niej (z kolumny B). Czyli: - gdy wybiorę z listy rozwijanej w kolumnie A wierszu nr 1 "tekst 1", to komórka będąca od...
Opis jest niezbyt jasny. Czy chcesz wypełniać puste komórki w kolumnie H tekstem z kolumny I, czy chcesz w innej kolumnie np. J uzyskać efekt połączenia kolumn H i I (po weryfikacji). Jeśli to pierwsze, to raczej nie formułą tylko makrem. Jeśli to drugie, to możesz użyć formuł. Ale nie takich jak próbowałeś. Nie można używać symbolu zastępczego gwiazdki...
Cześć. Sprawdź takie makro wykonywane w zdarzeniu "Change" arkusza: [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Then Exit Sub If (Target.Column = 1 And Target.Offset(0, 2).Value = "") Then Target.Offset(0, 2).Value = Date End If End Sub[/syntax]
wpisać tekst komórka wyciągać tekst komórka komórka zawierać fragment tekst
kospel słaby przepływ termostat lodówka podłączyć ipconfig linia komenda
Różnicówka wybija przy załączaniu 20 opraw LED 3W Kondensator rozruchowy do napędu Ditec Entrematic
