
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で質問しましょう!
似たような質問が見つかりました
- 英語 和訳の手伝いをお願いします 2 2023/02/27 11:42
- 英語 Because growth factors regulate abundance of micro 1 2022/03/28 10:12
- Visual Basic(VBA) ExcelVBAで、型が一致しませんのエラーについて 3 2023/06/20 09:51
- PHP PHPSpreadsheetを使って関数を繰り返し埋め込みたい 1 2023/05/24 11:33
- X(旧Twitter) Twitterについて質問です。 他人のTwitterネーム(表示名ではなく、リプライに使う@xxx 2 2023/07/17 09:52
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- 英語 Because growth factors regulate abundance of micro 1 2022/03/31 09:32
- その他(開発・運用・管理) WindowsからSSHでサーバーにあるファイルをダウンロードできない…。 3 2022/04/24 11:08
- 英語 However, studies that investigate the biologic fun 1 2022/03/27 10:46
- Ruby Ruby / passenger のインストールについて 1 2023/01/30 18:31
このQ&Aを見た人はこんなQ&Aも見ています
-
Application.Matchで特定行の検索
Visual Basic(VBA)
-
エクセルVBAでApplication.SumとWorksheetFunction.Sum
PowerPoint(パワーポイント)
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
Application.Matchについて
Excel(エクセル)
-
6
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBA Application.Matchについての質問です
Visual Basic(VBA)
-
9
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
VBAでEmpty値って何ですか?
Excel(エクセル)
-
12
VBAで文字列を数値に変換したい
Excel(エクセル)
-
13
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
14
vbaでworksheetfunctionでの複数関数がエラーになります
Visual Basic(VBA)
-
15
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
16
matchプロパティを取得できません…と出ます。
PowerPoint(パワーポイント)
-
17
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
18
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
19
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
20
Excel MATCH関数で検索範囲内に同じ値の検索値が複数ある場合
Access(アクセス)
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
C言語で質問です。
-
scilabについて
-
書き込めない文字はどうすれば...
-
ShapeのVBAの中での取り扱い
-
fortran おそらく二重解法のエラー
-
Maximaでのエラーメッセージ
-
VBScriptのCreateFolderについて
-
pythonのコードエラーについて
-
VBA データ(特定値)のある最...
-
マクロOn Error GoTo ErrLabel...
-
Filter関数を用いた結果、何も...
-
ExcelにSQLの結果を表示
-
ExcelのVBAに詳しい方、教え...
-
お世話になってます
-
EXEL VBAで複数のsheetを指定す...
-
LaTeXのエラーについて(コンパ...
-
VBSCRIPTで返されるErr.Number...
-
ExcelVBAについて質問です。
-
変更履歴テーブルについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロOn Error GoTo ErrLabel...
-
UserForm1.Showでエラーになり...
-
お助けください!VBAのファイル...
-
VBAでfunctionを利用しようとし...
-
【VBA】ワークブックを開く時に...
-
String""から型'Double'への変...
-
文字列内で括弧を使うには
-
マクロで"#N/A"のエラー行を削...
-
Excel vbaについての質問
-
VBA データ(特定値)のある最...
-
On ErrorでエラーNoが0
-
インポート時のエラー「データ...
-
【VBAエラー】Nextに対するFor...
-
ACCESSで値を代入できないとは?
-
【Access】Excelインポート時に...
-
VBでSQL文のUPDATE構文を使った...
-
【VB.NET】 パワポ操作を非表示で
-
「実行時エラー '3167' レコー...
-
実行時エラー 438 の解決策をお...
-
実行時エラー'-2147467259(8000...
おすすめ情報