1～複数の連続した行の高さを、各セルの値を読み取って自動で変更したいです

みなさまお世話になります。
VBAでタイトルの作業を実行したいのです。下記に条件・動作を書かせていただきます。
・A10セルあるいはA10～Axセルまで連続で行の高さを決定する数値が格納されています
・行の高さを変更したい行数xはB1に格納されています
・別途作成したボタンを押すと、B1の数値に基づきA10～Axの行を順番に行の高さを変更していく
※行の高さは「高さ」であり、ピクセルではありません
※ボタンの作成と押した際にVBAを実行されることは私でもなんとかできます。
よろしくお願いいたします。

質問者からの補足コメント

• すみません言葉足らずでした。
  「マクロの作成をお願いいたします」の一文が抜けておりました。
  改めてよろしくお願いいたします。

    補足日時：2023/12/17 12:44

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/12/18 07:31

No2です。

以下のマクロを標準モジュールに登録してください。

Public Sub 行の高さ設定()
Dim wrow As Long
For wrow = 10 To Range("B1").Value + 9
Rows(wrow).RowHeight = Cells(wrow, 1).Value
Next
End Sub

この回答へのお礼

tatsumaru77さま
お返事が遅くなりすみません
ご提示いただいたマクロで問題なく目的を達成できました
大変助かりました。ありがとうございます！

お礼日時：2023/12/19 05:56

No.2 回答者： tatsumaru77 回答日時： 2023/12/17 16:34

添付図のようになさりたいということでしょうか。

左側がマクロ実行前、右側が実行後です。
１０行から１３行（B1の値）まで、行の高さを設定したい。
１０行は１０（A1０の値）にしたい。
１１行は２０（A1１の値）にしたい。
１２行は３０．７（A1２の値）にしたい。
１３行は２４．３（A1３の値）にしたい。

この回答へのお礼

tatsumaru77さま。早速のご回答をありがとうございます。
ほぼその通りですが、一点だけ違いがあります。
B1の「13」は変更する全行数のことになります。
ご提示いただいた例の場合、B1セルには「4」が格納されます。
それ以外はご推察の通りです。
本来なら私が用意すればよい添付図まで用意してくださりありがとうございます。

お礼日時：2023/12/18 07:08

No.1 回答者： fujillin 回答日時： 2023/12/17 12:42

こんにちは

ループ処理の方法をご存じなら・・
1行分の処理を「マクロの記録」にでも取って、可変となる数値にセル値を代入できるように変更します。
あとは、それを必要行数分ループできるようにすれば良いでしょう。

ループがわからない場合は、「VBA ループ処理」あたりでググれば、解説がたくさん見つかると思います。

この回答へのお礼

お礼日時：2023/12/17 12:44