[[20260603082402]]　『任意の行高さ変更』（もうすぐ70）　ページの最後に飛ぶ

『任意の行高さ変更』（もうすぐ70）

おたずねします、が宜しくお願いします。
行を指定すれば以下のコードですが、任意の行となると?????です。
教えて下さい。
Sub 任意の行高さ()

    Rows("8").RowHeight = 25 
End Sub

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

 任意の行の指定方法は？
 どっかのセル or 
 今選択しているセルの行 or 
 それ以外の何れか

 それとも Rows()objの行の指定方法がわからないという話？

（ちくわ） 2026/06/03(水) 08:47:30

聞く前に
25を50や100とかにして1回やってみたら
（はんぺん） 2026/06/03(水) 09:23:19

ちくわさん
今選択しているセルの行の高さを変更したいのです。
（もうすぐ70） 2026/06/03(水) 09:28:54

 調べたら ActiveCellobjにRowHeightobjがあったので
 ActiveCell.RowHeight = 25

（ちくわ） 2026/06/03(水) 09:36:30

ちくわさん
できました!!、感謝します。
（もうすぐ70） 2026/06/03(水) 09:46:50

追っかけてまでいう話でもないですが、ActiveCellだと１つしかないので、複数のセルが選択されていることも想定してSelectionのほうがいいんじゃないかとおもいました。

    Sub さんぷる()
        '▼選択しているものがRangeオブジェクトか判定
        If TypeOf Selection Is Range Then
            '▼選択しているセルを含む行の高さを変更
            Selection.EntireRow.RowHeight = 25

            '↓でもOKっぽい
            'Selection.RowHeight = 25
        End If
    End Sub

（もこな２） 2026/06/03(水) 12:18:33

コメント返信：

[ 一覧(最新更新順) ]

[[20260603082402]] 『任意の行高さ変更』（もうすぐ70） ページの最後に飛ぶ

[[20260603082402]]　『任意の行高さ変更』（もうすぐ70）　ページの最後に飛ぶ