![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
みなさまお世話になります。
VBAでタイトルの作業を実行したいのです。下記に条件・動作を書かせていただきます。
・A10セルあるいはA10~Axセルまで連続で行の高さを決定する数値が格納されています
・行の高さを変更したい行数xはB1に格納されています
・別途作成したボタンを押すと、B1の数値に基づきA10~Axの行を順番に行の高さを変更していく
※行の高さは「高さ」であり、ピクセルではありません
※ボタンの作成と押した際にVBAを実行されることは私でもなんとかできます。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
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さま
お返事が遅くなりすみません
ご提示いただいたマクロで問題なく目的を達成できました
大変助かりました。ありがとうございます!
No.2
- 回答日時:
添付図のようになさりたいということでしょうか。
左側がマクロ実行前、右側が実行後です。
10行から13行(B1の値)まで、行の高さを設定したい。
10行は10(A10の値)にしたい。
11行は20(A11の値)にしたい。
12行は30.7(A12の値)にしたい。
13行は24.3(A13の値)にしたい。
![「1~複数の連続した行の高さを、各セルの値」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/1/543026052_657ea4620be3f/M.png)
tatsumaru77さま。早速のご回答をありがとうございます。
ほぼその通りですが、一点だけ違いがあります。
B1の「13」は変更する全行数のことになります。
ご提示いただいた例の場合、B1セルには「4」が格納されます。
それ以外はご推察の通りです。
本来なら私が用意すればよい添付図まで用意してくださりありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) 【関数orVBA】カーソルのある行を黄色にし、A列の値を別シートに表示できますか? 4 2021/12/28 00:03
- Excel(エクセル) 空白行も含めてソートしたい 3 2022/02/01 23:13
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) excel 列1000 行30の中から、重複する言葉を抽出し、重複数を数える方法 13 2022/02/05 10:57
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- 相続・贈与 名義変更について 1 2021/12/27 17:42
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2022/10/12 12:55
- Visual Basic(VBA) エクセルのマクロを教えてください 4 2022/02/04 08:05
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelで文字合成
Excel(エクセル)
-
エクセルの行を巾を変えずに増やす方法
Excel(エクセル)
-
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
-
4
エクセルの関数でわからないことあるのでコード付きで教えてください
Excel(エクセル)
-
5
エクセルで⑤番の操作が分かりません。どういう関数が良いんですか?
Excel(エクセル)
-
6
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
7
勤務表について
Excel(エクセル)
-
8
Excelでの頻度計算
Excel(エクセル)
-
9
エクセルのセル統合について
Excel(エクセル)
-
10
Excelで【1-11】と入力すると【1月11日】になってしまう
Excel(エクセル)
-
11
エクセル関数またはVBAについて
Excel(エクセル)
-
12
Excelの関数について
Excel(エクセル)
-
13
アルファベット順にソートする方法を教えてださい
Excel(エクセル)
-
14
COUNTIFで同一範囲にある複数の内容の数量を簡単に抽出する方法を教えてください。
Excel(エクセル)
-
15
エクセルのオートフィル?ドラッグして連続ででる値が壊れている。これはなに?
Excel(エクセル)
-
16
Excel関数かなにかでスムーズに処理するにはあなたならどうしますか?
Excel(エクセル)
-
17
Excel関数について
Excel(エクセル)
-
18
この関数の意味を教えてください。
Excel(エクセル)
-
19
Excelの関数で起きた現象の原因がわかりません。
Excel(エクセル)
-
20
複数エクセルファイルの合成
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで色の付いているセルの行削除
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルで特定の文字列が入っ...
-
エクセル2016で時間を入力して...
-
特定の文字がある行以外を削除...
-
セルの色によって条件文をつけ...
-
AのセルとB行を比較して、一致...
-
excelのデータで色つき行の抽出...
-
Excel2007で、指定範囲の行高さ...
-
エクセル マクロで数値が変っ...
-
エクセルVBA 最終行を選んで並...
-
excel 小さすぎて見えないセル...
-
【Excel関数】UNIQUE関数で"0"...
-
結合されたセルをプルダウンの...
-
エクセル 上下で列幅を変えるには
-
excel 同じ番号のデーターを横...
-
EXCEL 「最後のセル」のリセット
-
電話番号の入力方式が違うデー...
-
エクセルマクロで偶数行(又は...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル マクロ オートフィ...
-
エクセルで特定の文字列が入っ...
-
[EXCEL]ボタン押す→時刻が表に...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
AのセルとB行を比較して、一致...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
エクセル 上下で列幅を変えるには
-
VBAで色の付いているセルの行削除
-
excel 小さすぎて見えないセル...
-
A1に入力された文字列と同じ文...
-
罫線の斜線を自動で引くマクロ
-
アクティブになっている行をマ...
-
エクセル2016で時間を入力して...
-
EXCELマクロを使い、空白行では...
-
エクセルマクロで偶数行(又は...
-
セルの色によって条件文をつけ...
おすすめ情報
すみません言葉足らずでした。
「マクロの作成をお願いいたします」の一文が抜けておりました。
改めてよろしくお願いいたします。