見出し画像

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 Sub

1.マクロ【表整形】開始
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 Sub

1.マクロ【行挿入】
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リスクマ
_/ _/ _/ _/ _/ _/ _/ _/ _/ _/ _/

いいなと思ったら応援しよう!

マメトモ|リスクマと学ぶお金と暮らし チップ、本当にありがとうございますʕ •ᴥ•ʔ あなたの応援が、次の記事を書く一番の力になります! これからも「むずかしいお金の話を、やさしく」お届けしていくので、よかったらまた遊びに来てください!

この記事が参加している募集