文件名称：excel画铁路线
文件大小：2KB
文件格式：RTF
更新时间：2016-09-23 03:48:34
画铁路线
使用excel的行、列参数，画铁路线段Sub 铁路线() Worksheets("图示").Select Dim inta As Integer Dim inti As Integer '设置起始行 Dim intj As Integer '设置起始列 Dim intd As Integer inti = 30 '设置行号 intd = 5 'InputBox("请输入图示起始单元格列号", "", "") Do While intd < 4305 For intj = 0 To 19 Cells(inti, intd + intj).Interior.ColorIndex = 1 Next intj intd = intd + 40 Loop