エクセルでの資料作成を自動化（写真の貼り付け・テキスト転記・印刷マクロの導入）

豆父ちゃん

エクセルを使った資料作成を自動化したい！もっと作業効率を上げたい！

こんな要望にお応えします。

結論から言うと、写真貼り付けマクロ、転記マクロ、印刷マクロを組み合わせて自動化する！ということです。

この記事で紹介する資料作成とは、エクセルに写真データを添付して作成する資料作りのことをいいます。写真を貼り付けて資料を作成する際、写真の大きさや位置を調整したり写真の名前を記入したりしなければなりません。ほかにも氏名や日時の編集が必要になることがほとんどです。

必要事項の編集と写真の貼り付け両方の処理が必要になると時間がかかるしミスの発生も多くなります。

そんな手間と時間のかかる写真の貼り付けが必要な資料作成を自動化するマクロをご紹介します。

1. 写真付き資料の作成を自動化するマクロとは
2. 写真を貼り付けるマクロ
3. シートからシートにテキストを転記するマクロ
4. 印刷マクロ
5. VBA初心者が効率化マクロを導入する方法

写真付き資料の作成を自動化するマクロとは

シートからシートへ情報を転記するマクロ、指定するフォルダ内の写真データを貼り付けるマクロ、印刷プレビューを自動で表示するマクロを組み合わせたものです。

資料作成自動化マクロの使い方

1.設定シートの必要事項を全て入力する

2.ユーザーフォームに設定シートのＡ列の番号を入力し、実行ボタンをクリック

使い方はたったこれだけです。設定シートに入力した各項目が反映され、指定したフォルダ内の写真が貼り付けられました。このマクロを使えば、誰でも簡単に写真が添付された資料を作れるようになります。

資料作成の自動化マクロのサンプル

