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.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側からインターフェースを通して利用しているせいだと考えます。
ただ、エラートラップという一つのオブジェクトを通すことになれば、それは、また別の時間が掛かる原因になると思います。
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.4
- 回答日時:
#2の回答者です。
単に古い書き方だけではありませんね。
この実際その違いを知って使っているわけですから、それを闇雲に、古いという理由だけで、
没にしてしまうという理屈は成り立ちません。実際のエラーの違いを認識すべきでしょうね。
#2の Sub TestMacro()が、なぜ、正しい結果を出さないか分かるなら、この問題は解決しているはずです。
エラーが出ないものならともかく、ワークシート関数の多くは、いろんな理由でエラーを返します。
それを単なるOn Error Resume Nextだけでは、失敗します。
WorksheetFunction で完全移行しているなら、誰もApplication.XXXX(関数) などはしません。実際のVBAをやっていない人には、分からない話だと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
エクセルVBAでApplication.SumとWorksheetFunction.Sum
PowerPoint(パワーポイント)
-
-
4
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
5
Application.Matchで特定行の検索
Visual Basic(VBA)
-
6
vbaでworksheetfunctionでの複数関数がエラーになります
Visual Basic(VBA)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
9
VBAの配列サイズとメモリに関して
Visual Basic(VBA)
-
10
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
11
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
変数を動的に作るには?
Visual Basic(VBA)
-
19
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
20
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
On ErrorでエラーNoが0
-
VBAでfunctionを利用しようとし...
-
Filter関数を用いた結果、何も...
-
HTMLソースが表示のページのも...
-
String""から型'Double'への変...
-
天狗のネタ帳でスクリプトエラ...
-
お助けください!VBAのファイル...
-
エクセルでリンクされたイメー...
-
検索Find処理を2重、3重とす...
-
インポート時のエラー「データ...
-
文字列内で括弧を使うには
-
Maximaでのエラーメッセージ
-
演算子が DBnull 及び integer...
-
VB6とVB.NETでNullの扱いが違う?
-
フランスの生年月日(jj/mm/aaaa)
-
実行時エラー 438 の解決策をお...
-
Python openpyxlを使用したセル...
-
教えてください。FTPアップロー...
-
マクロで"#N/A"のエラー行を削...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
文字列内で括弧を使うには
-
Pythonでの文字列からfloatへの...
-
String""から型'Double'への変...
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
2つほどお聞きしたいことがあり...
-
マクロで"#N/A"のエラー行を削...
-
Excel vbaについての質問
-
【VBAエラー】Nextに対するFor...
-
実行時エラー 438 の解決策をお...
-
実行時エラー'-2147467259(8000...
-
ACCESSで値を代入できないとは?
-
VBA データ(特定値)のある最...
-
「実行時エラー '3167' レコー...
-
【VB.NET】 パワポ操作を非表示で
-
マクロの「SaveAs」でエラーが...
-
ApplicationとWorksheetFunctio...
おすすめ情報