vba能编什么小游戏?
Sub?路缘石()
暗淡?rng?作为?范围,?rng1?作为?范围
暗淡?r%,?r1%,?我%,?j%
用什么?Sheet1
.细胞.内部.图案?=?xlNone
r?=?。单元格(Rows.Count,1).结束(3)。排
r1?=?。单元格(Rows.Count,6).结束(3)。排
为了什么?我?=?2?去哪?r1
为了什么?j?=?2?去哪?r
如果?。细胞(我,?1)?=?。细胞(j,6)?然后
如果?。细胞(我,?2)?& lt& gt?。细胞(j,7)?然后
如果?不是吗?rng?是吗?什么都没有?然后
设置?rng?=?工会(rng,?。细胞(j,7))
其他
设置?rng?=?细胞(j,7)
结束?如果
其他
如果?不是吗?rng1?是吗?什么都没有?然后
设置?rng1?=?Union(rng1,?。细胞(j,7))
其他
设置?rng1?=?细胞(j,7)
结束?如果
结束?如果
结束?如果
然后
然后
rng。内饰。颜色?=?255?红色表示只能上传一列数据。
rng1。内饰。颜色?=?12611584?蓝色表示两列数据都可以对齐。
结束?随着
结束?Sub没有实例数据,请参考本例;