简化语句

ke3088

原语句如下：
          myText = Documents(2).Tables(1).Cell(1, 6).Range
          If myText <= 10 Then
             With Selection.ParagraphFormat
                 .LineSpacingRule = wdLineSpaceExactly '指定段落的行距
                 .LineSpacing = 27.2 '行距固定值
             End With
          Else
          If myText <= 12 Then
             With Selection.ParagraphFormat
                 .LineSpacingRule = wdLineSpaceExactly '指定段落的行距
                 .LineSpacing = 27.15 '行距固定值
             End With
          Else
          If myText <= 14 Then
             With Selection.ParagraphFormat
                 .LineSpacingRule = wdLineSpaceExactly '指定段落的行距
                 .LineSpacing = 27.1 '行距固定值
             End With
          Else
          If myText <= 16 Then
             With Selection.ParagraphFormat
                 .LineSpacingRule = wdLineSpaceExactly '指定段落的行距
                 .LineSpacing = 27.2 '行距固定值
             End With
          Else
          If myText <= 18 Then
             With Selection.ParagraphFormat
                 .LineSpacingRule = wdLineSpaceExactly '指定段落的行距
                 .LineSpacing = 27.35 '行距固定值
             End With
          Else
             With Selection.ParagraphFormat
                 .LineSpacingRule = wdLineSpaceExactly '指定段落的行距
                 .LineSpacing = 27.35 '行距固定值
             End With
          End If
          End If
          End If
          End If
          End If
我尝试用数组解决，但失败了：
    Dim CX, DX, EX()
    CX = "12345"
    DX = Array("<=10", "<=12", "<=14", "<=16", "<=18", ">=19")
    EX = Array("27.2", "27.15", "27.1", "27.2", "27.35", "27.35")
    MM = 17
    NN = DX(InStr(CX, Mid(MM, 1, 2)) - 1)
    LL = EX(InStr(CX, Mid(NN, 1, 4)) - 1)
    MsgBox NN
    MsgBox LL

loquat

1. Dim i&, space!
   
2. myText = Documents(2).Tables(1).Cell(1, 6).Range
   
3. DX = Array("10", "12", "14", "16")
   
4. EX = Array("27.2", "27.15", "27.1", "27.2")
   
5. With Selection.ParagraphFormat
   
6.     .LineSpacingRule = wdLineSpaceExactly    '指定段落的行距
   
7.     If myText > 16 Then
   
8.         .LineSpacing = 27.35
   
9.     Else
   
10.         For i = 0 To UBound(DX)
    
11.             If myText <= DX(i) Then
    
12.                 space = EX(i)
    
13.             End If
    
14.         Next i
    
15.         .LineSpacing = space
    
16.     End If
    
17. End With

复制代码

ke3088

loquat 发表于 2017-2-14 17:08

谢谢，loquat。测试后，不行。
一旦myText<16，取值都是Array("27.2", "27.15", "27.1", "27.2")的第四项，用中断方式运行，DX(i)和EX(i)显示：下标越界。
麻烦再帮看看，谢谢。

ke3088

测试后，不行，如myText<16，取值都是 Array("27.2", "27.15", "27.1", "27.2")的第四项，中断方式运行，DX(i)和EX(i)显示：下标越界

ke3088

经测试，不行。一旦myText是小于16以下的数字，取值都是 Array("27.2", "27.15", "27.1", "27.2")的第四项，中断运行方式，DX(i)和EX(i)显示：下标越界。
再帮帮忙，谢谢

loquat

上述代码有两处错误
1.抄了你的数组定义，没有改为数字
  修改办法，将数组改为纯数字，或者CLng强制转换
2.循环内，匹配到结果后可以退出循环，提高效率

再参考吧

1. Dim i&
   
2. myText = Documents(2).Tables(1).Cell(1, 6).Range
   
3. DX = Array(10, 12, 14, 16)
   
4. EX = Array(27.2, 27.15, 27.1, 27.2)
   
5. With Selection.ParagraphFormat
   
6.     .LineSpacingRule = wdLineSpaceExactly    '指定段落的行距
   
7.     If myText > 16 Then
   
8.         .LineSpacing = 27.35
   
9.     Else
   
10.         For i = 0 To UBound(DX)
    
11.             If myText <= DX(i) Then Exit For
    
12.         Next i
    
13.         .LineSpacing = EX(i)
    
14.     End If
    
15. End With

复制代码

ke3088

loquat 发表于 2017-2-15 21:43
上述代码有两处错误
1.抄了你的数组定义，没有改为数字
  修改办法，将数组改为纯数字，或者CLng强制转换 ...

谢谢，已成