Problem sa TextBoxom

[ negative7 @ 23.02.2011. 09:41 ] @

Hocu da u range ili celiju ubacim vrijednost zapisanu u textboxu,i to sam uradio na ovaj nacin:

Code:

if (txtBox.value >0 and txtBox.value <=50) or txtBox.text="" then
   range("myrange").value=txtBox.text
Else
   MsgBox("Nedozvoljena vrijednost")
   txtBox.value=""
End if
End Sub

radi ispravno ali sa jednim problemom,ne razumijem zasto mi vise ne dopusta da u moj textbox upisem "." , tj decimalni broj,
ne mogu napisat 12.1 ili nesto slicno nego samo cijele brojeve.zasto? i kako to popraviti?
kod se nalazi u Sub-u txtBox_change()

Jos jedna stvar me interesira:
Kako mogu u c# procitat vrijednost iz kontrole u excelu(recimo textboxa)->[Okvirno samo,jel ima igdje primjera itd...]

[ neptuncokg @ 23.02.2011. 14:07 ] @

Malo je neobicno da se u dogadjaju "Change" stavlja izvrsni kod. Najcesce je to u "Exitu", ili u nekom Buttonu. Mada sam ja probao ovaj tvoj cod i on kod mene radi. Evo pogledaj primer. Pozdrav

[ negative7 @ 23.02.2011. 16:50 ] @

Pa zasto u mene ne funkcionira.....

[ neptuncokg @ 23.02.2011. 17:34 ] @

Sta ne funkcionira? Tvoj program, ili primer koji sam postavio? Radi preventive proveri da li je kod tebe celija koja se zove "myrange" formatirana kao "general" ! Pozdrav

[ negative7 @ 26.02.2011. 22:14 ] @

ma moje ne radi,a tvoj primjer radi i u mene.
Evo sazno sam zbog cega nece da radi ali ne znam zasto i kako da to ispravim.

Code:

Private Sub txtRange_Change()
If (txtRange.Value > 0 And txtRange.Value <= 50) Or txtRange.Text = "" Then
    Range("myRange").Value = txtRange.Text
Else
    MsgBox ("Nedozvoljena vrijednost!!!")
    txtRange.Value = ""
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
txtRange.Text = Range("myRange").Text     'Ovde je problem
'Kad ga komentiram onda radi.
End Sub

Imam textboxove koji se nalaze na nekim slikama,i ja hocu da kad upisem neku vrijednost u textbox da mi se automatcki prebaci u moj celiju neke tablicu tj u neki myrange,a i sto hocu da vrijedi i obrnuto tj da kad upisem vrijednost u odredjenu tablicu da mi se ta vrijednost prikaze i u textboxu.

_{[Ovu poruku je menjao negative7 dana 26.02.2011. u 23:33 GMT+1]}

[ Jpeca @ 27.02.2011. 17:47 ] @

Nisam imao problema sa tvojim primerom. Medjutim jedna napomena, koja možda ima veze. Događaj Worksheet change dešava se na promenu bilo koje ćelije na radnom listu, pa ga treba ograničiti samo na situacije koje želiš da obradiš npr.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Targe.Address = Range("myRange").Address Then ' Ako se menja myRange
txtRange.Text = Range("myRange").Text
End If
End Sub

[ negative7 @ 27.02.2011. 21:19 ] @

1.Svidja mi se ovo sto si reko za ovaj dogadjaj,ali moram posebno pisat za svaku celiju pravit "myrange".
Ako imam neki range koji obuhvaca 10 celija i ja kliknem na neku od tih celija opet nece proc If(barem ne sa = usporedbom,probo sam i sa <= pa ne ispada dobro)

2. Kako nisi imo problema,evo ja na oba pc-a i nemogu u textbox upisat decimalni broj.
Evo ajde u ovaj Book3.xlsm otvori i u textbox u onaj moj textbox upisi decimalan broj i stavi mi screenshot jer nemogu vjerovat drukcije.

[ Ivek33 @ 28.02.2011. 21:01 ] @

Citat:

negative7: Evo ajde u ovaj Book3.xlsm otvori i u textbox u onaj moj textbox upisi decimalan broj i stavi mi screenshot jer nemogu vjerovat drukcije.

Promijeni Regional Setings (umjesto zareza stavi točku)

Kako promijeniti Regional Settings u Windows XP
Kako promijeniti Regional Settings u Windows 7

[edit]: tek sada uočih da ti upisuješ u TextBox decimalni broj. Shodno tome ovaj Macro kod u tvom fajlu kod mene ne radi ali obratno pri upisu u myrange ćeliju radi. Ipak nešto nije u redu sa kodom ili nečim drugim

ZATO radi u ovom fajlu koji postavljam u attach

_{[Ovu poruku je menjao Ivek33 dana 28.02.2011. u 22:12 GMT+1]}

[ Jpeca @ 28.02.2011. 21:23 ] @

Citat:

Ako imam neki range koji obuhvaca 10 celija ...

Evo [url=mailto:http://www.elitesecurity.org/t378802-0#2470587]primera[/url] sa foruma kako da ispitaš da li je Target unutar opsega pomoću Intersect.

Za prethodno Ivek je već odgovorio. Kod mene je regionalno setovanje postavljeno da se decimale odvajaju zarezom, pa kad tako unosim nije bilo problema.

[ negative7 @ 01.03.2011. 15:06 ] @

Nazalost nije problem sa regional settings,odprije mi stoji decimalna tocka i settings kao u USA.Nazalost neigra mi nikakvu ulogu tvoj file Ivek,jer evo zasto:

Citat:

To moram da popravim. Evo kako radi:
Recimo u textbox sam upiso broj 3 a hocu(3.5).Sad sam uocio da nije da ne mogu upisat ".",nego je u biti on brzo pobrise pa izgleda kao da ne mogu.
Evo sta se desi:
Upiso sam 3 pa "." i imam 3.(u textboxu),aktivira se txt_change event i on mi sa Range("myRange").Value = txtRange.Text kopira u myrange samo 3(a ne 3.)
a istodobno onda se i aktivira worksheet_change event koji mi sa txtRange.Text = Range("myRange").Text vrati opet 3 u moj textbox.

I ne znam sta da promijenit da rijesim to.

Jos jedna stvar sa ovim textboxovima:
Kako pritiskom na chechbox mi se aktivira hide/unhide rows pa mi neki od textboxova pocnu letati.To sam rijesio sa svojstvom Top,ali eto pitam jeli i ikako moguce "prikovati" ili "zakljucati" na neku poziciji ili pak na neku sliku jer mi se svi(textboxovi) nalaze na slici.

[ negative7 @ 06.03.2011. 20:15 ] @

Problem rijesen sa Application.EventsEnable, thx zahvaljujem!!!