GoldenLine
Zaloguj się
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: znowu daty :(

A to nie powinno być tak, że pętla If ... Then zakończy się wtedy, kiedy j=interval?
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Janusz K.:
A to nie powinno być tak, że pętla If ... Then zakończy się wtedy, kiedy j=interval?
nie, poniewaz interval uzyty jest w For (tylko moj blad ze zamiast interval dalem 10...) j jest tylko po to aby wypisywac pionowo wyniki
moglem oczywiscie zrobic to inaczej poprzez sprawdzanie wartosci powyzej i wtedy nieuzywalbym zmiennej ktora zabiera CPU i pamiec ale optymalizacja to czesc koncowa...
"If" sprawdza tu tylko czy trafilem dzien tygodnia
Link do wypowiedziLink
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: znowu daty :(

No własnie..... A ile takich rocznic miałes znaleźć?
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Janusz K.:
No własnie..... A ile takich rocznic miałes znaleźć?
wszystkie ktore spelaniaja warunek rownosci dnia tygodnia w podanym zakresie lat?

edit:
dobra niewazne ;> doczytalem jeszcze raz... 10 kolejnych ;>Fryderyk Czarnecki edytował(a) ten post dnia 21.10.08 o godzinie 16:02
Link do wypowiedziLink
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: znowu daty :(

;-)) kolejnych, spełniających warunek..
Link do wypowiedziLink
Monika Krawczyk

Monika Krawczyk Analyst, Getin Noble
Bank

Temat: znowu daty :(

Andrzej Jankowski:
Ad2.

Wpisz daty urodzin od A1 (data urodzin) w pionie

np w B1 formuła tablicowa zatwierdzana Ctrl+Shift+Enter

=INDEKS($A$1:$A$94;MIN.K(JEŻELI(DZIEŃ.TYG($A$1:$A$100;2)=DZIEŃ.TYG(A$1;2);WIERSZ($A$1:$A$100);"");WIERSZ(1:1)))

i przeciągasz do 10 wystąpień.Andrzej Jankowski edytował(a) ten post dnia 21.10.08 o godzinie 15:24

wiem, że marudzę, ale... jak mam wpisane daty od A1 w pionie, to jest wszystko OK, ale jak np. wpiszę je od A7, to troszkę to nie działa, a chyba powinno bez względu na to w jakiej komórce są dane, prawda?
Link do wypowiedziLink
Monika Krawczyk

Monika Krawczyk Analyst, Getin Noble
Bank

Temat: znowu daty :(

Fryderyk Czarnecki:
Monika Krawczyk:
Mają być PEŁNE lata, miesiące i dni, czyli
miesiąc < 13,
dzień < 32.
czyli ma dodatkowo sprawdzac sensownosc wpisanej daty?

nie :) ale miesięcy mamy 12, a dni w miesiącu co najwyżej 31, stąd to "ograniczenie" :)
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Monika Krawczyk:
Andrzej Jankowski:
Ad2.

Wpisz daty urodzin od A1 (data urodzin) w pionie

np w B1 formuła tablicowa zatwierdzana Ctrl+Shift+Enter

=INDEKS($A$1:$A$94;MIN.K(JEŻELI(DZIEŃ.TYG($A$1:$A$100;2)=DZIEŃ.TYG(A$1;2);WIERSZ($A$1:$A$100);"");WIERSZ(1:1)))

i przeciągasz do 10 wystąpień.

wiem, że marudzę, ale... jak mam wpisane daty od A1 w pionie, to jest wszystko OK, ale jak np. wpiszę je od A7, to troszkę to nie działa, a chyba powinno bez względu na to w jakiej komórce są dane, prawda?
Więc zamień na ...
=INDEKS($A$7:$A$100;MIN.K(JEŻELI(DZIEŃ.TYG($A$7:$A$100;2)=DZIEŃ.TYG(A$7;2);WIERSZ($A$7:$A$100);"");WIERSZ(1:1)))

Zakres od A7 do A100Andrzej Jankowski edytował(a) ten post dnia 21.10.08 o godzinie 21:12
Link do wypowiedziLink
Monika Krawczyk

Monika Krawczyk Analyst, Getin Noble
Bank

Temat: znowu daty :(

robiłam tak, ale wtedy wypisuje złe daty
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Janusz K.:
No własnie..... A ile takich rocznic miałes znaleźć?
masz racje, jednak zmecznie calodniowe daje we znaki ;>
a wiec aby poprawic program trzeba zmienic For na Do ;/
Link do wypowiedziLink
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: znowu daty :(

Wiedziałem, że nie zostawisz dziewczyny bez pomocy.. :-))
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Janusz K.:
Wiedziałem, że nie zostawisz dziewczyny bez pomocy.. :-))

