[已解决]帮忙解释一下，谢谢

王永峰

我看到这个例子时，不明白为了让信息在msgbox里对齐，为啥用12减去以占的字符，
Sub test6()
          Dim x, y, sr, k
             For x = 1 To 5
               For y = 1 To 3
                 If VBA.IsNumeric(Cells(x, y)) Then '判断是否为数字
                   k = 12 - Len(Cells(x, y))
                 Else
                  k = 12 - Len(Cells(x, y)) * 2
                 End If
                  sr = sr & Cells(x, y) & Space(k)
               Next y
               sr = sr & Chr(13)
             Next x
           MsgBox sr
          End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-7-22 15:59

这说明作者要求以12位半角为一个字段排列的，字符则占用2个半角，3个字段为一行，各行对齐。

跳转到最佳答案楼层

zjdh

这说明作者要求以12位半角为一个字段排列的，字符则占用2个半角，3个字段为一行，各行对齐。