Excelのセル値に基づいて行の高さを変更するにはどうすればよいですか？

ワークシートの行の高さを変更するには、ほとんどの場合、行の高さ機能を適用して、選択した行の高さを設定します。 ただし、数値のリストがあり、次のスクリーンショットのようにセルの値に基づいて行の高さを設定したい場合、Excelでこのタスクをどのように処理できますか？

VBAコードを使用してセル値に基づいて行の高さを変更する

VBAコードを使用してセル値に基づいて行の高さを変更する

セルの値に基づいて複数の行の高さを一度に変更する直接的な方法はありませんが、次のVBAコードを使用すると、このジョブをできるだけ早く完了するのに役立ちます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：セル値に基づいて行の高さを変更します。

Sub rowheight()
'Updateby Extendoffice
    Dim hgt As Variant
    Dim WorkRng As Range
    xTxt = ActiveWindow.RangeSelection.Address
    Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
        If H.Value > 15 Then
            hgt = H.Value
            H.EntireRow.Select
            Selection.rowheight = hgt
        End If
    Next H
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、セル値によって行の高さを設定するセルを選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 そして、 OK ボタンをクリックすると、行の高さがセルの値によって次のように変更されます。

Note：上記のVBAコードでは、 H.Value> 15の場合 セル値が15より大きい場合は行の高さが変更され、セル値が15より小さい場合は、行の高さがデフォルトの高さのままになることを示します。 必要に応じて変更できます。