[[20250425191927]]　『行高さ変更』（アパッチ君）　ページの最後に飛ぶ

『行高さ変更』（アパッチ君）

教えて、行の高さ変更をしましたが手間がかかるのでコードを書いてみました。
こんな書き方が良いよ、と思われましたら教えて下さい。
Sub 行高さ()

    Rows("2").RowHeight = 30
    Rows("3").RowHeight = 32
    Rows("4:6").RowHeight = 24
    Rows("7").RowHeight = 36

    Rows("8").RowHeight = 15
    Rows("9:12").RowHeight = 25
    Rows("13:14").RowHeight = 15
    Rows("15:18").RowHeight = 25
    Rows("19").RowHeight = 38

End Sub

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

見やすさ重視なら

Sub 行高さ()

    Rows("2").RowHeight = 30
    Rows("3").RowHeight = 32
    Rows("4:6").RowHeight = 24
    Rows("7").RowHeight = 36
    Rows("8,13:14").RowHeight = 15
    Rows("9:12,15:18").RowHeight = 25
    Rows("19").RowHeight = 38
End Sub
（暇な人） 2025/04/25(金) 19:37:54

 Option Explicit
Sub OneInstanceMain()
    Dim i As Long
    Dim vA(), vB()
    vA = Array("2", "3", "4:6", "7", "8", "9:12", "13:14", "15:18", "19")
    vB = Array(30, 32, 24, 36, 15, 25, 15, 25, 38)
    If UBound(vA) = UBound(vB) Then
        For i = 0 To UBound(vA)
            Rows(vA(i)).RowHeight = vB(i)
        Next
    End If
    Erase vA, vB
End Sub

アパッチ君さんご提示のコードが悪いという意味では、決して御座いません
良いと思いまが
別案で。。。配列バージョンでえ～す。^^;
あえてシート指定はしていませんが、私でしたら致します。(￣▽￣；)
でわ
m(__)m
（隠居Z） 2025/04/25(金) 20:08:37

お二人様、見やすいコードで感心しました。
どちらも見やすいです。ありがとうございました。
（アパッチ君） 2025/04/25(金) 21:17:42

コメント返信：

[ 一覧(最新更新順) ]

[[20250425191927]] 『行高さ変更』（アパッチ君） ページの最後に飛ぶ

[[20250425191927]]　『行高さ変更』（アパッチ君）　ページの最後に飛ぶ