みなさまお世話になります。
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の値)にしたい。
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(エクセル)
-
エクセルの関数でわからないことあるのでコード付きで教えてください
Excel(エクセル)
-
-
4
エクセルのcountifのワイルドカードについて
Excel(エクセル)
-
5
エクセルで⑤番の操作が分かりません。どういう関数が良いんですか?
Excel(エクセル)
-
6
Excelでの頻度計算
Excel(エクセル)
-
7
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
8
勤務表について
Excel(エクセル)
-
9
エクセルのセル統合について
Excel(エクセル)
-
10
Excel 数行分セル結合したあと、結合した一番下の行を非表示にしたら、罫線が印刷されません。
Excel(エクセル)
-
11
データから単位文字を除去して計算する方法は?
Excel(エクセル)
-
12
関数を教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 sh
Excel(エクセル)
-
13
ある値に対して3番目に大きな値を、なければ2番目に大きな値、それもなければ1番大きな値を表示させたい
Excel(エクセル)
-
14
Excelで【1-11】と入力すると【1月11日】になってしまう
Excel(エクセル)
-
15
COUNTIFで同一範囲にある複数の内容の数量を簡単に抽出する方法を教えてください。
Excel(エクセル)
-
16
Excelの関数について
Excel(エクセル)
-
17
エクセル関数またはVBAについて
Excel(エクセル)
-
18
この関数の意味を教えてください。
Excel(エクセル)
-
19
アルファベット順にソートする方法を教えてださい
Excel(エクセル)
-
20
エクセルのオートフィル?ドラッグして連続ででる値が壊れている。これはなに?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
Excel グラフのプロットからデ...
-
excel 小さすぎて見えないセル...
-
エクセルで特定の文字列が入っ...
-
結合されたセルをプルダウンの...
-
エクセルで昨日までの日付デー...
-
エクセル 上下で列幅を変えるには
-
EXCELマクロを使い、空白行では...
-
サイズの違うセル 並べ変え
-
エクセル マクロで数値が変っ...
-
EXCEL 「最後のセル」のリセット
-
EXCEL VBA マクロ 別シートの...
-
別シートに空白セルを詰めデー...
-
VBAで色の付いているセルの行削除
-
完全一致したら代入するマクロ...
-
エクセル マクロ等を利用した各...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
特定の文字がある行以外を削除...
-
エクセル 上下で列幅を変えるには
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
結合されたセルをプルダウンの...
-
アクティブになっている行をマ...
-
VBAで色の付いているセルの行削除
-
セルの色によって条件文をつけ...
-
excel 小さすぎて見えないセル...
-
電話番号の入力方式が違うデー...
-
Excelでカタカナ・ひらがな・英...
-
エクセルVBA 最終行を選んで並...
-
EXCELマクロを使い、空白行では...
-
EXCELで最後の行を固定
おすすめ情報
すみません言葉足らずでした。
「マクロの作成をお願いいたします」の一文が抜けておりました。
改めてよろしくお願いいたします。