Wypowiedzi
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Chyba makrem tyko
np takim beznadziejnie glupim( ktore trzeba wywolywac przyciskiem, ale mozna to latwo zamienic na target change)
p.s w walidacji komorki trzeba errory wylaczyc
Sub Macro3()
Dim value As String
Dim i As Integer
value = Range("D1").value
i = 1
Do Until Cells(i, 1).value = value
i = i + 1
Loop
Range("D1").value = Cells(i, 1).Offset(0, 1)
End SubTen post został edytowany przez Autora dnia 25.11.16 o godzinie 19:03 -
W taki sposob mozna. Kod wstaw w edytorze VBA w ThisWorkbook
Ten post został edytowany przez Autora dnia 25.11.16 o godzinie 18:24
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
If Target.Value = "kwota netto" Then
Target.Interior.ColorIndex = 6
End If
End If
End Sub
-
No tez ostatnio rozwazam ten problem.
"Szerowanie" pliku excela niestety nie ma az tak rozbudowanego system rozwiazywania konfliktow przy zapisie , zeby umozliwic zbudowanie trakera requestow.
Doszedlem do wniosku smutnego , ze albo Google docs i zawieszony tam excel (najszybsza do realizacji wersja, ale od strony uzytkownika troche mozolna)
albo
- przeniesienie tabeli do ms access
- zbudowanie formularza w excelu (albo C# - ale to juz duzo wiecej roboty)
- makro/c++ dodajace rekordy do bazy danych z formularza. -
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Aby mieć możliwość przeczytania tego posta musisz być członkiem grupy Excel VBA
-
Czesc,
zamierzam zainwestowac w rower ok 250 - 300 zl.
Co wybrac:
- amortyzatowana sztyca rowerowa NCX SR SUNTOUR
czy
- siodelko na spezynach - np Brooks
Moja waga - 97 kg (+ 2 kg ubranie) ok 100 kg
Rower crossowy - 70 proc asfalt 30 procent nie-asfalt.
Rower mam zaopatrzony w lemondke wiec czasami zmieniam pozycje na bardziej pochylona.
Siodelko/sztyca powinny na to odpowiednio reagowac.
Co wybrac? -
=VLOOKUP(D1,Sheet10!A:C,3,0)
argumenty funkcji po kolei:
D1- czyli nazwa komorki z wartoscia po ktorej bedziemy szukac - w Twoim wypadku tam gdzie jest LP
Shee10!A:C - kolumny w ktorych jest umieszczona tabela którą będziemy przeszukiwać.
3 - numer kolumny w której jest to czego szukamy (wysokosc)
0 - dokładne porównanie (bez zmian) -
vlookup (wyszukaj.pionowo) wygrywa takie batalie zazwyczajTen post został edytowany przez Autora dnia 13.09.16 o godzinie 14:24
-
vlookup powinien udzwignac
-
No tak, mogą być zdjęte, ale to pod warunkiem że plik trafi w ręce kogoś kto trochę się orientuje w VBA albo programisty. Wszyscy nimi nie są - ani jednymi, ani drugimi.
-
Znaki wieloznaczne nie są wykorzystywane we wszystkich formułach excelowych. Lista formuł, w których są wykorzystywane, jest podana pod linkiem poniżej (żeby nie było, że jestem taki wszechwiedzący)
http://www.exceluser.com/excel_help/functions/guide-to...
Pozdrawiam
Radek -
=JEŻELI(LICZ.JEŻELI(A1;"*k*d*");"tak";"niecałkiem")
-
Andy L.:
Wystarczy złożyć w formułę takie funkcje:
IFERROR(), INDEX(), SMALL(), IF(), i dwa razy ROW(), zatwierdzić jako formułę typu array, przeciągnąć w dół i wynik gotowy.
O ile proste użycie filtra nie jest wystarczające.
Nie testowałem formuły.
Proszę popraw mnie jesl nie mam racji : Twoje zalozenie jest takie, że znasz ilość wystąpień daty. Bo jeśli nie, to za każdym razem będziesz musiał przeciągać formułę w dół jeśli nie zakwalifikują się do niej kolejne wiersze. -
Czesc,
Czyszczenia się trochę boje, więc nie chce go progagować. Ogola komenda w kodzie powinna brzmieć Range("A1:A8000").clear (albo .clearcontent)
Natomiast. Stworzyłem funkcje (oczywiście trzeba ja umiescic w module żeby dzialala).
w komórce wpisujesz potem =vlookup_2(E2;A:A;1) i powinno zadzialac. Dodatkowo możesz na początku dodac dyrektywę onerror resume next żeby pominąć bledy.
Przyznam ze dowiedziałem się o tym ze funkcje excelowe maja bana na zmiane zawartości innej komórki. Niż tej w której są wpisane. Stąd też mój kod jest trochę mniej zrozumiały niż poprzednio :) (W sumie to sam nie do końca rozumiem go, ale działa(ło) )
Pozdrawiam
R.
Function vlookup_2(month As Range, column As Range, offset As Integer)
Dim lastrow As Long
Dim table() As String
lastrow = column.End(xlDown).Row
For i = 1 To lastrow
If column(i).Value = month.Value Then
ReDim Preserve table(a)
table(a) = column(i).offset(0, offset).Value
a = a + 1
End If
Next
For i = 0 To UBound(table)
Evaluate "wpisz(" & month.offset(i + 2, 0).Address(False, False) & "," & table(i) & ")"
Next
End Function
Sub wpisz(kom As Range, wartosc As String)
kom.Value = wartosc
End Sub
-
Marzanna S.:
Pomysł dobry, ale widzę jedno miejsce, gdzie może zazgrzytać: kolumna A to typ danych Data, wartość w komórce E2 - to tekst. Mam wątpliwości, czy na pewno warunek w pętli będzie dobrze odczytany.
Cześć, nie sprawdzałem pliku z linku. W moim założeniu kolumna A to kolumna z tekstem np. Lipiec 2016, Sierpień 2017, etc. Jak byłby to format daty to przy wpisaniu lipiec 2017 zmieniałby się automatyczniena 01.07.2017 - a taka pełna data ma być podobno w kolumnie B.
Pozdrawiam,
RadekTen post został edytowany przez Autora dnia 21.08.16 o godzinie 11:02