【HOME】　【INDEX】　【第1回】　【第2回】　【第3回】　【第4回】

VBAの概念を知ろう編　　第3回


　またまた今回もオブジェクト（Object）じゃが、
　今度は、オブジェクトをどう表現するか？
　あるいは、どのような動きをさせるのか？
　といったことをVBAでは、どのように記述するのか
　といったことを、考えていきたいと思います

１　プロパティとメソッド
　　　VBAでオブジェクトを使って、そのオブジェクトを表現したい場合、
　　あるいは、そのオブジェクトを使って、何らかの操作をさせたい場合、
　　VBAで、そのことをコードで記述していくわけですが、
　　それぞれのオブジェクトに対して、決められた書式があります。
　　その書式方法には、
　　●プロパティ　＆　●メソッド　という二つの方法があります

２　プロパティ（Property）
　　　プロパティとは、辞書では、性質、特質と表現されています。
　　　たとえば、ものに例えるなら、そのものに対して、
　　　形はどうだとか、色はどうだとか、重かったり、軽かったり、
　　　大きかったり、小さかったり・・・・
　　　例えば、電化製品の「テレビ」でたとえるなら
　　　今流行りの液晶テレビ、家のはブラウン管テレビ、
　　　大きな液晶だとプラズマテレビだとか言ってるのかな？
　　　といっても、モニターによっても、区別されますね。
　　　外観の色も、黒がよかったり、白がよかったり、
　　　大きさも、小さいものだと４インチから大きいものだと５０型だとか、
　　　カタログをみれば、そのテレビの性質が特質がことこまかに、
　　　驚くほど書いていますよね。
　　　
　　　それでVBAでも、コードを記述する場合、
　　　そういった性質、特質を表現する方法として
　　　次のような書式で書きます。
　　　
　　　書式　　オブジェクト．プロパティ
　　　
　　　　　　テレビでいうなら
　　　　　　　テレビ．外観．色　=　黒色
　　　　　　てなことになるかな？

　　　うん、じつに簡単だ。
　　　オブジェクトの後に、ピリオッド　「．」を付けるだけですからネ。
　　　
　　　例えば、具体的にはどう記述するかといえば
　　　シート１のセルA1の色（背景）を赤にしたいというときは
　　　Worksheets("Sheet1").Range("A1").Interior.Color = RGB(255,0,0)
　　　あるいは
　　　Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 3
　　　とします。
　　　Interiorという色を塗りつぶすObjectに対して、Colorプロパティを使用します
　　　あるいはColorIndexプロパティでも結果は同じです。

　　　※注意：
　　　プログラムの基本ですが　=　を使った場合
　　　算数の「=」とはまったく別の意味をなします。
　　　この場合、必ず右のものが、左に当てはめる　という意味ですから
　　　赤色をセルA１の背景に塗りつぶすということになります。
　　　例えば
　　　A=１、　B=３　の時
　　　算数では　A=B　にはなりません
　　　プログラムでは　A=３　になります。つまり　BがAのところへ
　　　入ってしまったわけです。
　　　ここでいうAとかBは、ちょっとここでは難しいかもしれませんが
　　　変数と呼ばれています。（変数については、別記詳しく解説したいと思います）
　　　そして、逆に、変数に、今あるオブジェクトのプロパティを取得することもできます。
　　　　例
　　　　　A　=　Worksheets("Sheet1").Range("A1").Interior.ColorIndex
　　　　　セルが赤に塗りつぶされていれば　A　は　3ということになります。
　　　　　

３　メソッド
　　　メソッド　Method　方法、手段
　　　う〜ん、なんだか、英語の解説のようになってきましたが、
　　　日本語しかろくにわからん小生も、ほんとツライですわ　ヽ(∇⌒ヽ)
　　　しかしながら、VBAの英語はパターンが多いのと、
　　　結果的に、通常使う言葉は、さほど多くはないと思うので
　　　頑張りましょう　!!　ｑ(^◎＾＊)ｐ

　　　さて、余談になりましたが、
　　　オブジェクトの特質、性質をプロパティと表現しました。
　　　そして、メソッドは、方法、手段ということになりますが、
　　　具体的には、どういうことかといえば、
　　　先ほどテレビで説明したので、それで例えるなら
　　　テレビを見ていると、音が大きいので、
　　　「オーイ、音を小さくしてくれ〜」「アホ、あんたがしなはれ!!」
　　　仕方なく、小生は、リモコンか、テレビについている音量の小ボタンを
　　　押しますな、
　　　そうすると、テレビの音が小さくなりますな。
　　　（小さくならないって、そりゃ、壊れているか、あんたの耳が悪いのネ
　　　　ス、ス、スマン　さらに余談じゃった　ゞ(_ _；)）
　　　音が小さくなるとき、大概はテレビのモニターに数字とか■のような
　　　記号が入って小さくなるのが見てわかるようになりますね。
　　　音を小さくさせる。音量を変えるといった動作を行い!!
　　　音が２０から１０になったといった結果が得られます。
　　　他には色の調整をするだとか、画面のサイズを変えるとか、
　　　色々ありますよね。
　　　で、そういった動作をさせることを、メソッドと考えてください。
　　　オブジェクトに動作をさせて、その結果を得ることがメソッドの
　　　本質であります。

　　　メソッドの書式は

