1

我有一个 Excel 表，其中 D 列中的值。我想设置与每行单元格 D 的值相关的行高。D 中的值是小百分比值，例如 0.0593 %，第一个 (D4 = 31 %) 和最后一个 (D92 = 40 %) 除外

为了获得合理高度的小值，我想将它们乘以 10'000 - 但是 409 最大高度存在问题。

我有一个脚本可以工作，直到它达到高值，所以我尝试了一个 if 公式。但坦率地说：我不知道我在这里做什么......我一起复制了它。

所以问题是：只在 D5-D91 范围内工作，如果一个值应该超过 409，给他 15px 之类的东西。

感谢您的帮助！

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim i As Long
  For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row - 1
      With Cells(i, 4)
                    If .Cells(i, 4).Value * 10000 > 409 Then
            Rows(i).RowHeight = 12
                    Else
            Rows(i).RowHeight = Cells(i, 4).Value * 10000
            End If
      End With
   Next i

End Sub
4

2 回答 2

2

将以下代码复制到任何标准模块并运行。您可能需要根据您的要求调整代码。

Sub sample()

    Dim i As Long


        For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
            If Cells(i, 4).Value * 10000 > 409 Then
                Rows(i).RowHeight = 12
            Else
                Rows(i).RowHeight = Cells(i, 4).Value * 10000
            End If
        Next

End Sub
于 2013-05-14T16:52:38.107 回答
0 
Sub sample()

    Dim i As Long


        For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
            If Cells(i, 4).Value * 100000 > 409 Then
                Rows(i).RowHeight = 20
            ElseIf Cells(i, 4).Value * 100000 < 10 Then
                Rows(i).RowHeight = 12
            Else
                Rows(i).RowHeight = Cells(i, 4).Value * 100000
            End If
        Next

End Sub
于 2013-05-14T17:23:12.627 回答