Strona: [  << <   1   > >>  ]  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 Boolean
Dim s As Single
Dim i As Long
Range("A2".Select

Do While b = False
DoEvents
If Range("A3".Value = "stop" Then Exit Sub
s = CSng(Time)

Do While CSng(Time) < s + 0.00011
DoEvents

Range("A2".Value = Format(CStr(Now), "hh:mm:ss"

If Minute(Now) = 0 And Second(Now) = 0 Then
For i = 3 To 8
Cells(Hour(Now), i).Value = Cells(1, i).Value
Next i
End If
Loop
Loop

End Sub
makro 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
Pokaż profil barylek  Wyślij email do barylek   
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
Pokaż profil Reawer  Wyślij email do Reawer   
barylek




Typ: neutral
Postów: 19
Zarejestrowany: Dec 2004
Time

Proszę bardzo:
Sub Czas()

Dim s As Long

Range("A2".Select
s = CSng(Time)
Do While CSng(Time) < s + 0.00011
DoEvents
Range("A2".Value = Format(CStr(Now), "hh:mm:ss"
Loop

End Sub
komórka a3 jest pusta
Pozdrowienia...

[Post edytowany dnia 14-01-2005 15:48 przez barylek]

14-01-2005 15:33
Pokaż profil barylek  Wyślij email do barylek   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

teraz = Now

Range("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 If
Loop

Bę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
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
barylek




Typ: neutral
Postów: 19
Zarejestrowany: Dec 2004

Dzięki Macieju sprawdzę.
Pozdrowienia dla wszystkich...

14-01-2005 21:52
Pokaż profil barylek  Wyślij email do barylek   
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1