Excel VBA ver.139|表を一発で整える&行をまとめて挿入する
【珈琲のオトモのマメ知識 vol.1074】
↓ 前回の内容です
↓ 一応、こちらが順番の前回の内容です
今回は“実践”です
Row(行)
Columns(列)
Entire~(全~)
これらですかね
他にも出てきますが、
とりあえずは、これらを確認
他は、へぇ、でいいかですかね
後々、出てくるでしょうから、
今は、置いておきましょう
§『やってみよう』
では、コードですね
Sub 表整形()
Columns("A:F").AutoFit
Range("A1:F5").Borders.LineStyle = xlContinuous
With Range("A1:F1")
.Interior.Color = rgbLightGray
.HorizontalAlignment = xlCenter
End With
End Sub1.マクロ【表整形】開始
2.A~F列の列幅を文字数に合わせ自動調整
3.A1~F5に格子型の罫線、線種は細実線
4.A1~F1に以下の処理をする
(Withステートメント)
5.セルの色を薄い灰色に設定
6.セル内の文字を水平方向に中央揃えに設定
7.Wihtステートメント終了
8.マクロ終了


ちょっとは慣れたかな?
これ、自分自身に言ってます…
§『やってみよう2』
で、次のコードです
Sub 行挿入()
Dim i As Long
For i = 5 To 2 Step -1
Cells(i, 1).EntireRow.Insert _
CopyOrigin:=xlFormatFromRightOrBelow
Next
End Sub1.マクロ【行挿入】
2.長整数型の変数iを宣言
3.変数iが5から2になるまで1ずつ減算しながら、以下の処理
(Forステートメント開始)
4.i行1列目を含む行全体にセル挿入し、下の行の書式を設定
5.3.に戻る
6.マクロ終了

ん…
どんどん、ややこしくなる、、、
§『まとめ』
実践はいいけども、
完全に理解!とはなってないから、
ん…
って、なってしまう
以前から慣れだな
とは思っているが、
まだ、腑には落ちてない
あー、ってのは、
いつか来るのだろうか?
☕ 最後まで読んでくれてありがとうございますʕ •ᴥ•ʔ
「これ、どうなんだろう?」がひとつでも浮かんだら、
気軽にこちらへどうぞ、匿名OK・ひとことだけでも大丈夫です →
↓ 次回の内容です
↓ 一応、こちらが順番の次回の内容です
/ ̄ / ̄ / ̄ / ̄ / ̄ / ̄ / ̄ / ̄ / ̄ / ̄ / ̄
合同会社505
リスクマネーリテラシー
ねこのめ事務局
〒460-0003 愛知県名古屋市中区錦1-16-14
HPURL:https://www.riskma505.com/
ʕ •ᴥ•ʔ ʕ·ᴥ·ʔ <相談はお気軽に♪ byリスクマ
_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/
いいなと思ったら応援しよう!
チップ、本当にありがとうございますʕ •ᴥ•ʔ あなたの応援が、次の記事を書く一番の力になります!
これからも「むずかしいお金の話を、やさしく」お届けしていくので、よかったらまた遊びに来てください!