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.