Voiko Excelissä määrittää CheckBoxille indeksi numeroa. Täytyisi pystyä käymään 149 valintaa loopissa läpi. Mikähän olisi järkevintä...?
Käytä For Each looppia:
'
VBA koodi:
Sub kelaaBoxit() ' ruksaa kaikki checkboxit työkirjan sivulla Dim cb As Shape For Each cb In Taul1.Shapes ' taul1 = välilehden nimi If InStr(cb.Name, "Check") > 0 Then cb.ControlFormat.Value = 1 End If Next End Sub
'
vb.net koodi esimerkki (ei excel)
https://www.ohjelmointiputka.net/koodivinkit/
Näyttää hyvältä, mutta miksihän herjaa tätä riviä:
cb.ControlFormat.Value = 1
"Object doesn't support this property or method"
onko kontrollisisi nimessä tuo "Check"?
Missä sulla ne CheckBoxit on? UserFormilla?
Siinä tapauksessa Form.Controls on varmaan oikeampi paikka katsella.
Mulla on Excelin taulukossa CheckBox1....CheckBox149 tai jotain sitä luokkaa. Pitäisi siis saada jokaisen .Value tarkastettua ja sitten lähettää siitä tietoa eteenpäin; jokaiselle Checkille oma ehtonsa...
Aihe on jo aika vanha, joten et voi enää vastata siihen.