帮忙把窗体中复选框caption对齐

qhdqzw

请帮忙把窗体中复选框的文字对齐，我使用了字符串format函数固定字符串的长度，好像不行，请高手帮忙

前面序号都是一样长度，所以第二列是对齐的，主要是后面姓名那一栏，怎么都对不齐。

qhdqzw

自己顶一下

qhdqzw

哪位大神帮帮忙啊？

qhdqzw

顶上去，帮忙

ranger丶亦

里面有设置格式的啊，

ranger丶亦

里面有设置格式的啊

小fisher

Dim maxLen(2) As Integer
...
For i = 2 To row
    If LenB(StrConv(.Cells(i, 2), vbFromUnicode)) > maxLen((i - 2) Mod 3) Then
        maxLen((i - 2) Mod 3) = LenB(StrConv(.Cells(i, 2), vbFromUnicode))
    End If
Next

For i = 2 To row
    j = .Cells(i, 1) & "  " & .Cells(i, 2) & Space(maxLen((i - 2) Mod 3) - LenB(StrConv(.Cells(i, 2), vbFromUnicode))) & "  " & .Cells(i, 3)
...
前后代码不变，绿色是加进去的

小fisher

1. Sub loadchkbox()
   
2. Dim ChkBox As Control
   
3. Dim i As Integer
   
4. Dim row As Integer
   
5. Dim j As String
   
6. 'Dim x As Range
   
7. Dim maxLen(2) As Integer
   
8. 
   
9. 'Set x = ActiveSheet.Range("1:5").Find(DateValue(Me.录入日期.Caption), lookat:=xlWhole)
   
10. With Worksheets("sheet1")
    
11. row = .Range("A65535").End(xlUp).row
    
12. 
    
13. 
    
14. For i = 2 To row
    
15.     If LenB(StrConv(.Cells(i, 2), vbFromUnicode)) > maxLen((i - 2) Mod 3) Then
    
16.         maxLen((i - 2) Mod 3) = LenB(StrConv(.Cells(i, 2), vbFromUnicode))
    
17.     End If
    
18. Next
    
19. 
    
20. For i = 2 To row
    
21.     j = .Cells(i, 1) & "  " & .Cells(i, 2) & Space(maxLen((i - 2) Mod 3) - LenB(StrConv(.Cells(i, 2), vbFromUnicode))) & "  " & .Cells(i, 3)
    
22.     Set ChkBox = UserForm1.Controls.Add("Forms.CheckBox.1", Name:="复选框" & Str(i))
    
23. '    If i Mod 3 = 2 Then
    
24.         ChkBox.Top = 30 * Int((i - 2) \ 3)
    
25.         ChkBox.Height = 25
    
26.         ChkBox.Width = 300
    
27.         ChkBox.Caption = j
    
28.         ChkBox.Left = 5 + 215 * ((i - 2) Mod 3)
    
29. '    ElseIf i Mod 3 = 0 Then
    
30. '        ChkBox.Top = 10 * Int(i - 3)
    
31. '        ChkBox.Height = 25
    
32. '        ChkBox.Width = 300
    
33. '        ChkBox.Caption = j
    
34. '        ChkBox.Left = 220
    
35. '    Else
    
36. '        ChkBox.Top = 10 * Int(i - 4)
    
37. '        ChkBox.Height = 25
    
38. '        ChkBox.Width = 300
    
39. '        ChkBox.Caption = j
    
40. '        ChkBox.Left = 435
    
41. 
    
42. '    End If
    
43. '    k = i + 1
    
44. Next
    
45. End With
    
46. 'Set ChkBox = Nothing
    
47. End Sub
    
48. Sub loadwin()
    
49.     UserForm1.Show
    
50. End Sub

复制代码

完整的简化后的代码，注意：简化只是减少代码的行数，不等于速度上的优化