　　　書式　オブジェクト．メソッド　方法，手段,条件
　　　　　　　　または
　　　　　　　　オブジェクト．メソッド（方法，手段，条件）
　　　　　　　　または
　　　　　　　　オブジェクト．メソッド
　　　てな、書き方をします。
　　　
　　　テレビで言うなら
　　　　　　　音量　=　テレビ．音量を小さく　２０から１０へ　
　　　　　　　音量　=　テレビ．音量　１０
　　　　　　　　　　（結果　音量=10となります）　
　　　　　　　テレビ．音量ＯＦＦ
　　　
　　　具体的によく使うのが　　PrintOut メソッド　です。
　　　オブジェクトを印刷するときに使いますが
　　　ヘルプを見ますと
　　　構文
　　　　expression.PrintOut(From, To, Copies, Preview, ActivePrinter,
　　　　　　　　　　　　　　　　　　　　　　　　PrintToFile, Collate, PrToFileName)
　　　
　　　てなことが書かれて、そのあとにづらづらと説明文が書かれています。
　　　このヘルプ文、初心者の方には、なかなかわかりづらいですが、
　　　（まぁ、その手助けになればと思い、ここにたこちゅーが立ち上がった
　　　というわけですな・・・　またまた　余談であった　(･.･;)　）
　　　少し具体的に説明していきます。

　　　expression　（イクスプレション　表現・語法）は
　　　　　対象となる、オブジェクト、コレクションを意味します。
　　　PrintOut　印刷するというメソッドです。
　　　そしてそのあとに（）でくくり、その手段、方法の条件が書かれています。
　　　それぞれは、関数とおなじように引数とも呼ばれています。
　　　それと、説明文の中に条件によっては、省略可能と書いていますね。
　　　使用例を見てみましょう。

　　　使用例では
　　　　ActiveSheet.PrintOut
　　　と、この１行だけです。すべて省略可能と書かれていましたので
　　　この構文（メソッド）だけで、引数がなくても、ひとつのプログラム
　　　として表現されています。

　　　もう少し具体的にいいますと、
　　　ActiveSheetというのは、エクセルの今開いている、選択しているシート
　　　のことですから、そのアクティブなシートを印刷せよ!!といった
　　　命令文になります。
　　　結果は、印刷アイコンをクリックした状態と同じ状態で、
　　　このプログラムが実行されれば、そのシートが印刷されます。

　　　引数があるときの具体的な記述方法を紹介します。

　　　その条件を記述する方法は２とおりです。

　　　PrintOutメソッドで、アクティブシートを10部印刷したいとします。

　　　　１　ActiveSheet.PrintOut　,,10　
　　　　　　，，10　で　，　（カンマ）の後、引数を省略するときは
　　　　　続けて　，（カンマ）　を書きます。

　　　　２　ActiveSheet.PrintOut　Copies:=10

　　　　　　Copies=10　としたいところですが、メソッドでは、＝の前に　：（コロン）をつけます
　　　　　　引数はCopiesに値します。引数は何っていうときは　=　でなくて　：=　です。
　　　　　　
　　　　　
　　　記述方法はどちらでも構いません。好きな方でいいですが
　　　どちらかというと２の方が見た目、具体的な表現となっているので、
　　　間違いが少ないと思います。小生はこちらの方が、お薦めであります。
　　
　　※ここで注意してください
　　　　構文ではメソッド（）と表記していますネ
　　　　つい、プログラムを記述するときに

　　　　　ActiveSheet.PrintOut（Copies:=10）

　　　としたくなります。
　　　だってヘルプでは、上の記述がしていますものネ

　　　　しかし、このように戻り値が必要でないとき、一方的な、実行、
　　　　つまり、「印刷を実行させる」だけの場合は
　　　　10部印刷したという結果を得る必要がないので
　　　　引数を　（　）　で囲みません。
　　　　（　）を逆につけてしまいますと　エラーとなってしまいます。

　　　　上の
　　　　ActiveSheet.PrintOut（Copies:=10）
　　　　は、構文上エラーになりますので、
　　　　間違いのないように区別してください。

　　　　しかし、少しややこしいですが、

　　　　X　=　ActiveSheet.PrintOut（Copies:=10）

　　　　というような使い方はできます。

　　　　この意味は
　　　　印刷が10枚印刷されれば、Xには　True（ほんと）　印刷されなければ　False（うそ）
　　　　が代入されます。
　　　　印刷枚数の確認には、使えそうですね。

　　　　（このような　Ｘは、変数といいますが、変数については、また詳しく説明したいと思ってます）

　　　　例を作成してみましょう!!

　　例
　　　　Sub　Test（）
　　　　　X　=　ActiveSheet.PrintOut（Copies:=10）
　　　　
　　　　　ActiveSheet.PrintOut　Copies:=10
　
　　　　　MsgBox X
　　　　End　Sub

　　　　このマクロを実行すれば、10枚印刷され、
　　　　きちんと印刷されれば、
　　　　印刷の実行が正しいので
　　　　ダイアログボックスで　TRUE　と表示されるでしょう。
　　　　もし、なんらかの都合で印刷ができないときは　FALSE　が　返されるはずです。

　　　　
　　　　このようにメッソドの値を返すような　=　のある式には、
　　　　つまり　=　で　記述されたメソッドが右辺にあるときには、
　　　　（）　で引数を記述するということを覚えておいてください。ネ　(^。^)
　　　

さて、さて、今回はこれにて、失礼いたしやす。
次回は、クラスとインスタンスについて、思うことを書いてみよう!!　では、
　
　　　To　be　Continued　…

03/10/17改編

　　　　　　　　　　　【HOME】　【INDEX】　【第1回】　【第2回】【第3回】【第4回】