1	Sub 写真付資料作成マクロ()
2	"Sheetの設定""
3	Dim Ash As Worksheet
4	Dim Bsh As Worksheet
5	Set Ash = ThisWorkbook.Worksheets(“設定")
6	Set Bsh = ThisWorkbook.Worksheets(“資料")
7	On Error Resume Next
8	"’ユーザーフォームで入力した値を変数iで取得"""
9	i = UserForm2.TextBox1.Value
10	"’一覧表から資料へテキストを転記する""
11	Bsh.Cells(11, 6).ClearContents
12	Bsh.Range(Bsh.Cells(12, 6), Bsh.Cells(12, 12)).ClearContents
13	Bsh.Cells(13, 6).ClearContents
14	Bsh.Cells(14, 6).ClearContents
15	Bsh.Cells(6, 36).ClearContents
16	Bsh.Cells(7, 36).ClearContents
17	Bsh.Cells(8, 36).ClearContents
18	Bsh.Cells(9, 36).ClearContents
19	Bsh.Cells(10, 36).ClearContents
20	G = Bsh.Cells(Rows.Count, 23).End(xlUp).Row
21	For k = 1 To G
22	Bsh.Cells(k, 23).ClearContents
23	Next k
24	""’件名を転記""’
25	Bsh.Cells(11, 6) = Ash.Cells(i + 2, 2)
26	Bsh.Cells(11, 6).HorizontalAlignment = xlLeft
27	""’日時を転記""’
28	Bsh.Range(Bsh.Cells(12, 6), Bsh.Cells(12, 12)).Merge
29	Bsh.Range(Bsh.Cells(12, 6), Bsh.Cells(12, 12)) = Ash.Cells(i + 2, 3)
30	Bsh.Range(Bsh.Cells(12, 6), Bsh.Cells(12, 12)).HorizontalAlignment = xlLeft
31	Bsh.Range(Bsh.Cells(12, 6), Bsh.Cells(12, 12)).NumberFormatLocal = “[$-ja-JP]ggge""年""m""月""d""日"""
32	""’担当者を転記""’
33	Bsh.Cells(13, 6) = Ash.Cells(i + 2, 4)
34	Bsh.Cells(13, 6).HorizontalAlignment = xlLeft
35	""’記事を転記""’
36	Bsh.Cells(14, 6) = Ash.Cells(i + 2, 5)
37	Bsh.Cells(14, 6).HorizontalAlignment = xlLeft
38	""’住所1を転記""’
39	Bsh.Cells(6, 36) = Ash.Cells(i + 2, 6)
40	Bsh.Cells(6, 36).HorizontalAlignment = xlRight
41	""’住所2を転記""’
42	Bsh.Cells(7, 36) = Ash.Cells(i + 2, 7)
43	Bsh.Cells(7, 36).HorizontalAlignment = xlRight
44	""’所属を転記""’
45	Bsh.Cells(8, 36) = Ash.Cells(i + 2, 8)
46	Bsh.Cells(8, 36).HorizontalAlignment = xlRight
47	""’電話1を転記""’
48	Bsh.Cells(9, 36) = Ash.Cells(i + 2, 9)
49	Bsh.Cells(9, 36).HorizontalAlignment = xlRight
50	Bsh.Cells(9, 36).NumberFormatLocal = “@"
51	""’電話2を転記""’
52	Bsh.Cells(10, 36) = Ash.Cells(i + 2, 10)
53	Bsh.Cells(10, 36).HorizontalAlignment = xlRight
54	Bsh.Cells(10, 36).NumberFormatLocal = “@"
55	Const cnsTitle = “ファイル名一覧取得"
56	Const cnsDIR = “\."
57	Dim xlAPP As Application
58	Dim strPath As String
59	StriDim strFilename As ng
60	Dim zukei As Shape
61	Dim myFileName As String
62	Dim syasin As String
63	Dim Path As String
64	For Each sa In Bsh.Shapes
65	On Error Resume Next
66	If sa.TopLeftCell.Address >= Bsh.Cells(1, 1).Address Then
67	sa.Delete
68	End If
69	If Err <> 0 Then
70	Err.Clear
71	End If
72	Next
73	'張り付ける写真のフォルダを取得
74	strPath = Ash.Cells(i + 2, 11)
75	' フォルダの存在確認 — 必要な場合のみ記述 —
76	If Dir(strPath, vbDirectory) = “" Then
77	MsgBox “指定のフォルダは存在しません。", vbExclamation, cnsTitle
78	Exit Sub
79	End If
80	' 先頭のファイル名の取得
81	strFilename = Dir(strPath & cnsDIR, vbNormal)
82	' ファイルが見つからなくなるまで繰り返す
83	Do While strFilename <> “"
84	' 行を加算
85	GYO = GYO + 18
86	Bsh.Cells(GYO + 3, 23).Value = strFilename
87	' 次のファイル名を取得
88	strFilename = Dir()
89	Loop
90	For j = 21 To G Step 18
91	Bsh.Range(Bsh.Cells(j, 4), Bsh.Cells(j + 13, 19)).Select
92	Dim tate As Single
93	Dim yoko As Single
94	Dim Top As Single
95	Dim Left As Single
96	tate = Selection.Height
97	yoko = Selection.Width
98	Top = ActiveCell.Top
99	Left = ActiveCell.Left
100	syasin = strPath & “\" & Bsh.Cells(j, 23).Value
101	Set GetPic = Bsh.Shapes.AddPicture(syasin, False, True, Left, Top, -1, -1)
102	GetPic.Width = GetPic.Width * (tate / GetPic.Height)
103	GetPic.Height = tate
104	GetPic.Left = Left
105	Next j
106	Go = Bsh.Cells(Rows.Count, 23).End(xlUp).Row
107	PeNu = Application.WorksheetFunction.RoundUp(Go / 54, 0)
108	Bsh.PageSetup.PrintArea = Bsh.Range(Bsh.Cells(1, 1), Bsh.Cells((54 * PeNu), 37)).Address
109	Bsh.PrintPreview
110	End Sub

資料作成自動化マクロの導入で得られる効果

この資料作成自動化マクロは私の職場に導入しています。このマクロ導入後、次のような効果を得ることができました。

エクセル操作が苦手な方も作業できるようになった
資料の出来上がりがキレイになり、仕上がりが統一された
編集ミスが激減した
過去の資料を簡単に検索できるようになった
作業スピードが上がり、仕事に余裕ができた

いろんなメリットがありますが、私にとっての1番のメリットは資料作成業務のストレスが減ったことです。

マクロ導入前は作業スピードや出来栄えに個人差がありましたが、マクロ導入後は誰でも簡単に同じ出来栄えの資料を作成できるようになりました。

写真を貼り付けるマクロ

指定するフォルダ内にある写真データをエクセルに貼り付けるマクロです。

指定するフォルダ内の写真を自動で貼り付けるマクロがどのような処理をするか！を動画で説明しています。マクロがいかに便利なツールであるのかをわかっていただけると思います。是非参考にしてみてください。

写真を貼り付けるマクロの使い方

1.設定シートで写真が保存されているフォルダ場所を入力する

2.写真シートでマクロを実行する

たったこれだけで写真を貼り付けるマクロを使用することができます。

写真を貼り付けるマクロのサンプル

1	Sub 写真挿入横()
2	Dim Ash As Worksheet
3	Set Ash = Sheets(“設定")
4	Dim Csh As Worksheet
5	Set Csh = Sheets(“写真(横)")
6	Const cnsTitle = “ファイル名一覧取得"
7	Const cnsDIR = “\."
8	Dim xlAPP As Application
9	Dim strPath As String
10	Dim strFilename As String
11	Dim GYO As Long
12	Dim zukei As Shape
13	Dim myFileName As String
14	Dim syasin As String
15	Dim Path As String
16	rm = Csh.Cells(Rows.Count, 25).End(xlUp).Row
17	For Each sa In Csh.Shapes
18	On Error Resume Next
19	If sa.TopLeftCell.Address >= Csh.Cells(1, 1).Address Then
20	sa.Delete
21	End If
22	If Err <> 0 Then
23	Err.Clear
24	End If
25	Next
26	For i = 3 To rm Step 21
27	Csh.Range(Csh.Cells(i, 25), Csh.Cells(i + 2, 38)).ClearContents
28	Next
29	Set xlAPP = Application
30	strPath = Ash.Cells(3, 1)
31	If Dir(strPath, vbDirectory) = “" Then
32	MsgBox “指定のフォルダは存在しません。", vbExclamation, cnsTitle
33	Exit Sub
34	End If
35	strFilename = Dir(strPath & cnsDIR, vbNormal)
36	Do While strFilename <> “"
37	GYO = GYO + 21
38	Csh.Cells(GYO – 18, 25).Value = strFilename
39	strFilename = Dir()
40	Loop
41	For i = 1 To rm Step 21
42	Csh.Cells(i + 2, 2).Select
43	syasin = Ash.Cells(3, 1) & “\" & Csh.Cells(i + 2, 25).Value
44	Csh.Pictures.Insert syasin
45	Csh.Pictures.Top = Range(Csh.Cells(i + 2, 2), Csh.Cells(i + 20, 23)).Top
46	Csh.Pictures.Left = Range(Csh.Cells(i + 2, 2), Csh.Cells(i + 20, 23)).Left
47	Csh.Pictures.Height = Range(Csh.Cells(i + 2, 2), Csh.Cells(i + 20, 23)).Height
48	Next i
49	End Sub

写真を貼り付けるマクロの導入にるよる効果

写真を貼り付けるマクロを導入することでいろんな効果を得ることができます。

複数の写真をまとめて貼り付けることができる
貼り付けた写真の大きさ、場所を自動で調整できる
貼り付け写真の名前を自動で記載できる

下記の記事で、写真の貼り付けマクロを詳しく紹介しています。

mamemametochan.com

エクセルで写真の貼り付けを自動化するマクロ【すぐに使えるサンプル付】　

🕒️2025年8月7日

写真編集作業にめちゃくちゃ時間がかかる。。。シートに大量の写真をまとめて貼り付けたい！こんな問題は『写真を貼り付けるマクロ』で解決できます。この記事で紹介している写真を貼り付けるマクロの概要がこちら ①いつも通り写真をフォルダに保存↓②フォルダの保存場所を記入↓③実行ボタンを押下たったの3ステップで大量の写真をまとめてエクセルに貼り付けることが可能となります。今まで1時間以上かかっていたのに数分で処理できるようになった大きさ、配置が自動的に調整される...

記事では、写真を貼り付けるマクロの設定の方法やSheetの様式設定など詳しく説明しています。エクセルに写真を貼り付ける作業が多い方におすすめのマクロです。下記のサイトでは写真の貼り付けマクロが設定されたエクセルファイルをダウンロードすることができます。

写真を貼り付けるマクロのダウンロードはこちら

すぐにでも写真を貼り付けるマクロを使ってみたい！という方は参考にしてみてください。

シートからシートにテキストを転記するマクロ

シート名を取得するVBAを使って、シートからシートに情報を反映させる！というマクロです。

シートからシートへテキストを転記するマクロがどのような処理をするか！を動画で説明しています。テキストの転記マクロは仕事で最も使われるマクロです。1種類の書類に対してエクセルファイルをコピペしてどんどん増えてしまう！というやり方をカイゼンすることができます。

転記マクロの使い方

1.設定シートで必要事項を全て入力

2.ユーザーフォームに設定シートのＡ列の番号を入力し、実行ボタンをクリック

使い方はたったこれだけです。設定シートに入力した各項目が該当する場所に自動的に反映されます。このマクロを使えば、様式の決められた書類作成業務の効率をアップさせることができます。

転記マクロのサンプル

1	Sub 工事契約書転記()
2	""Sheetの設定""""
3	Dim Ash As Worksheet
4	Dim Bsh As Worksheet
5	Set Ash = ThisWorkbook.Worksheets(“一覧表")
6	Set Bsh = ThisWorkbook.Worksheets(“工事契約書")
7	"’ユーザーフォームで入力した値を変数iで取得"""
8	i = UserForm1.TextBox1.Value
9	"’一覧表から工事契約書へ値を転記する"""
10	""’工事名を転記""’
11	Bsh.Range(“H6") = Ash.Cells(i + 2, 2)
12	Bsh.Range(“H6").HorizontalAlignment = xlLeft
13	""’工事場所を転記""’
14	Bsh.Range(“H8") = Ash.Cells(i + 2, 3)
15	Bsh.Range(“H8").HorizontalAlignment = xlLeft
16	""’工期(着手)を転記""’
17	Bsh.Range(“H10") = Ash.Cells(i + 2, 4)
18	Bsh.Range(“H10").HorizontalAlignment = xlCenter
19	Bsh.Range(“H10").NumberFormatLocal = “ggge年m月d日"
20	""’工期(竣功)を転記""’
21	Bsh.Range(“P10") = Ash.Cells(i + 2, 5)
22	Bsh.Range(“P10").HorizontalAlignment = xlCenter
23	Bsh.Range(“P10").NumberFormatLocal = “ggge年m月d日"
24	""’請負金額を転記""’
25	Bsh.Range(“L12") = Ash.Cells(i + 2, 6)
26	Bsh.Range(“L12").HorizontalAlignment = xlCenter
27	Bsh.Range(“L12").NumberFormatLocal = “#,###"
28	""’消費税を転記""’
29	Bsh.Range(“R14") = Bsh.Range(“L12").Value * 0.1
30	Bsh.Range(“R14").HorizontalAlignment = xlCenter
31	Bsh.Range(“R14").NumberFormatLocal = “#,###"
32	""’発注者住所を転記""’
33	Bsh.Range(“J33") = Ash.Cells(i + 2, 8)
34	Bsh.Range(“J33").HorizontalAlignment = xlLeft
35	""’発注者氏名を転記""’
36	Bsh.Range(“J35") = Ash.Cells(i + 2, 7)
37	Bsh.Range(“J35").IndentLevel = 2
38	""’受注者住所を転記""’
39	Bsh.Range(“J37") = Ash.Cells(i + 2, 10)
40	Bsh.Range(“J37").HorizontalAlignment = xlLeft
41	""’受注者氏名を転記""’
42	Bsh.Range(“J39") = Ash.Cells(i + 2, 9)
43	Bsh.Range(“J39").IndentLevel = 2
44	End Sub

転記マクロ導入による効果

転記マクロは、様式の決められた書類作成業務で効果が発揮されます。

編集ミスを軽減できる
過去の情報を参考にできる
誰が資料を作成しても同じ仕上がりにできる

転記マクロを導入することで上記のような効果を得ることができます。

下記のサイトでは、転記マクロが設定されたエクセルファイルをダウンロードしてお使いいただけます。転記マクロを使ってエクセル作業の効率を今すぐにでもアップさせたいという方におすすめです。

転記マクロが設定されたエクセルファイルのダウンロードはこちら

印刷マクロ

印刷設定を自動的に行うマクロです。

連続で書類を印刷するマクロがどのような処理をするか！を動画で説明しています。転記マクロでテキストを編集→印刷、再度転記マクロでテキストを編集→印刷を繰り返す！という内容です。連続印刷マクロについては下記の記事で詳しく紹介しています。

mamemametochan.com

連続印刷するマクロの作り方【内容が異なる書類をまとめて印刷可能】

🕒️2022年9月11日

疑問がある人決められた様式の書類で氏名や住所を入力して印刷、次に氏名や住所を変更して印刷、こんな作業を自動化したい！こんな要望にお応えします。結論からいうと、転記マクロと印刷マクロを組み合わせた連続印刷マクロを導入するです。「連続印刷」と聞くと、〇ページを〇部印刷する処理をマクロを使って処理すると思われるかと思います。しかし、この記事で紹介する連続印刷マクロは、「書類の内容を編集して印刷する」行為を繰り返し行う処理のことを言います。イメージはこんな感じこの...

連続印刷マクロの使い方

使い方は、上記で紹介した転記マクロの使い方とほとんど一緒ですが、マクロを実行した後の結果が異なります。

実行すると、入力した番号に該当する書類の印刷まで行います。

この連続印刷マクロは、様式の決められた書類をまとめて印刷したい！というときに便利です。

連続印刷マクロのサンプル

1	Sub 工事契約書転記()
2	"’Sheetの設定"’
3	Dim Ash As Worksheet
4	Dim Bsh As Worksheet
5	Set Ash = ThisWorkbook.Worksheets(“一覧表")
6	Set Bsh = ThisWorkbook.Worksheets(“工事契約書")
7	"’ユーザーフォームで入力した値を変数jで取得 "’
8	For j = 1 To 5
9	If UserForm1(“TextBox" & j).Value <> “" Then
10	i = UserForm1(“TextBox" & j).Value
11	"’一覧表から工事契約書へ値を転記する"’
12	""’工事名を転記"’
13	Bsh.Range(“H6") = Ash.Cells(i + 2, 2)
14	Bsh.Range(“H6").HorizontalAlignment = xlLeft
15	"’工事場所を転記"’
16	Bsh.Range(“H8") = Ash.Cells(i + 2, 3)
17	Bsh.Range(“H8").HorizontalAlignment = xlLeft
18	"’工期(着手)を転記"’
19	Bsh.Range(“H10") = Ash.Cells(i + 2, 4)
20	Bsh.Range(“H10").HorizontalAlignment = xlCenter
21	Bsh.Range(“H10").NumberFormatLocal = “ggge年m月d日"
22	"’工期(竣功)を転記"’
23	Bsh.Range(“P10") = Ash.Cells(i + 2, 5)
24	Bsh.Range(“P10").HorizontalAlignment = xlCenter
25	Bsh.Range(“P10").NumberFormatLocal = “ggge年m月d日"
26	"’請負金額を転記"’
27	Bsh.Range(“L12") = Ash.Cells(i + 2, 6)
28	Bsh.Range(“L12").HorizontalAlignment = xlCenter
29	Bsh.Range(“L12").NumberFormatLocal = “#,###"
30	"’消費税を転記"’
31	Bsh.Range(“R14") = Bsh.Range(“L12").Value * 0.1
32	Bsh.Range(“R14").HorizontalAlignment = xlCenter
33	Bsh.Range(“R14").NumberFormatLocal = “#,###"
34	"’発注者住所を転記"’
35	Bsh.Range(“J33") = Ash.Cells(i + 2, 8)
36	Bsh.Range(“J33").HorizontalAlignment = xlLeft
37	"’発注者氏名を転記"’
38	Bsh.Range(“J35") = Ash.Cells(i + 2, 7)
39	Bsh.Range(“J35").IndentLevel = 2
40	"’受注者住所を転記"’
41	Bsh.Range(“J37") = Ash.Cells(i + 2, 10)
42	Bsh.Range(“J37").HorizontalAlignment = xlLeft
43	"’受注者氏名を転記"’
44	Bsh.Range(“J39") = Ash.Cells(i + 2, 9)
45	Bsh.Range(“J39").IndentLevel = 2
46	ActiveSheet.PageSetup.PrintArea = (“A1:X39")
47	ActiveSheet.PrintOut
48	Else
49	End If
50	Next
51	End Sub

連続印刷マクロの導入による効果

連続印刷マクロはあらゆるエクセル作業に応用することができます。印刷マクロを設定することで作業効率がアップします。私の職場ではあらゆるエクセルファイルに印刷マクロを設定しています。

請求書・領収書作成用のエクセルファイル
工事書類作成用のエクセルファイル
申請書類作成用のエクセルファイル

時代遅れではありますが、私の職場は、紙で印刷した書類で上司の承認をもらって押印してもらうルールになっています。そのためエクセルで作成したほとんどの資料を印刷しなければなりません。印刷マクロを設定することで、印刷にかかる作業時間をカットすることができるので職場ではかなり好評のマクロになっています。

VBA初心者が効率化マクロを導入する方法

VBAなんて扱ったことないけどエクセル作業を自動化するマクロを導入したい！

このような問題を抱えながら日々のエクセル業務をこなしている方がおおくいらっしゃるのではないでしょうか。

こんな問題を解決する方法がこちら

マクロの開発を外注に依頼する
マクロが設定されたエクセルファイルをダウンロードする
参考書やネットでVBAスキルを身に付ける

VBAの勉強を始める前は上記の方法で効率化マクロを導入していました。

完成されたマクロを使ってエクセル業務を処理する

↓

作業効率が２倍以上アップ！！

↓

便利すぎて自分でもマクロを設定したいと考え始める

↓

参考書やネットの情報でVBAスキルを身に付ける

↓

マクロ開発を代行できる程のスキルを習得

VBAは

他のプログラミングに比べて参考書やネットで紹介されている情報量が多いので初心者でも導入しやすい

という特徴があります。

毎日のルーティーン作業にうんざりしている、だれでもできる単純作業に時間を費やしている、という方はあなたに合った方法でVBAを導入しちゃいましょう。

マクロの開発を外注に依頼する

マクロの開発を外注に依頼する導入方法は

VBAを全く扱えない方でもエクセル作業を自動化できる最も簡単な方法

です。

「こんなエクセル作業を自動化したい」「作った資料を自動的にPDFで保存したい」「決まった様式に写真を自動で貼り付けたい」

こんな感じで実現したい内容を依頼するだけで業務内容に合ったマクロを開発してくれます。

ガッツポーズの人

完成まで本業に集中できるので効率的

デメリットは、費用がかかることだけ。

開発内容、依頼先によってかかる費用は大きく異なります。

私が会社員の頃利用していた業者さんは１マクロあたり2万円～3万円の費用がかかりました。

疑問がある人

ちょっと高くない。。。

ちなみに、マメBlogでもエクセルマクロ開発代行サービスを承っています。

開発内容の確認、VBAコードの設定、動作確認後の調整、など全ての工程を私（マメ父ちゃん）が行っているので、

費用が安い！スピード納期！！

でやらせてもらっています。

ほとんど独学で身に付けたVBAスキルなので、内容によっては開発できないこともあるのでご了承ください。

ご相談、見積もり依頼は完全無料ですので気になる方は下記のリンクよりお問合せ下さい。

マメBlogのエクセルマクロ開発代行サービスはこちら

マクロが設定されたエクセルファイルをダウンロードする

VBA初心者でも『マクロが設定されたエクセルファイルをダウンロード』ですぐにエクセル作業を自動化することができます。

たとえば、

A４用紙に写真を貼り付けてコメントを入力する作業を自動化したい！という場合、

『写真を貼り付けるマクロ』が設定されたエクセルファイルをダウンロードすれば問題解決です。

実際に、『写真を貼り付けるマクロ』をダウンロードして使っている様子がこちら

ガッツポーズの人

写真貼付け作業の効率がめちゃくちゃアップ

『マクロが設定されたエクセルファイルをダウンロード』する導入方法は、

VBA初心者でもマクロを導入できる、費用が安い、

というメリットがあります。

しかし

VBAに関する情報が多く公開されているとはいえ、ネット上で想定するマクロは見つけることが難しい

というデメリットもあります。

ガッツポーズの人

お目当てのマクロが見つかればラッキー

個人ブログやファイルを販売できるサイト「note」や「Tips」ではいろんなマクロの情報が掲載されているので是非参考にしてみてください。

今までマメBlogで受注した効率化マクロを下記のnoteで掲載していますので併せてチェックしてみてください。

【note】エクセルマクロのダウンロードはこちら

参考書やネットでVBAスキルを身に付ける

先程も紹介しましたが、

VBAは他のプログラミングに比べて参考書やネットで紹介されている情報量が多いので初心者でも導入しやすい

プログラミングです。

言い換えると、

情報量が豊富なので自分で勉強できちゃう

ということです。

私のVBAスキルはほとんど独学で身に付けたもので、

考えた処理のほとんどをVBAで表現できるレベルにまで到達した！

と思っています。

私の作ったマクロをプロのプログラマーが見れば、

お前の書くコードはインチキだ！「変数の宣言」とか「引数」を正しく使えよ！！

と感じるはずです。

でも、

私からすればどうでもいい！！！想定した内容を正しく処理できればよくないですか！？

独学であっても『写真を貼り付けるマクロ』『全てのシートをPDF出力するマクロ』『連番を振るマクロ』など、

業務内容に合ったマクロを開発できるようになれます。

独学でVBAスキルを身に付けるコツは、

エラーが発生してもいいからひたすらコードを書く、なんでもいいからエクセル作業をマクロ化してみる

です。

とは言っても、全くの知識0の方は何をすればいいかわからないですよね。

VBA知識0の初心者の方は、参考書『たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】』を読んでみてください。

VBAの知識0の方でもすいすい読み進められる内容になっています。

やさしい内容にも関わらず「え！！VBAを使えばこんなことできるの！？」と感動すると思います。

実際に私はこの参考書を読んでからVBAの勉強を始めました。

ひらめく人

VBA学習スタートのきっかけをくれた参考書

リンク

VBAの魅力を発見した後は、

ひたすら自動化したい処理を実現するコードを書くだけ

です。

【VBA 写真を貼る】、【VBA PDF出力】、のようにネット検索すれば知りたいコードをすぐにゲットできます。

実現したい処理に向かって、「調べる→書いてみる→エラーを改善する→調べる」を繰り返していると

自然といろんなマクロが作れるようになっているはずです。

VBAに興味が湧いてきたという方は今からVBA学習をスタートさせちゃいましょう。

Posted by t.a.k.ubonse926@gmail.com