microhyd
08.08.14,19:24
Ahojte,
Tak sa tu zrejme este par krat zjavim a pekne podakujem za navody :)
Dnes mam tento problem...
Chcem dosiahnut toto'
Vyfarbit bunku B1000 bez toho, aby na tu bunku excel cestoval.
Dovod?
Ked zadam vyfarbenie buniek A1,B100, a C555, kazdu bunky oznaci, blika to a spomaluje proces, ktory to popri tom robi.
Tak, ako vyzera toto makro ZAPIS_DO_BUNIEK(), tak isto chcem aby fungovalo aj vyfarbovanie buniek.
Ked spustim toto makro, zapise sa cislo 1 do buniek , A1:A3
Jednotky sa tam zapisu, ale excel bunky neoznacuje , len to napise, tak ako ho ziadam...
Aj ked som aktualne na bunke F99999, excel sa ani nepohne, ale ked pridem na tie bunky rucne, budu sa tam nachadzat jednicky
*******************************
Sub ZAPIS_DO_BUNIEK()
Range("A1, A2, A3") = 1
End Sub
********************************
toto makro ma bunky vymalovat
A to aj chcem, vymalovat ich , ale bez toho, aby makro oznacovalo bunky, ktore sa vyfarbuju.
*******************************
Sub VYFARBENIE_BUNKY()
Range("D10").Select
Selection.Interior.ColorIndex = 7
End Sub
*******************************
Dakujem vopred za kazdy posktynuty kod :)
Pekny vecer zelam
Tak sa tu zrejme este par krat zjavim a pekne podakujem za navody :)
Dnes mam tento problem...
Chcem dosiahnut toto'
Vyfarbit bunku B1000 bez toho, aby na tu bunku excel cestoval.
Dovod?
Ked zadam vyfarbenie buniek A1,B100, a C555, kazdu bunky oznaci, blika to a spomaluje proces, ktory to popri tom robi.
Tak, ako vyzera toto makro ZAPIS_DO_BUNIEK(), tak isto chcem aby fungovalo aj vyfarbovanie buniek.
Ked spustim toto makro, zapise sa cislo 1 do buniek , A1:A3
Jednotky sa tam zapisu, ale excel bunky neoznacuje , len to napise, tak ako ho ziadam...
Aj ked som aktualne na bunke F99999, excel sa ani nepohne, ale ked pridem na tie bunky rucne, budu sa tam nachadzat jednicky
*******************************
Sub ZAPIS_DO_BUNIEK()
Range("A1, A2, A3") = 1
End Sub
********************************
toto makro ma bunky vymalovat
A to aj chcem, vymalovat ich , ale bez toho, aby makro oznacovalo bunky, ktore sa vyfarbuju.
*******************************
Sub VYFARBENIE_BUNKY()
Range("D10").Select
Selection.Interior.ColorIndex = 7
End Sub
*******************************
Dakujem vopred za kazdy posktynuty kod :)
Pekny vecer zelam
dafy
08.08.14,21:32
tož nepoužívaj selekty. pracuj s bunkami priamo.
Range("e10").Interior.ColorIndex = 7
na začiatok makra daj
Application.ScreenUpdating = False
a pred koncom
Application.ScreenUpdating = true
Range("e10").Interior.ColorIndex = 7
na začiatok makra daj
Application.ScreenUpdating = False
a pred koncom
Application.ScreenUpdating = true
microhyd
09.08.14,08:26
!!! DIKY MOC !!! Presne toto som potreboval :)