Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 4 odgovora
  • 2.684 pregleda

Najnovija ↓

excel-Zajednička naredba za više TextBox-ova-? 15.03.2010. u 01:39 · pre 202 meseca #1
Na jednoj formi imam 40-ak TextBox-ova. Svakom od njih treba dodeliti isto svojstvo. Naprimer, da primaju samo numerički unos, ili da su formatirani na neki drugi način.
Može li se, uopšte, nekako dodeliti zajedničko svojstvo jednom procedurom, za svih 40 txt, umesto što za svaki ponaosob u događaju exit ili change pišemo proceduru.
Konkretno: Ja u svih 40 događaja "Private sub txt_change" imam ograničenje samo na numerički unos:
If Not IsNumeric(txt.Value) Then txt.Value = "" - i tako 40 puta za 40 txt-a.
Može li se nekako uštedeti i vreme i prostor, pa jednom procedurom definisati svih 40 txt? Meni deluje nemoguće, ali ajde da pitam, možda neko ima sličan problem.
Hvala unapred.
Re: excel-Zajednička naredba za više TextBox-ova-? 15.03.2010. u 18:54 · pre 202 meseca #2
Slično rešenje kao što si napisao, sa tim što se obrada definiše u posebnoj podproceduri predloženo je i ovde
http://www.ozgrid.com/VBA/validate-numbers.htm

Ako to često koristiš bolje rešenje bi bilio da se kreiraš korisničku kontrolu koja će naslediti textbox i dodati potrebnu validaciju i eventualno dodatna svojstva. Takvu kontrolu možeš kreirati u dot netu i onda je prevesti kao dll, registrovati na sistemu i koristiti u VBA. Za početak pogledaj:

http://msdn.microsoft.com/en-us/library/ms229644.aspx

Moguće da takva kontrola već može da se pronađe na netu, pa pokušaj.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: excel-Zajednička naredba za više TextBox-ova-? 15.03.2010. u 23:31 · pre 202 meseca #3
Hvala na odgovoru. Prvi sajt je odličan, i primer je originalan, samo što ja nisam uspeo da ga umetnem ni u jednu proceduru UserForma-a, da bi validacija radila na sva tri textbox-a istovremeno. Probao sam da stavim cod u UserForm_click, UserForm_activate, UserForm_Inicialize, ali nema efekta. Ako stavim u privatni modul, opet nema vezu sa formom. Negde očigledno grešim !!??
Re: excel-Zajednička naredba za više TextBox-ova-? 16.03.2010. u 09:17 · pre 202 meseca
izmenjeno 1 put, poslednji put Jpeca 16.03.2010. u 22:16
  1. Jpeca16.03.2010. u 22:16zapis iz teksta poruke
#4
Ne razumem u čemu je problem. Proceduru OnlyNumbers definišeš u modulu korisničke forme. Jednostavno je upišeš npr. na kraju, iza obrade događaja. Onda svuda u događajima Textbox_Change umesto što si pozivao
Code:
If Not IsNumeric(txt.Value) Then txt.Value = "" 

pozivaš ovu proceduru OnlyNumbers.
Evo stavio sam primer u prilogu možda će biti jasnije.

16/03 22:17 Promenjen format priloga
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme