際際滷

朕肝
? 朕炎
? 閣京粥古勣
? 並念�扮�
? 児�A
? step1�兜めてのプログラム
? step2�マクロの鞠�h
? step3��篳�
? step4�コメント
? step5�處麻

朕肝
? step6�セルからの�､糧ゝ�
? step7�セルへの�､鬟札奪�
? step8�IF猟
? step9�IF゛ELSE猟
? step10�IF゛ELSEIF゛ELSE猟
? step11�For猟

朕肝
? 鮄�
? step12�ファンクション
? step13�ワ�`クシ�`ト�v方
? step14�プロパティ
? step15�塘双

念戻訳周
? Excelの児云議な喘�Zを岑っている。
�ブック、ワ�`クシ�`ト、セルなど�
? Excelの児云議な荷恬は��}なく佩える。

朕炎
? 參和のようなレイアウトのExcelファイルがあります。

朕炎
? 仝�u��好椒織鵑鰕栽造垢襪海箸燃豹�燕が托まります。
? このマクロを粁�Aを未みながら恬撹していきます。

VBAとは
? Visual Basic for Application の待です。
? Microsoft Office �u瞳貧で�嘛�垢襯廛蹈哀薀潺鵐委壞Zです。
? Excelで恬�Iを徭�啝�靴燭��呂砲茲�荒辰気譴泙后�
? WordやPowerPointでも聞喘辛嬬です。

マクロとは
? Excelで佩っている恬�Iを��hさせて徭�啝�靴燭發里髻献�
クロ々と柵びます。
? マクロの�g悶は、VBAで��譴織廛蹈哀薀爐任后�
? ��gな恬�Iであればプログラミングを佩わずに徭�啝�發�
きますが、VBAで恬撹するほうがより悲�來の互い徭�啝�
にすることができます。

VBAにできること
? ボタン匯つで�}�jな恬�Iをまとめて徭��g佩
? オリジナルのワ�`クシ�`ト�v方の恬撹
? ブックを睡いだ�I尖の�g佩や、咫泡?竃薦の�I尖

並念�扮�
? ファイルの��徨の燕幣
? 蝕�kタブの燕幣

ファイルの��徨の燕幣
? エクスプロ�`ラ�`を軟�� ★ 燕幣タブ ★ 仝ファイル兆��徨々に
チェックを秘れます。

ファイルの��徨の燕幣
? ��徨とは、ファイルの�N�を�R�eするためのものです。
? チェックを秘れると、ファイル兆が仝ファイル兆.��徨々と燕幣
されます。
? 宥械のExcelファイルは、仝.xlsx々
? マクロが�Mみ�zまれたExcelファイルは仝.xlsm々となります。

蝕�kタブの燕幣
? Excel軟�� ★ ファイルタブ ★ オプション ★ リボンのユ�`
ザ�`�O協 ★ 嘔�箸離螢好箸痢檎_�k々のチェックボックス
にチェックを秘れます。
? �_�kタブはマクロやVBAに�vする�C嬬を聞喘するタブです。

VBEの軟��
? VBAでプログラムを恬撹する�Hは、VBE�Visual Basic
Editor�を軟�咾垢覬慴��△蠅泙后�
? �_�kタブ ★ コ�`ドの燕幣または
? Alt + F11
? のいずれかで軟�咾任④泙后�

閣京掘の譜協
? 兜めにいくつか閣京掘の譜協をしておきます。
? ツ�`ル ★ オプションでオプションを軟�咾靴泙后�
? 仝徭��猟チェック々のチェックを翌します。
? 仝�篳�緑綠圓��崙する々にチェックを秘れます。
? 仝OK々ボタンを兀して、オプションを�]じます。

マクロ恬撹の��
? �携� ★ ��淵皀献紿`ル
? VBAのプログラムは児云議に��淵皀献紿`ルに�峰します。

Step1
兜めてのプログラム

