[求助]自定义图形问题

northwolves

另外，下面部分的代码优点太那个了：

If a3 = 1 Or a3 = 2 Or a3 = 7 Or a3 = 8 Or a3 = 12 Or a3 = 13 Or a3 = 18 Or a3 = 19 Or a3 = 23 Or a3 = 24 Or a3 = 29 Or a3 = 30 Or a3 = 34 Or a3 = 35 Or a3 = 40 Or a3 = 45 Or a3 = 46 Then
   Label15.ForeColor = vbRed
   Cells(4, 1).Font.ColorIndex = 3
   Cells(4, 1).FormulaR1C1 = Label15.Caption
ElseIf a3 = 3 Or a3 = 4 Or a3 = 9 Or a3 = 10 Or a3 = 14 Or a3 = 15 Or a3 = 20 Or a3 = 25 Or a3 = 26 Or a3 = 31 Or a3 = 36 Or a3 = 37 Or a3 = 41 Or a3 = 42 Or a3 = 47 Or a3 = 48 Then
   Label15.ForeColor = vbBlue
   Cells(4, 1).Font.ColorIndex = 5
   Cells(4, 1).FormulaR1C1 = Label15.Caption
ElseIf a3 = 5 Or a3 = 6 Or a3 = 11 Or a3 = 16 Or a3 = 17 Or a3 = 21 Or a3 = 22 Or a3 = 27 Or a3 = 28 Or a3 = 32 Or a3 = 33 Or a3 = 38 Or a3 = 39 Or a3 = 43 Or a3 = 44 Or a3 = 49 Then
   Label15.ForeColor = &HC000&
   Cells(4, 1).Font.ColorIndex = 50
   Cells(4, 1).FormulaR1C1 = Label15.Caption
   End If

northwolves

由于代码重复多次，可写成单独的过程供多次调用

peng_lis7

多谢狼头兄指点！俺刚刚接触VBA。还不大会数组方面的，因此只能蛮干。呵呵！学会了再去精简！

gaia

想你了,加我QQ可以吗?359017335