;>

Dim getBDate As Date
Dim interval, x As Byte
Dim curdate As Variant

getBDate = Cells("1", "B").Value

x = Weekday(getBDate, vbMonday)
a = Month(getBDate)
B = Day(getBDate)
j=0
interval=1
Do until interval=10
i = Year(getBDate) + interval
curdate = Str(i) + "-" + Str(a) + "-" + Str(B)
If x = Weekday(curdate, vbMonday) Then
Cells(2+j, "B").Value = curdate
j=j+1
End If
interval=interval+1
Loop
End Sub
Link do wypowiedziLink
Monika Krawczyk

Monika Krawczyk Analyst, Getin Noble
Bank

Temat: znowu daty :(

Janusz K.:
Wiedziałem, że nie zostawisz dziewczyny bez pomocy.. :-))

Miło, że Panowie mi tak pomagają :)

Hm, a nie dałoby się tego zrobić bardziej zrozumiale dla mnie.. podstawy excela :) to, co pisze Fryderyk jest jak dla mnie "przerostem treści nad formą" :)
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Monika Krawczyk:
Janusz K.:
Wiedziałem, że nie zostawisz dziewczyny bez pomocy.. :-))

Miło, że Panowie mi tak pomagają :)

Hm, a nie dałoby się tego zrobić bardziej zrozumiale dla mnie.. podstawy excela :) to, co pisze Fryderyk jest jak dla mnie "przerostem treści nad formą" :)
Hym ja sie na Excellu nie znam... umiem tylko tak ;/
Jak dla mnie moje rozwiazanie spelnia Twoje wymogi ;>
Link do wypowiedziLink
Monika Krawczyk

Monika Krawczyk Analyst, Getin Noble
Bank

Temat: znowu daty :(

Liczy się chęć pomocy :) to, co napisałeś podchodzi mi pod, hm programowanie (?) :)

wiem, że to spełnia moje wymogi, ale tego, co napisałeś nie potrafię przełożyć na excela :(
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Monika Krawczyk:
Liczy się chęć pomocy :) to, co napisałeś podchodzi mi pod, hm programowanie (?) :)

wiem, że to spełnia moje wymogi, ale tego, co napisałeś nie potrafię przełożyć na excela :(
Ale to wlasnie jest Excell ;>
Zerknij na to: http://vrankom.com/soft/excell/
plik Zeszyt1.xls, gotowe wszystko co wymagalas w Excellu wg. "przerostu formy nad trescia"
uruchamia sie poprzez nacisniecie przycisku ;>Fryderyk Czarnecki edytował(a) ten post dnia 21.10.08 o godzinie 22:35
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

Niestety nie miałem dostępu do netu.
Link do pliku z rozwiązaniem
http://sales1.w.interii.pl/data_ur.xls
Link do wypowiedziLink
Monika Krawczyk

Monika Krawczyk Analyst, Getin Noble
Bank

Temat: znowu daty :(

Hm, sprawdziłam, to co napisałeś.. i albo ja cały czas mylę się w obliczeniach, albo...

W tym przykładzie, co podałeś, wg mnie powinny być wypisane daty:
1978-06-01
1989-06-01
1995-06-01
2000-06-01
2006-06-01
2017-06-01
2023-06-01
2028-06-01
2034-06-01
2045-06-01
Link do wypowiedziLink

konto usunięte

Temat: znowu daty :(

a Kto ?

u mnie trzeba zmienic:
interval = 0
iYear = 0

i pokaze jak jak sugerujesz...Fryderyk Czarnecki edytował(a) ten post dnia 23.10.08 o godzinie 12:02
Link do wypowiedziLink
Janusz K.

Janusz K. Ekspert rozwoju i
przyszłości firm,
struktur, systemów
or...

Temat: znowu daty :(

Może lepiej zostaw jednak interval=1, a za to zmień licznik zakończenia pętli Do.... Loop:
Do until interval=11

Zadanie mówi o kolejnych rocznicach, bez dnia urodzin...;-))

I co to za nowa zmienna się pojawia? (iYear=0)
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

daty w Excelu




Wyślij zaproszenie do
Anuluj