? 壼堀プログラムを恬ってみましょう。
? 枠ほど喘吭した��淵皀献紿`ルの嶄に參和の坪否を�峰し
ます。
? 貧�のプログラムを�峰し、�g佩ボタン�仝?々�を兀し
てみましょう。
Sub 兜めてのプログラム()
MsgBox ("こんにちは")
End Sub

? �g佩�Y惚

兜めてのプログラム�盾�h�
? 仝Sub ゛々から仝End Sub々までの何蛍を
仝プロシ�`ジャ々と柵びます。
? VBAではプロシ�`ジャ�g了でまとまった�I尖を�峰してい
きます。
End Sub
プロシ�`ジャ

? プロシ�`ジャの��Ⅲ修碗塹造里茲Δ砲覆蠅泙后�
? Subの瘁に磯叔スペ�`スを腎けてプロシ�`ジャ兆を�峰します。
? プロシ�`ジャ兆は、採の�I尖をしているかがわかる兆念を原けます。
? プロシ�`ジャ兆は晩云�Zでも哂�Zでも�峰できます。
? �I尖の何蛍は採佩でも�峰することができます。
End Sub

? MsgBoxはダイアログボックスでメッセ�`ジを燕幣する�v方
です。
? ここでいう仝�v方々は、仝VBA貧で聞喘できる�v方々のこ
とで、ワ�`クシ�`ト貧で聞喘する仝IF�v方々や仝SUM�v
方々とは�なります。
? 仝哈方を鞭け函って�I尖した�Y惚を卦す々という仝�v方々
の吭龍は揖じですが、VBAとワ�`クシ�`トでは聞喘できる
仝�v方々が�なることを�えておきましょう。

マクロの鞠�h
? マクロを�g佩したくなるたびに�飴�VBEを�_いて�g佩する
のは中宜ですね。
? ボタンにマクロを鞠�hし、ワ�`クシ�`ト貧から�g佩できる
ようにしましょう。

マクロの鞠�h
? �_�kタブ ★ �携� ★ 仝フォ�`ムコントロ�`ル々の仝ボタ
ン々を�x�k。
? ワ�`クシ�`ト貧の�m輝な��銈謀籌辰掘∀箸曚夫�匹靴織�
ロシ�`ジャを�x�kします。
? ボタンを兀和すると、ダイアログボックスが燕幣され、プ
ロシ�`ジャに�峰した�I尖が�g佩されているのが�_�Jでき
ます。

マクロの鞠�h
? �_�kタブ

マクロの鞠�h
? マクロの鞠�h

�篳�
? �篳�鯤垢辰討澆泙靴腓Α�
Dim num As Integer
num = 100
MsgBox (num)
End Sub

�篳�箸�
? �篳�箸蓮▲禰`タを鯉�{しておく�のようなものです。

�篳�緑綠�
? �篳�鯤荒辰垢��蓮◆犬海Δい�篳�鯤垢い泙后垢箸い�
のを並念に�峰しておく駅勣があります。
? これを�篳�緑綠圓煩圓い泙后�
? �篳�緑綠圓蓮�Dim �篳�� As 侏々になります。
? 書指でいうと仝Dim num As Integer々の何蛍です。

�篳��
? �篳�獷魯禰`タの秘れ麗に原けておく兆念で、徭喇に�Qめ
ることができます。�晩云�Zも聞喘辛�
? �篳�獷郎里任眩爾い任垢�里離禰`タが秘っているのかが
わかる兆念を原ける駅勣があります。
? 書指のプログラムでは仝稼顎馨々としました。

�篳�緑�
? �篳�緑佑蓮▲禰`タの�N�を燕すものです。
? 書指聞喘している仝Integer々は、屁方を燕す侏です。
? 麿にも弌方、晩原、猟忖などの侏もあります。
? 畠ての侏を�える駅勣はありません。よく聞喘される侏は
�Qまっているので、駅勣な�rに�えていきましょう。

