
http://oshiete.goo.ne.jp/qa/1341789.html
ここに同じような質問があるのですが
ワークシート関数をVBAで使いたい場合
Application.WorksheetFunction.xxxxx
WorksheetFunction.xxxxx
Application.xxxxx
の三つの方法があります、
これらはどのような違いがあるか教えてください。
上記のページによれば
97以上の書法
Application.WorksheetFunction.xxxxx
WorksheetFunction.xxxxx
古いVersionの書法
Application.xxxxx
らしいですが、
実際に計算速度を自作プログラムを使って比較したところ
Application.WorksheetFunction.Round
WorksheetFunction.Round
の速度がが同じで
Application.Round
がこれらと比べて3倍強遅い
という結果が得られました。
なぜApplication.xxxxxの方が遅いのでしょうか?
Application.xxxxx
を使うメリットはないでしょうか?
それでも他人が書かれたVBAコードを見ると
たまにApplication.xxxxxを見かけることがありますがなぜでしょうか?
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
#2の回答者です。
単に古い書き方だけではありませんね。
この実際その違いを知って使っているわけですから、それを闇雲に、古いという理由だけで、
没にしてしまうという理屈は成り立ちません。実際のエラーの違いを認識すべきでしょうね。
#2の Sub TestMacro()が、なぜ、正しい結果を出さないか分かるなら、この問題は解決しているはずです。
エラーが出ないものならともかく、ワークシート関数の多くは、いろんな理由でエラーを返します。
それを単なるOn Error Resume Nextだけでは、失敗します。
WorksheetFunction で完全移行しているなら、誰もApplication.XXXX(関数) などはしません。実際のVBAをやっていない人には、分からない話だと思います。
No.3
- 回答日時:
Application.WorksheetFunction.xxxxx
WorksheetFunction.xxxxx
のどちらも完全に同じ内容。
コーディングの手間を考えれば
WorksheetFunction.xxxxx
でよいと思う。
本来のオブジェクト ツリーでいえば xxxxx の位置は Application の下の WorksheetFunction の下にあるため、Application.WorksheetFunction.xxxxx の書き方となる。
しかし Application の部分はデフォルトで VBA によって読み込まれているため省略が可能である。
Dim mySheet As Excel.Worksheet
Set mySheet = Application.ThisWorkbook.Worksheets(1)
と書かず
Dim mySheet As Worksheet
Set mySheet = ThisWorkbook.Worksheets(1)
と書くのと同じ。
質問者自ら調査もし、
Application.xxxxx
という書き方が 「古い」 との情報を得ているはず。
しかも 「Excel 97 よりも前の書き方」 という事も十分に推測できているはず。
さらに実効速度も 3倍遅いという情報まで仕入れてある。
上記のことから、そもそも候補に入れるものではないことは考えられませんかね。
> それでも他人が書かれたVBAコードを見ると
> たまにApplication.xxxxxを見かけることがありますがなぜでしょうか?
未だに、そしてこれからも Application.xxxxx と書かれたコードが生産され続けているのであれば、その作者が勉強した当時の古い情報のまま進化していないってだけ。
過去に作って掲載したコードであれば、掲載し続けているコードが時代とともに自動的に最新の状態になるはずない。単なる 「当時書かれたコード」 ってだけ。
No.2
- 回答日時:
こんにちは。
リンク先にか書かれていた通りだと思いますが、あまり、細かい仕様末節についての疑問は、自分のプログラミングの方向性を変えてしまいかねませんから、ほどほどにしておいたほうが良いかもしれませんね。
ret = Application.xxxxx
とした時に、エラー値として返るので、IsError で、それを捉えることができるのが、最大のメリットです。
実行時エラーにはなりません。
buf1 = Application.Match(buf, ar(), 0)
If IsError(bufar1) Then '←エラー処理として、これだけで済みます。
ar(n) = buf1
n = n + 1
End If
掲示板以外の実際の現場では、WorksheetFunction を省略しないほうがよいと言われますが、エラー処理を含めたコードは、必然的に長くなります。以前は、古い書き方をすると、いつ、変更になるか分からないから、と言われましたが、あれから15年近くなりますがの一向に変わりませんね。
On Error トラップを設けるというのは、それ自体は当然ですが、エラー処理として、goto ErrorHandler などとすれば、コードが上下しますので、読みにくさもあります。基本的に、エラートラップは、絞り込めたほうがよいと思うのです。
VBAユーザーでOn Error トラップを本当に理解して使っている人がどのぐらいいるのか、疑問に思えることがあります。安易に、On Error Resume Next を使ってしまうのです。
セルのA1:A10 まで、このような、文字と数字の混在のデータがあるとします。
a
1
b
2
c
3
d
4
e
5
'//
Sub TestMacro()
Dim mTotal As Long
Dim i As Long, j As Long
i = 1
On Error Resume Next
Do
j = WorksheetFunction.Match(i, Range("A1:A10"), 0)
If j > 0 Then
mTotal = mTotal + Cells(j, 1).Value
End If
i = i + 1
Loop While i <= 10
On Error GoTo 0
Debug.Print mTotal
End Sub
'//
このマクロの答えは、いくつでしょうか?
「40」
このぐらいのミスは、ひと目で見つけてほしいものですが、掲示板で書いている人の中には、さっぱり分っていない人もいるのです。
>Application.WorksheetFunction.xxxxx
>WorksheetFunction.xxxxx
これは、基本的に同じだと思います。
Excelを使っていれば、WorksheetFunction の親オブジェクトにApplicationがあります。
>なぜApplication.xxxxxの方が遅いのでしょうか?
ともかく、こちらでも論より証拠で測ってみました。
Declare Function timeGetTime Lib "winmm.dll" () As Long
を使い、計算内容は、B列全体、ランダムな3桁または4桁の数字で、合計のSUM関数を用いました。
32948674- 32948643 = 31 ...WorksheetFunction.Sum(Range("B:B"))
32988516- 32988469 = 47 ... Application.Sum(Range("B:B"))
同じ数値を、.Round(Cells(i, 2).Value / 10, 0)
でやってみると、
32280198 - 32266907 = 13291 ...Application.Round( x / 10,0)
32327201 - 32317747 = 9454 ...WorksheetFunction.Round( x / 10,0)
想像の範囲ですが、Excel側からインターフェースを通して利用しているせいだと考えます。
ただ、エラートラップという一つのオブジェクトを通すことになれば、それは、また別の時間が掛かる原因になると思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【教えて!goo ウォッチ 人気記事】風水師直伝!住まいに幸運を呼び込む三つのポイント
記事を読む>>
-
matchプロパティを取得できません…と出ます。
PowerPoint(パワーポイント)
-
Application.Matchで特定行の検索
Visual Basic(VBA)
-
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
4
エクセルVBAでApplication.SumとWorksheetFunction.Sum
PowerPoint(パワーポイント)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
VBAでのMATCH関数の使用
Visual Basic(VBA)
-
11
全ての変数を一気にリセットする方法はありますか?
PowerPoint(パワーポイント)
-
12
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
13
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
14
VBAで、なぜかSendkeyが効きません。
PowerPoint(パワーポイント)
-
15
vlookup関数の引数を変数で指定することはできますか?
Excel(エクセル)
-
16
配列の値を置換するにはどうすればいいでしょう?
Excel(エクセル)
-
17
Application.Matchについて
Excel(エクセル)
-
18
配列でデータが入っている要素を求める方法
Visual Basic(VBA)
-
19
VBA エラー回避を教えてください。ループ内のMatchで値がないと止まってしまいます。
Excel(エクセル)
-
20
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
【VBA】ワークブックを開く時に...
-
5
インポート時のエラー「データ...
-
6
UBoundに配列がありませんとエ...
-
7
エクセルVBA 「On Error GoTo...
-
8
pythonのopenpyxlについて
-
9
マクロの「SaveAs」でエラーが...
-
10
VBA データ(特定値)のある最...
-
11
On ErrorでエラーNoが0
-
12
エクセル 足し算引き算で 空...
-
13
実行時エラー'-2147467259(8000...
-
14
ACCESS97 実行時エラー '2455'...
-
15
ActiveCell.FormulaR1C1の変数
-
16
.VBSだとADODBのプロバイダが見...
-
17
エクセルVBAで#N/Aのようなエ...
-
18
実行時エラー 438 の解決策をお...
-
19
worksheetFunctionクラスのVloo...
-
20
「実行時エラー '3167' レコー...
おすすめ情報
公式facebook
公式twitter