[es] - [Excel] Greska kod ScrollArea -VBA

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
89.216.228.*

+2 Profil

^{06.12.2006. u 19:08 - pre 211 meseci}

Da bi onemogucio skrollovanje u worksheetu u VB Editoru u Properties Window pod ScrollArea upisao sam raspon u kojem zelim omogucavanje kretanja (npr $A$1:$C$20). Da bi omogucio da posle zatvaranjai ponovnog otvaranja workbooka ovo ostane upamceno dodao sam u željeni worksheet sledeci kod:

Private Sub Worksheet_Activate()
ScrollArea = "$A$1:$C$20"
End Sub

Medjutim posle ponovnog otvaranja workbooka ovo ne funkcionise. U cemu je problem? Gde je greska?

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.171.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Greska kod ScrollArea -VBA

^{06.12.2006. u 19:49 - pre 211 meseci}

Probao sam i ovo kod mene funkcioniše (nadam se da su ti omogućeni makroi). Problem je što se kod izvršava tek kada se aktivira worksheet, tj. potrebno je da pređeš na drugi worksheet pa da se vratiš na njega. Naravno, to može da se simulira kodom, ali je mnogo jednostavnije da umesto događaja Worksheet_Activate, obradiš događaj Workbook_Open (dakle na nivou radne sveske). Dakle sledeći kod:

Code:

Private Sub Workbook_Open()
Worksheets(1).ScrollArea = "$A$1:$C$20"
End Sub

Na taj način samo jednom podesiš svojstvo ScrollArea i ono traje do zatvaranje.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu