Dim mbs() As String = {"目标1","目标2","目标3","目标4","目标5","目标6","目标7","目标8"}For Each mb As String In mbs
Tables( "总分2021级目标").SetColVisibleWidth("单位|70|部别|50|年级|50|单位代码|44|目标1|50|目标2|50|目标3|50|目标4|50|目标9|50|目标10|50|目标5|50|目标6|50|目标7|50|目标8|50")
Next
因红色部分{"目标1","目标2","目标3","目标4","目标5","目标6","目标7","目标8"}列宽都是50,能否简化用“mb”代替?若能如何修改代码?请指教。谢谢!
或者:
For i As Integer = 1 To 8
"目标1","目标2","目标3","目标4","目标5","目标6","目标7","目标8" 变成 “目标” & i
[此贴子已经被作者于2021/4/7 9:42:26编辑过]