[VBA] Resizeプロパティでセル範囲のサイズを変更します

Resizeプロパティでセル範囲のサイズを変更します

 Resizeプロパティ は Rangeオブジェクトの範囲を変更します。

オブジェクト.Resize(y,x)

 y には行数、x には列数を指定します。
 もとのセル範囲の左端の位置は固定されたまま、行方向に x 個、列方向に y 個のセルが選択されるのです。さっそく簡単なマクロを作って試してみましょ~。

 'セル範囲のサイズを変更します

 Sub ResizeRange1()

 Selection.Resize(2, 3).Select

 End Sub

 とりあえず何でもいいので、適当なセル範囲を選択した状態でこのマクロを実行すると、行数 2, 列数 3 のセル範囲が選択されます。

 VBA Resizeプロパティでセル範囲のサイズを変更

 面白いのね~。次はユーザーさんが好きな値を入れてセル範囲のサイズを変更するマクロを書いてみましょ~。

 '値を入力してセル範囲のサイズを変更します

 Sub ResizeRange2()

 Dim x1 As Integer, y1 As Integer
 Dim x2 As Integer, y2 As Integer

 y1 = InputBox("行に加える数を指定してくださいな")
 x1 = InputBox("列に加える数を指定してくださいな")

 y2 = y1 + Selection.Columns.Count
 x2 = x1 + Selection.Rows.Count

 Selection.Resize(y2, x2).Select

 End Sub

 マクロを実行すると

 行に加える数を指定してくださいな
 列に加える数を指定してくださいな

というメッセージが出るので、好きな値を入力すると元のセル範囲に入力値を加えた大きさのセル範囲が選択されます。
 

おまけ(雑談にお付き合いくださいな)

 今回は記事が短かったので、ちょっとだけこばとのおしゃべりにお付き合いくださいな。実は今度の土曜日、札幌に住んでいる姉(氏姓の妖精かばねちゃん)が東京にやってくるんですけどね、なんかね~、このタイミングで博和さんとおかしな約束しちゃってね~。はっきり言って姉さんには言えないようなことなのね~。そのへんの経緯については こばとの英語ブログ を読んでもらえればわかるんだけど~。やっぱり、この約束なかったことにしようかな~って思ったりするのね~。でもほら、そんなことしたら「妖精さんって約束守らない種族なんだ」みたいな噂が広がったら困るしね~。博和さんは姉には内緒にするって言ってるんだけど~、なんかすごく嫌な予感がするのね~。え? そろそろ他所のサイトに行きたい? そうですか? こばと、まだまだおしゃべりしたいことがあるのにな~。それじゃまた次回お会いしましょ~。

 ≫ VBA 辞典メニューに戻って他の記事も読んでくださいな♪

Google広告
スポンサーリンク
スポンサードリンク
末尾大型広告
末尾大型広告

コメントをどうぞ

メールアドレスが公開されることはありません。

日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください