[推荐]数据透视表讲座

show755

学习

appleall

学习

kk8976

[em01]

gdqyds4713

谢谢分享

zhanxuezhao

我想要!!!

liyuanfa

<p>Sub 椭圆5_单击()<br/>&nbsp; Dim i, c, r, j As Integer</p><p>&nbsp; For i = 1 To 9<br/>&nbsp;For j = 1 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp; For c = i + 1 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For r = 1 To 10<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If cells(j, i).Value = cells(r, c).Value Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cells(j, i).ColorIndex = 3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cells(r, c).ColorIndex = 3<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit For<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next r<br/>&nbsp;&nbsp;&nbsp;&nbsp; Next c<br/>&nbsp;&nbsp;&nbsp;&nbsp; Next j<br/>Next i<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>End Sub</p><p>请教高手以上程序为什么不能运行，错出在哪里？谢谢！</p><p></p>

wjgxj

<p>正好需要呢，谢谢！</p>

xingerapple

谢谢

longku

ok&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

紫罗百合2008

好