[es] - CheckBox za svaki red posebno

ivanpro
Beograd

Član broj: 186028
Poruke: 104
*.dynamic.sbb.rs.

+10 Profil

^{28.03.2015. u 17:53 - pre 110 meseci}

Pozdrav,

pravim neke tabele gde u svakom redu treba da cekiram npr. boju ako je ima ... vecio deo sam uradio osim checkbox-ova

npr.
... u D2 upisujem naziv, D3 (plava), D4 (crvena) ... itd. gde bi se u cekirana polja upisavao broj 1
... zatim sa CommandButton-om idem dalje na D3 i opet isti upis ...

kao sto rekoh, za naziv i jos neke kolone sam nasao resenje, osim za checkbox

Molim ako neko zna

Hvala

Prikačeni fajlovi

primer.xls - 54.5k

Odgovor na temu

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

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

Sajt: www.gowi.rs

+109 Profil

Re: CheckBox za svaki red posebno

^{30.03.2015. u 11:57 - pre 110 meseci}

U primeru koji si dao trebalo bi još dodatka - npr. pozicioniranje na odgovarajući red (prvi ili poslednji) prilikom učitavanja forme. Što se tiče checkboxova gledaš Value svojstvo koje je True/False i na osnovu toga upisuješ 1. Npr u događaj Change checkboxa staviš

Code:
Private Sub CheckBox1_Change()
  If CheckBox1.Value = True Then
     ActiveWorkbook.Worksheets("Sheet1").Cells(LL, 5).Value = 1
  Else
     ActiveWorkbook.Worksheets("Sheet1").Cells(LL, 5).Value = ""
  End If
End Sub

gde je LL tekući red u tvom kodu

Prilikom "punjenja maske sa vrednosima izbaranog reda" staviš

Code:
Me.CheckBox1.Value = (ActiveWorkbook.Worksheets("Sheet1").Cells(LL, 5).Value = 1)

takođe i za CheckBox2

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

Odgovor na temu

ivanpro
Beograd

Član broj: 186028
Poruke: 104
*.dynamic.sbb.rs.

+10 Profil

Re: CheckBox za svaki red posebno

^{31.03.2015. u 23:52 - pre 110 meseci}

HVALA za checkbok, to je to :)

U pravu si za pozicioniranje, pa ako si raspolozen za dodatak koda na poslednji red.

Hvala jos jednom

Odgovor na temu