Strona: [ > ] z 1
Autor
Temat: wykonanie czynności o określonych godzinach w excelu
barylek
Typ:
neutral
Postów: 19
Zarejestrowany: Dec 2004
wykonanie czynności o określonych godzinach w excelu
Witam Vba_maniaków!!! mam pewien arkusz w którym w komórce a2 wyświetlana jest aktualna godzina, w komórkach od c1 do h1 pewne dane ściągane na bieżąco z serwera. Oraz makro:Sub WpisujWartosci()Dim b As BooleanDim s As SingleDim i As LongRange("A2".SelectDo While b = FalseDoEventsIf Range("A3".Value = "stop" Then Exit Subs = CSng(Time)Do While CSng(Time) < s + 0.00011DoEventsRange("A2".Value = Format(CStr(Now), "hh:mm:ss"If Minute(Now) = 0 And Second(Now) = 0 ThenFor i = 3 To 8Cells(Hour(Now), i).Value = Cells(1, i).ValueNext iEnd IfLoopLoopEnd Submakro to co godzina kopiuje z powyższych zakresów komórek te dane i wkleja je do odpowiednich komórek. Czynność tą wykonuje co godzine. Czy można tak zrobić aby razem z kopiowanymi danymi dopisywało w odzielnej komórce np obok godzinę wykonania tej czynnośći ( teraz mam wpisane na stałe określone godziny). Pytanie dwa jak je również przerobić aby wykonywało te czynnośći co 15 minut.Bardzo dziękuje za pomoc
13-01-2005 21:38
Reawer
Typ:
neutral
Postów: 25
Zarejestrowany: Oct 2002
Cześć!!Mam pytanie w jaki sposób w komórce a2 masz wstawianą aktualną godzinę (podaj kod) i co z komórką a3 która jest sprawdzana ?NARA
14-01-2005 08:05
barylek
Typ:
neutral
Postów: 19
Zarejestrowany: Dec 2004
Time
Proszę bardzo:Sub Czas()Dim s As LongRange("A2".Selects = CSng(Time)Do While CSng(Time) < s + 0.00011DoEventsRange("A2".Value = Format(CStr(Now), "hh:mm:ss"LoopEnd Subkomórka a3 jest pustaPozdrowienia...
[Post edytowany dnia 14-01-2005 15:48 przez barylek]
14-01-2005 15:33
losmac
"profesorek"
Typ:
neutral
Postów: 758
Zarejestrowany: May 2003
teraz = NowRange("A2".Value = Format(CStr(teraz), "hh:mm:ss"retVal = Minute(teraz) Mod 15 If retVal = 0 and Second(teraz) = 0 Then For i = 3 To 8 Cells(Hour(teraz), i).Value = Cells(1, i).Value Next i End IfLoopBędzie wykonywało co 15 minut (chyba, bo nie sprawdziłem).
[Post edytowany dnia 14-01-2005 21:26 przez losmac]_____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś
14-01-2005 21:09
barylek
Typ:
neutral
Postów: 19
Zarejestrowany: Dec 2004
Dzięki Macieju sprawdzę.Pozdrowienia dla wszystkich...
14-01-2005 21:52
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [ > ] z 1