代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有3070人关注过本帖树形打印复制链接主题：代码

发财

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

代码

Post By：2015/4/10 8:44:00 [显示全部帖子]

For n As Integer = 5 To 54

If ws1.cells(6+i,n-2).Formula = "" Then

ws1.cells(6+i,n-2).Value = Sheet1(n,3).Value

End If

If ws1.cells(6+i,n+48).Formula = "" Then

ws1.cells(6+i,n+48).Value = Sheet1(n,7).Value

End If

For n As Integer = 6 To 35

If ws2.cells(6+i,n-3).Formula = "" Then

ws2.cells(6+i,n-3).Value = sheet2(n,3).Value

End If

If ws2.cells(6+i,n+27).Formula = "" Then

ws2.cells(6+i,n+27).Value = sheet2(n,7).Value

End If

如何书写得简便点？

发财

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/4/10 11:03:00 [显示全部帖子]

For i As Integer = 0 To 5

Dim Ws & i As MSExcel.WorkSheet = Wb.WorkSheets(i)

这种情况应如何改才生效？

发财

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2015/4/10 11:10:00 [显示全部帖子]

For i As Integer = 0 To 5

Dim Ws & i As MSExcel.WorkSheet = Wb.WorkSheets(i)

这种情况应如何改才生效？

主题：代码