CheckBox za svaki red posebno

Odgovori Nova tema

2 odgovora
2.624 pregleda

CheckBox za svaki red posebno 28.03.2015. u 18:53 · pre 141 mesec #1

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

primer.xls54.5k

Re: CheckBox za svaki red posebno 30.03.2015. u 12:57 · pre 141 mesec #2

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

Potpis

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

Re: CheckBox za svaki red posebno 01.04.2015. u 00:52 · pre 141 mesec #3

HVALA za checkbok, to je to :)

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

Hvala jos jednom

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme