Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Text box - kako da ostane "zamrznut"

[es] :: Office :: Excel :: Text box - kako da ostane "zamrznut"

[ Pregleda: 1714 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

FIBES
Onamo namo

Član broj: 62793
Poruke: 30
213.236.92.*



Profil

icon Text box - kako da ostane "zamrznut"11.03.2011. u 15:30 - pre 159 meseci
Kako da text box ostane uvjek na ekranu, bez obzira na skrolovanje. Nadam se da ste me razumjeli :) Hvala.
 
Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
*.wimax.verat.net.

Sajt: www.gowi.rs


+109 Profil

icon Re: Text box - kako da ostane "zamrznut"13.03.2011. u 17:03 - pre 159 meseci
Standardno rešenje je da zamrzneš redove/kolone u kojima se nalazi text box. Pretpostavljam da ti takvo rešenje ne odgovara i jedino što mi pada na pamet je da se ubaci dodatni kod koji će simulirati to što tražiš

Problem je što u Excelu ne postoji reagovanje na događaj "skrolovanje". Postoji reagovanje na događaj selection_change (promena selektovane ćelije) na radnom listu i tu je moguće ubaciti odgovarajući koji će svaki put preračunati novu poziciju textboxa, tako da izgleda da je on fiksiran (pluta po radnom listu). Međutim, ovo ne rešava problem skrolovanja, tako da će se ukoliko se selekcija ne menja nego se samo skroluje textbox pomerati. http://www.eggheadcafe.com/sof...-text-box-in-excel-2k32k7.aspx

Jedno dosta zaobilazno (i neobično) rešenje kojim bi moglo nešto slično da se napravi je
1/ da se napravi forma - u mom primeru frmTest
2/ da se za tu formu stavi svojstvo modal = false
3/ da se na formu postavi text box sa odgovarajućim sadržajem
4/ Da se na radnom listu na događaju workbook_aktivate prikaže ova forma, a na događaj workbook_deactivate da se forma sakrije
Code:
Private Sub Worksheet_Activate()
' Prikazuje se forma
 frmTest.Top = Application.ActiveWindow.Top + 162   ' koordinate za pozicioniranje forme
 frmTest.Left = Application.ActiveWindow.Left + 21
 frmTest.Show
 Range("A1").Select
End Sub
Private Sub Worksheet_Deactivate()
' Sakriva se forma
  frmTest.Hide
End Sub


5/ Da se doda kod (poziv API funkcija) koji sakriva naslovnu liniju forme (title bar)


Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Office :: Excel :: Text box - kako da ostane "zamrznut"

[ Pregleda: 1714 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.