Проблемка

[kaskad755]

Господа подскажите застрял...

после (Next i), возможно ли написать это одной строкой????

Text(64).BackColor = vbRed
Text(80).BackColor = vbRed
Text(96).BackColor = vbRed
Text(112).BackColor = vbRed
Text(128).BackColor = vbRed
Text(144).BackColor = vbRed
Text(160).BackColor = vbRed
Text(176).BackColor = vbRed
Text(192).BackColor = vbRed
Text(208).BackColor = vbRed
Text(224).BackColor = vbRed
Text(240).BackColor = vbRed
==========================================================


Select Case Index
Case 0 '-----------------------0------------------------------
If Check1.Value = vbChecked Then
For i = 0 To 19
For a = 48 To 51
For a1 = 32 To 35
Text(i).BackColor = vbRed
Text(a).BackColor = vbRed
Text(a1).BackColor = vbRed
Next a1
Next a
Next i
Text(64).BackColor = vbRed
Text(80).BackColor = vbRed
Text(96).BackColor = vbRed
Text(112).BackColor = vbRed
Text(128).BackColor = vbRed
Text(144).BackColor = vbRed
Text(160).BackColor = vbRed
Text(176).BackColor = vbRed
Text(192).BackColor = vbRed
Text(208).BackColor = vbRed
Text(224).BackColor = vbRed
Text(240).BackColor = vbRed
End If
============================

 

[skysun]

Не понял вопроса?

 

[kaskad755]

Не понял вопроса?

Можно ли записать это, одной строкой?
Text(64).BackColor = vbRed
Text(80).BackColor = vbRed
Text(96).BackColor = vbRed
Text(112).BackColor = vbRed
Text(128).BackColor = vbRed
Text(144).BackColor = vbRed
Text(160).BackColor = vbRed
Text(176).BackColor = vbRed
Text(192).BackColor = vbRed
Text(208).BackColor = vbRed
Text(224).BackColor = vbRed
Text(240).BackColor = vbRed

 

[XOXOJI]

Можно ли записать это, одной строкой?
Text(64).BackColor = vbRed
Text(80).BackColor = vbRed
Text(96).BackColor = vbRed
Text(112).BackColor = vbRed
Text(128).BackColor = vbRed
Text(144).BackColor = vbRed
Text(160).BackColor = vbRed
Text(176).BackColor = vbRed
Text(192).BackColor = vbRed
Text(208).BackColor = vbRed
Text(224).BackColor = vbRed
Text(240).BackColor = vbRed

да

for i=64 to 241 step 16
Text(i).BackColor = vbRed
next i

 

[kaskad755]

да

for i=64 to 241 step 16
Text(i).BackColor = vbRed
next i
[/quote



СПАСИБО ОГРОМНОЕ (вот где ошибка for i=64 to 241 + 16)
step =это шаг (теперь всё ясно)
а я пытался решить математическим путём...
ЕЩЁ РАЗ СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!