首页
后端开发
VB
excel画铁路线

excel画铁路线

21 次浏览 0 条评论
rtf
rtf
使用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
rtf 文件大小：1.66KB