�篳�悗隆枻�
? �篳��､鮓饉{することを仝旗秘々と冱います。
? 旗秘には、仝�々を聞喘します。
? 仝num = 100々と�峰すると、仝numという�篳��100とい
う方�､鮓饉{する々という吭龍になります。
? 麻方や方僥で聞喘する仝�々とは吭龍が�なるので廣吭し
ましょう。

�篳�悗淋抓枻�
? 旗秘は1業だけではなく、採業でもできます。旗秘した��
にさらに�篳�魎枻襪垢襪海箸髻股抓枻襦垢煩圓い泙后�
Dim num As Integer
num = 100
num = 200
MsgBox (num)
End Sub

�篳�諒荒�
? �､�枻襪気譴�篳�蓮�篳�獷琶荒辰垢襪海箸�任④泙后�
? 仝MsgBox(num)々とすると、numに鯉�{された100が燕幣さ
れます。

コメント
? コメントを��い討澆泙靴腓Α�
' これはコメントです
Dim num As Integer
num = 100
MsgBox (num) 'メッセ�`ジを竃します
End Sub

コメント�盾�h�
? コメントはプログラムの�嘛�睦壱�を嚥えないメモ��④�
す。
? ソ�`スコ�`ドを蛍かりやすくするために聞喘します。
? ��④垢�襪板罎坊屬�蠅砲��覆襪里如�o�jなコメント
は陣えましょう。

處麻
? 方�､林�麻をしてみましょう。
Dim sum As Integer
Dim avg As Integer
sum = 100 + 90 + 80
avg = sum / 3
MsgBox (sum)
MsgBox (avg)
End Sub

處麻�盾�h�
? 處麻とは��gに冱えば�麻のことです。
? 處麻するための�催を仝麻�g處麻徨々と柵びます。
? VBAで聞喘できる麻�g處麻徨は參和の宥りです。
處麻徨聞い圭吭龍
+ A + B�AとBは方�｣� 怎し麻
- A �C B 哈き麻
* A * B �譴泳�
/ A / B 護り麻
? A ? B 護り麻の噫り
^ A ^ B べき�\

�篳�鬚泙箸瓩鳶綠�
? 枠ほどの�I尖は、參和のように��Qえることもできます。
? 揖じ侏であれば、�篳�呂泙箸瓩鳶綠圓垢襪海箸發任④泙后�
? 栽わせて�えておきましょう。
Dim sum, avg As Integer
sum = 100 + 90 + 80
avg = sum / 3
MsgBox (sum)
MsgBox (avg)
End Sub

Step6
セルからの�､糧ゝ�

? セルから�､鯣ゝ辰靴討澆泙靴腓Α�
Dim sum As Integer
Dim avg As Integer
sum = Cells(10, 3).Value + Cells(10, 4).Value + Cells(10, 5).Value
avg = sum / 3
MsgBox (sum)
MsgBox (avg)
End Sub

? �g佩�Y惚

セルからの�､糧ゝ達┰瞠h�
? VBAはExceの荷恬を徭�啝�垢襪燭瓩没�襪海箸�曚箸鵑�
なので、セルの荷恬はよく聞喘します。
? セルを荷恬するには、仝Cells々と仝Range々の2�N�があり
ますが、ここでは仝Cells々を�B初。
? 仝Cells(佩, 双)々でセルを函誼できます。
☆佩と双はA1セルから方えた方��
? 秘薦されている�､蓮� 仝Cells(佩, 双).value々で函誼でき
ます。

Step7
セルへの�､離札奪�

? �麻した�､鬟札襪縫札奪箸靴討澆泙靴腓Α�
Dim sum As Integer
Dim avg As Integer
avg = sum / 3
Cells(10, 6).Value = sum
Cells(10, 7).Value = avg
End Sub

? �g佩�Y惚

セルへの�､離札奪硲┰瞠h�
? セルに�､鬟札奪箸垢襪箸④癲�ゝ辰�rと揖��仝Cells々を
聞喘します。

IF猟
? IF猟を聞喘して、訳周によって�u��Qめてみましょう。
Dim sum As Integer
Dim avg As Integer
Dim score As String
avg = sum / 3
If avg >= 80 Then
score = "A"
End If
Cells(10, 8).Value = score
End Sub

IF猟�盾�h�
? 書指仟しく仝score々という�篳�鰉智發靴泙靴拭�
? 書までは仝Integer々の侏でしたが、書指は仝String々と
なっています。
? 仝A々などの猟忖を�Qいたい��呂蓮◆�String々という侏を
聞喘します。Stringの�､�"(ダブルクォ�`テ�`ション)で��
う駅勣があります。
Dim score As String
score = "A"

IF猟�盾�h�
? プログラムの嶄で訳周蛍瓷�訳周によって�I尖を蛍けたい
とき�をする��呂蓮�IF猟を聞喘します。
? Excelのワ�`クシ�`ト貧で聞喘するIF�v方とは�v�Sありませ
ん。�訳周によって蛍ける、という吭龍では揖じですが�
? IF��Ⅲ修碗塹造陵┐蠅任后�
If 訳周塀 Then
訳周がTRUEの�rの�I尖
End If

IF猟�曳�^處麻徨�
? 訳周塀の嶄で聞喘した曳�^處麻徨には參和のようなものが
あります。
處麻徨聞い圭 TRUEになる訳周
> A > B AがBより寄きいとき
>= A >= B AがB參貧のとき
< A < B AがBより弌さいとき
<= A <= B AがB參和のとき
= A = B AとBが吉しいとき
<> A <> B AとBが�なるとき

And と Or
? 訳周の何蛍で�}方の訳周を峺協したい��呂發△蠅泙后�
? その��蓮◆�And々か仝Or々を聞喘します。
? 畠ての訳周を�困燭��呂�I尖をしたい��呂砲蓮�
仝And々を聞喘します。
? いずれか匯つでも訳周を�困燭靴討い��呂�I尖したいと
きは、仝Or々を聞喘します。
'峠譲が80泣參貧、または、栽�が250泣參貧の��
If avg >= 80 Or sum >= 250 Then
score = "A"
End If

IF゛ELSE猟
? IFの訳周に栽崑しない��呂�I尖も��い討�④泙靴腓Α�
Dim sum As Integer
Dim avg As Integer
Dim score As String
avg = sum / 3
If avg >= 80 Then
score = "A"
Else
score = "E"
End If
End Sub

IF゛ELSE猟�盾�h�
? IF゛ELSE猟を聞喘すると、訳周に栽崑しない��呂�I尖も
�峰できます。
If 訳周塀 Then
訳周がTRUEの�rの�I尖
Else
訳周がFALSEの�rの�I尖
End If

IF゛ELSEIF゛ELSE猟
? 訳周蛍瓷をさらに�かくしていきましょう。
' 福待
If avg >= 80 Then
score = "A"
ElseIf avg >= 70 Then
score = "B"
score = "C"
score = "D"
Else
score = "E"
End If
End Sub

IF゛ELSEIF゛ELSE猟�盾�h�
? 訳周をさらに�かく蛍けたい�rはELSEIFを聞喘します。
? ELSEIF鞘は採業でも聞喘することができます。
If 訳周塀１ Then
訳周１がTRUEの�rの�I尖
ElseIf 訳周塀２ Then
訳周２がTRUEの�rの�I尖
Else
どれにも輝てはまらないときの�I尖
End If

For猟
? For猟を聞喘して、5繁蛍の�u��鬚弔韻討澆泙靴腓Α�
Dim sum As Integer
Dim avg As Integer
Dim score As String
Dim i As Integer
For i = 10 To 14
sum = Cells(i, 3).Value + Cells(i, 4).Value + Cells(i, 5).Value
avg = sum / 3
Cells(i, 6).Value = sum
Cells(i, 7).Value = avg
' IF猟福待
Cells(i, 8).Value = score
Next
End Sub

For猟�盾�h�
? For猟は、採指も揖じ�I尖を�Rり卦し佩いたいときに聞いま
す。
? ��Ⅲ修碗塹造陵┐蠅任后�
? �篳��､��､�蛆邊�､砲覆襪泙任礼g�Rり卦されま
す。
Dim �篳� As Integer
For �篳� = 兜豚�� To 恷寄��
�Rり卦す�I尖
Next �篳�

ファンクション
? ファンクションを聞って�I尖を蛍けてみましょう。
? Subプロシ�`ジャの翌に參和の坪否を�峰しましょう。
Function getScore(ByVal avg As Integer) As String
If avg >= 80 Then
getScore = "A"
getScore = "B"
getScore = "C"
getScore = "D"
Else
getScore = "E"
End If
End Function

ファンクション
? ファンクションを聞って�I尖を蛍けてみましょう。
? Subプロシ�`ジャを參和の坪否に�筝釮靴泙靴腓Α�
Dim sum, avg, i As Integer
Dim score As String
For i = 10 To 14
sum = Cells(i, 3).Value + Cells(i, 4).Value + Cells(i, 5).Value
avg = sum / 3
Cells(i, 6).Value = sum
score = getScore(avg)
Next
End Sub

ファンクション�盾�h�
? �I尖が�Lくなってきたときは、ファンクションを聞うこと
で�I尖を蛍けることができます。
? 仝Function々゛仝End Function々の�gに�I尖を��④泙后�
? 仝getScore々はファンクションの兆念です。
採の�I尖をしているのかが蛍かる兆念を原けます。
'�I尖
End Function

? 凄察の嶄は仝哈方の傚冱々をしていて、ファンクションが
柵び竃されるときに�､鯤椶曳，襪燭瓩龍�xをしています。
? この傚冱によって�I尖の嶄で仝avg々という�篳��荒辰�
きます。
'�I尖
End Function

? 瘁ろの仝As String々は、仝��､緑綠圈垢任后�
? ファンクションは、�I尖を�Kえた瘁、�Y惚を卦すことがで
きます。
? �Y惚を卦したい��蓮△修�､緑佑��④泙后�
? 卦す�､里海箸髻��｡垢蛤瑤咾泙后�
'�I尖
End Function

? �I尖の嶄で、ファンクション兆に�､魎枻襪靴討い泙后�
? �I尖を�Kえた�rにファンクション兆に秘っている�､��
�､砲覆蠅泙后�
If avg >= 80 Then
getScore = "A"
'福待???
Else
getScore = "E"
End If
End Function

? ファンクションを聞喘したい��呂蓮▲侫．鵐�轡腑鹵獷�
峺協します。
? 哈方が駅勣な��呂蓮∪┿，琳个剖匹靴燭�､鯣襪譴泙后�
? また、仝score々の嶄に��､�襪蠅泙后�
'�I尖福待
score = getScore(avg)
End Sub

ファンクションの朕議
? �I尖が�}�jになった��蓮�I尖が�Lくて�iみにくくなった
��呂覆鼻▲侫．鵐�轡腑鵑鰈�匹靴�I尖を蛍けることで、
メンテナンス來や辛�i來が貧がります。
? プログラムが蛍かりにくいと湖じ兵めたら、ファンクショ
ンによる�I尖の蛍護を�篇�しましょう。

Step13
ワ�`クシ�`ト�v方

? ここで光縮親の栽�を弖紗してみましょう。
? ル�`プの嶄で怎していって箔めてもいいですが、せっかく
なのでExcelのワ�`クシ�`ト�v方である仝SUM々�v方を聞喘
してみましょう。

? 書まで��い討△�I尖の和に參和のコ�`ドを弖紗して�g佩
してみましょう。
' 福待
Cells(16, 2).Value = "栽�"
Cells(16, 3).Value = WorksheetFunction.sum(Range("C10:C14"))
Cells(16, 4).Value = WorksheetFunction.sum(Range("D10:D14"))
Cells(16, 5).Value = WorksheetFunction.sum(Range("E10:E14"))
Cells(16, 6).Value = WorksheetFunction.sum(Range("F10:F14"))
Cells(16, 7).Value = WorksheetFunction.sum(Range("G10:G14"))
End Sub

ワ�`クシ�`ト�v方�盾�h�
? VBAの�I尖の嶄でワ�`クシ�`ト�v方を聞喘したい��呂�
仝WorksheetFunction.�v方兆(哈方)々で�g佩することができ
ます。
? 哈方の嶄で聞喘している仝Range々は、セルの��譴鯣ゝ�
することができます。

Step14
オブジェクト?プロパティ

? セルのプロパティをいじってみましょう。
' 福待
Cells(16, 2).Value = "栽�"
Cells(16, 3).Value = WorksheetFunction.sum(Range("C10:C14"))
Cells(16, 3).Font.Bold = True
Cells(16, 3).Font.ColorIndex = 3
' 福待
End Sub

? �g佩�Y惚

オブジェクト?プロパティ�盾�h�
? 仝Cells々を聞喘するとセルを荷恬することができます。
? この荷恬��のことを仝オブジェクト々と冱います。
? オブジェクトに原昧する秤�鵑髻献廛蹈僖謄�垢煩圓い泙后�
? 書までは仝Value々プロパティに�ﾔO協することでセルに��
をセットしていました。

オブジェクト?プロパティ�盾�h�
? Excelではセルに��峻O協でいろいろ荷恬することができま
すね。
? VBAでもExcelの荷恬でできることは採でもできます。
? 書指は湊忖の�O協と猟忖弼を�O協しましたが、麿にも徭蛍
で�{べていろいろと�してみましょう。

塘双
? 塘双を聞ってみましょう。
' 福待
Dim sums(5) As Integer
sums(0) = WorksheetFunction.sum(Range("C10:C14"))
sums(1) = WorksheetFunction.sum(Range("D10:D14"))
sums(2) = WorksheetFunction.sum(Range("E10:E14"))
sums(3) = WorksheetFunction.sum(Range("F10:F14"))
sums(4) = WorksheetFunction.sum(Range("G10:G14"))
Range("C16:G16").Value = sums
End Sub

塘双�盾�h�
? 塘双は、まとまったデ�`タを�Qうときに聞喘するものです。
? 匯つ匯つ�篳�鯰綠圓垢襪�紳覆��いとき、塘双を聞うこ
とで�紳覆茲�I尖が佩える��呂�△蠅泙后�
? 塘双に根まれる匯つ匯つの�篳�鰔�悗煩圓い泙后�
? 塘双を聞うときは勣殆が採��駅勣か峺協し、聞うときは0
桑朕から聞喘します。
' 塘双の傚冱
Dim 塘双�篳��(勣殆方) As 勣殆の侏
' 聞い圭
塘双�篳��(0) = ��

塘双�盾�h�
? 塘双は、セルにまとめて�､鰊Nり原けたい�rにも聞喘する
ことができます。峺協した��譴頒�慂��呂辰討い覬慴�
があります。
? 謹くのセルに�､鬟札奪箸垢��呂蓮�擦漬擦張札奪箸垢�
よりも、塘双を聞喘してまとめてセットしたほうが�I尖堀
業が堀くなります。
' 福待
Range("C16:G16").Value = sums
End Sub

まとめ
? いろいろ�てきましたが、VBAでできることはこれだけで
はありません。
? Excelは聞っている繁笥が謹いため、VBAに�vしても寄丘の
ことはネットで�碧�垢譴亞�討④泙后�
? �櫃砲覆辰燭海箸�△譴弌�VBA (やりたいこと)々でキ�`
ワ�`ドを秘薦して�{べて�してみてください。

際際滷

Excel vba

More Related Content

Excel vba