K
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
============================
после (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
============================