データ型とオブジェクト型 プログラムとしてどちらが適切なのか？？

質問

Sub test1()
Dim R As String
R = Cells(1, 1)
MsgBox R
End Sub

Sub test2()
Dim R As Range
Set R = Cells(1, 1)
MsgBox R
End Sub

どちらも同じ結果が返ってきます。
プログラムとしてどちらが適切なのでしょうか？

サンプルなどで多く見かけるのはtest2なのですが
気のせいでしょうか？

回答No.5

Wendy02 · ベストアンサー

こんにちは。

#3 さんへの回答のお礼の
>具体的にどこがどう正しくないのでしょうか？

Rangeオブジェクトに、.Value プロパティを入れない、いわゆる「暗黙のプロパティ」が、悪いと書いたテキストなんていうのは、ほとんどないはずです。それに、データ型の型キャストも言語の仕様で、お任せでも、現代のプログラミング言語なら、ほとんど通用するはずです。

ただ、私としては、「どこがどう正しくないか」と聞かれたら、細かいことを言えば、#4に書いた事実もあるのですが、今さら、旧VBを持ち出しても、あまり意味がありません。一般的には、概して、分からないというしかありません。あえていうなら、それは、「コーディング・ルール」と言ったほうがよいと思います。

VBAは、本格的なプログラミング作法を求められるわけではないし、結果が同じなら、作法や方法は、お構いないとも言えます。特殊な条件でないとエラーが出ないようなことを、気にするなんてナンセンスかもしれません。

ここのカテゴリの、自称「専門家」さんのほとんどの人のコードは、VBAのコーディング・ルールを無視したものです。それで「専門家」として通用するなら、世の中怖いものなどありません。

今どきは、「コードが美しくない」なんていう気の抜けたことを言う人はいませんが、かといって、それに携わる人がいる以上は、素人マクロのままで済ませられないと思うのです。

ある程度のVBAの経験の積んだ人は、お手本のサンプルコードを何度も読んで、真似てきた結果があるのではないか、と思うのです。何百、何千とコードを書いてみて、それで理屈は後で付いてくるものだと思います。そう書く理由や意味を求めても、微妙なところを大事に出来るか出来ないか、その違いだと思います。それが上達の要だといったら、大げさかもしれませんが、「神は細部に宿る」とも言います。そういう微妙なところなのだと考えたほうがよいと思います。

お礼

たくさんコードを書くことで慣れていくのですね！
ありがとうございます。参考になりました。

回答No.4

Wendy02

こんにちは。

>データ型とオブジェクト型　プログラムとしてどちらが適切なのか？？
これ自体は、データ型に目がいっているからで、それは、「求める戻り値が何か」によって決めなくてはいけません。MsgBox なら、本来、テキストであるはずですから、厳密には、String 型しかありません。ただ、データ型のキャスティングという機能がありますから、数値型でも、String 型として認識します。

今回は、オブジェクト型を使っているので、少し状況が変わってきます。

ある程度、Excel VBAの経験がある人が、質問のコードをみると、.Value プロパティを省略するのが良いかどうか、ということに目が行くものだと思います。

古い VBAの本を見ると、.Value プロパティを省略して書いているものもあります。一体、どちらが正しいのか、どちらでもよいのか、そういう疑問は、解説している本やWebサイトも少ないし、ぬぐいきれない疑問のひとつのはずです。なかなか即断というわけにはいきません。

現在のVBAに慣れている人は、.Value プロパティを省略するのは、なんとなく、見慣れないと感ずるはずです。

Excel VBAをある程度の使っている方は、Range オブジェクトの　.Value プロパティ、.Text プロパティ、.Value2 プロパティを使いこなしていくわけですが、.Value プロパティだけを省略するわけにはいかないはずです。可読性が落ちるという言い方をする人もいますが、エラーが発生するわけではないので、一般的には、慣習的なものとして考えてもよいです。

VBからとか、他の言語から、Excelを扱ったりすると、こうした省略したコードに思わぬエラーが返ることがあります。それは、間違いなく、.Valueプロパティなどのデフォルト・プロパティを省略したときに発生します。

ただし、厳密に言えば、.Valueプロパティは、デフォルト（Default = 標準)・プロパティではありません。デフォルト・プロパティは、非表示のプロパティの中の、[_Default]ですので、プロパティを省略すると、.Valueプロパティになるという仕様です。VBAには、明示的(Explicit)・暗黙的(Inexplicit)という言葉がありますので、.Value プロパティがない場合に、.Valueプロパティを付けた状態と同じになるので、Rangeオブジェクトの「暗黙のプロパティ」としています。

http://officetanaka.net/excel/vba/speed/s8.htm
「標準のプロパティであるValueプロパティを省略しない方がやや遅いようです。しかし、個々の所要時間では速い回もあり、結果として差はないと判断してもいいと思います。」

有名なVBAインストラクターのサイトのひとつですが、この著者は、「実行速度」に対して着目していますが、少なくとも、この問題は、「高速化」とは無縁のものです。

'------------------------------------------
''オートメーションを使った一例(通常は、Error は発生しません)
''ところが、場合によって、プロパティを見失うことがあります。

Sub Test1()
Dim xlApp As Object
Dim oBook As Object
Dim mPath As String
Const sFNAME = "TEST1.xls"
Set xlApp = CreateObject("Excel.Application")
mPath = xlApp.DefaultFilePath & "\" & sFNAME
Set oBook = xlApp.Workbooks.Open(mPath)
With oBook
　 MsgBox .Worksheets(1).Cells(1, 1)　'暗黙的( = .Value)
　 .Close False
End With
Set oBook = Nothing
Set xlApp = Nothing 'これは、絶対に忘れてはいけません
End Sub

お礼

うーん　汗
おばかな私にはよくわからないので
もっと勉強してみたいと思います。
ありがとうございます。

回答No.3

mitarashi

どちらも正しくないと思います。
正しくは下記の通りかと．．．
Sub test1()
Dim R As String
R = Cells(1, 1).value
MsgBox R
End Sub

Sub test2()
Dim R As Range
Set R = Cells(1, 1)
MsgBox R.value
End Sub
VBAが融通を利かしてくれるのに、頼りきらない方が良いと思います。
といいながら、Range("A" & i)が平気になっている自分がいます。

お礼

具体的にどこがどう正しくないのでしょうか？
無知すぎてよくわかりません。
すいません。

回答No.2

hallo-2007

No1です。貼り付ける部分を間違いました。
Sub test1()
Dim R As String
R = Cells(1, 1).Value
MsgBox R
R = Cells(1, 1).Row
MsgBox R
R = Cells(1, 1).Font.ColorIndex
MsgBox R
End Sub

Sub test2()
Dim R As Range
Set R = Cells(1, 1)
MsgBox R.Value
MsgBox R.Row
MsgBox R.Font.ColorIndex
End Sub

お礼

やっぱりどちらも同じ答えが返ってきます。

回答No.1

hallo-2007

こうしてみるとわかると思います。
MsgBox R
R = Cells(1, 1).Row
MsgBox R
R = Cells(1, 1).Font.ColorIndex
MsgBox R
End Sub

Sub test2()
Dim R As Range
Set R = Cells(1, 1)
MsgBox R.Value
MsgBox R.Row
MsgBox R.Font.ColorIndex
End Sub
どちらが適切というより、目的によって使い分けるということかと。

お礼

うーん
違いがよくわかりません