{"id":738,"date":"2016-01-13T22:07:11","date_gmt":"2016-01-13T13:07:11","guid":{"rendered":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/?p=738"},"modified":"2016-06-11T13:54:23","modified_gmt":"2016-06-11T04:54:23","slug":"excelvba-speedup","status":"publish","type":"post","link":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/2016\/01\/13\/excelvba-speedup\/","title":{"rendered":"ExcelVBA: \u30b9\u30d4\u30fc\u30c9\u30a2\u30c3\u30d7\u3059\u308b\u305f\u3081\u306e\uff13\u3064\u306e\u65b9\u6cd5"},"content":{"rendered":"

[ad#top-1]
\n <\/p>\n

\u8077\u696d\u30d7\u30ed\u30b0\u30e9\u30de\u30fc\u3067\u306f\u306a\u3044\u4e00\u822c\u4eba\u304c\u6700\u3082\u591a\u304f\u89e6\u308c\u3066\u3044\u308b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u306f\u3001\u304a\u305d\u3089\u304fExcel\u4e0a\u3067\u8d70\u3089\u305b\u308b\u30de\u30af\u30ed\u3060\u3068\u601d\u3044\u307e\u3059\u3002\u8a00\u8a9e\u4ed5\u69d8\u306f\u30a4\u30de\u30a4\u30c1\u3067\u3059\u304c\u3001Excel\u81ea\u4f53\u306fMicroSoft Office\u306e\u4e2d\u3067\u4e00\u756a\u4f7f\u308f\u308c\u3066\u3044\u308b\u3053\u3068\u3082\u3042\u3063\u3066\u3001\u696d\u52d9\u52b9\u7387\u3092\u4e0a\u3052\u308b\u305f\u3081\u306b\u591a\u304f\u306e\u4eba\u304c\u30de\u30af\u30ed\u306b\u624b\u3092\u51fa\u3057\u3066\u3044\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u305f\u3060\u3001Java\u3084C#\u306a\u3069\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u6307\u5411\u8a00\u8a9e\u306b\u89e6\u308c\u3066\u304d\u305f\u50d5\u3068\u3057\u3066\u306f\u3001Excel\u30de\u30af\u30ed(VBA)\u3063\u3066Visual Basic\u7279\u6709\u306e\u66d6\u6627\u4ed5\u69d8\u304c\u3069\u3046\u3082\u6163\u308c\u306a\u3044\u4e0a\u306b\u3001\u901f\u5ea6\u304c\u9045\u3044\u3068\u3044\u3046\u3053\u3068\u304c\u5c11\u3005\u6c17\u306b\u306a\u308a\u307e\u3059\u3002\u3042\u3093\u307e\u308a\u901f\u5ea6\u3092\u6c17\u306b\u305b\u305a\u306b\u4f5c\u308b\u3068\u51e6\u7406\u306b\u7570\u69d8\u306a\u6642\u9593\u3092\u304b\u3051\u3066\u3057\u307e\u3046\u30b1\u30fc\u30b9\u304c\u3042\u308a\u3001\u4fbf\u5229\u306a\u53cd\u9762\u3001\u304b\u3048\u3063\u3066\u696d\u52d9\u52b9\u7387\u3092\u843d\u3068\u3057\u3066\u3057\u307e\u3046\u3053\u3068\u3082\u7a00\u306b\u3042\u3063\u305f\u308a\u3057\u307e\u3059\u3002<\/p>\n

\u305d\u3053\u3067\u3001Excel\u30de\u30af\u30ed\u3092\u6271\u3046\u4e0a\u3067\u3001\u30b9\u30d4\u30fc\u30c9\u30a2\u30c3\u30d7\u3059\u308b\u305f\u3081\u306e\u30c6\u30af\u30cb\u30c3\u30af\u3092\uff13\u3064\u7d39\u4ecb\u3057\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u30d9\u30f3\u30c1\u30de\u30fc\u30af\u3068\u3057\u3066\u4ee5\u4e0b\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u5373\u8208\u3067\u4f5c\u308a\u307e\u3057\u305f\u3002100,000\u56de\u306e\u51e6\u7406\u3092\u7e70\u308a\u8fd4\u3057\u305f\u5f8c\u3001\u51e6\u7406\u6642\u9593\u3092\u6307\u5b9a\u306e\u30bb\u30eb\u306b\u8a18\u9332\u3059\u308b\u30de\u30af\u30ed\u3067\u3059\u3002\u3053\u3053\u304b\u3089\u3069\u3046\u5de5\u592b\u3059\u308c\u3070\u51e6\u7406\u6642\u9593\u304c\u77ed\u304f\u306a\u308b\u304b\u8272\u3005\u8a66\u3057\u3066\u307f\u305f\u306e\u3067\u7d39\u4ecb\u3057\u307e\u3059\u3002<\/p>\n

\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Sub testA()<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt1 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0For i = 0 To 100000<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0j = Application.RoundDown((i + 5) \/ 3, 0)<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Range(“C3”<\/span>) = j<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Next i<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt2 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Range(“C4”<\/span>) = (dt2 – dt1) * 24 * 60 * 60<\/td>\n<\/tr>\n
End Sub<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n

 <\/p>\n

\u5bfe\u7b56\uff11\u3000\u5909\u6570\u5ba3\u8a00\u3059\u308b\u3000\u51e6\u7406\u6642\u959335%\u524a\u6e1b<\/h3>\n

\u6642\u9593\u5909\u6570\u306edt1, dt2\u3084\u3001i, j\u306a\u3069\u3092\u5ba3\u8a00\u305b\u305a\u306b\u4f7f\u3063\u3066\u3044\u307e\u3057\u305f\u304c\u3001\u3053\u308c\u3092\u3059\u3079\u3066\u5909\u6570\u5ba3\u8a00\u3059\u308b\u3068\u901f\u5ea6\u304c\u5411\u4e0a\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u304c\u305d\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u30b3\u30fc\u30c9\u3067\u3059\u3002\u50d5\u306e\u30d1\u30bd\u30b3\u30f3\u4e0a\u3067\u8d70\u3089\u305b\u308b\u3068testA\u306e\u6bd4\u3079\u51e6\u7406\u6642\u9593\u304c35%\u524a\u6e1b<\/strong><\/span>\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n

\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Sub testB()<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim i As Long<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim j As Double<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim dt1 As Date<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim dt2 As Date<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt1 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0For i = 0 To 100000<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0j = Application.RoundDown((i + 5) \/ 3, 0)<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Range(“D3”<\/span>) = j<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Next i<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt2 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Range(“D4”<\/span>) = (dt2 – dt1) * 24 * 60 * 60<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
End Sub<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n

 <\/p>\n

\u5bfe\u7b562\u3000Application\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f7f\u308f\u306a\u3044\u3000\u51e6\u7406\u6642\u95936%\u524a\u6e1b<\/h3>\n

Application.Round\u3068\u3044\u3046\u6a5f\u80fd\u3092\u4f7f\u3063\u3066\u3044\u307e\u3059\u304c\u3001Application\u3063\u3066Excel\u30b7\u30fc\u30c8\u306e\u95a2\u6570\u3092\u30de\u30af\u30ed\u4e0a\u3067\u4f7f\u3048\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3067\u3001\u3053\u308c\u304c\u51e6\u7406\u3092\u9045\u304f\u3057\u3066\u3044\u308b\u539f\u56e0\u306b\u3082\u306a\u3063\u3066\u3044\u307e\u3059\u3002\u7279\u306b\u30eb\u30fc\u30d7\u5185\u3067\u4f7f\u3046\u3068\u304b\u306a\u308a\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u3092\u843d\u3068\u3059\u3093\u3067\u3059\u3002\u3053\u308c\u3092\u5225\u306e\u5f62\u3067\u8a08\u7b97\u3059\u308c\u3070\u5730\u5473\u306b\u30b9\u30d4\u30fc\u30c9\u30a2\u30c3\u30d7\u3067\u304d\u305f\u308a\u3057\u307e\u3059\u3002\u4ee5\u4e0b\u304c\u305d\u306e\u4f8b\u3002\u51e6\u7406\u6642\u95936%\u306e\u524a\u6e1b<\/span><\/strong>\u304c\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n

\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Sub testC()<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim i As Long<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim j As Double<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim dt1 As Date<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim dt2 As Date<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt1 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0For i = 0 To 100000<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0j = Int((i + 5) \/ 3)<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Range(“E3”<\/span>) = j\u3000‘Application.RowndDown\u306e\u4ee3\u308f\u308a
\n<\/span><\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Next i<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt2 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Range(“E4”<\/span>) = (dt2 – dt1) * 24 * 60 * 60<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
End Sub<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n

 <\/p>\n

\u5bfe\u7b563\u3000\u753b\u9762\u63cf\u753b\u3092\u6b62\u3081\u308b\u3000\u51e6\u7406\u6642\u959387%\u524a\u6e1b<\/h3>\n

\u4eca\u56de\u306e\u30b1\u30fc\u30b9\u3067\u306f\u30eb\u30fc\u30d7\u5185\u3067\u30bb\u30eb\u3078\u306e\u66f8\u304d\u8fbc\u307f\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u3002Excel\u30de\u30af\u30ed\u3067\u306f\u30bb\u30eb\u306e\u8aad\u307f\u66f8\u304d\u3063\u3066\u7d50\u69cb\u9045\u304f\u3059\u308b\u8981\u56e0\u306b\u306a\u3063\u3066\u3044\u308b\u3093\u3067\u3059\u3002\u3067\u3082\u3001\u3069\u3046\u3057\u3066\u3082\u8aad\u307f\u66f8\u304d\u3057\u305f\u3044\u3068\u601d\u3063\u305f\u3089\u3001\u753b\u9762\u306e\u52d5\u304d\u3092\u30ed\u30c3\u30af\u3057\u3066\u3057\u307e\u3048\u3070\u3044\u3044\u3093\u3067\u3059\u3002\u5177\u4f53\u7684\u306b\u306f\u3001Application.ScreenUpdating = False<\/span> \u3068\u3084\u308c\u3070\u63cf\u753b\u304c\u6b62\u3081\u3089\u308c\u307e\u3059\u3002\u51e6\u7406\u304c\u7d42\u308f\u3063\u305f\u3089\u3001Application.ScreenUpdating = True<\/span> \u3068\u3084\u3063\u3066\u5143\u306b\u623b\u3057\u307e\u3059\u3002\u3053\u306e\u65b9\u6cd5\u306f\u304b\u306a\u308a\u51e6\u7406\u901f\u5ea6\u3092\u5411\u4e0a\u3055\u305b\u308b\u3053\u3068\u304c\u3067\u304d\u3001\u4eca\u56de\u306e\u30b1\u30fc\u30b9\u3067\u3044\u3051\u3070\u3001\u306a\u3093\u306887%\u3082\u524a\u6e1b<\/span><\/strong>\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n

\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
Sub testD()<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim i As Long<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim j As Double<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim dt1 As Date<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Dim dt2 As Date<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt1 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Application.ScreenUpdating = False
\n<\/span><\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0For i = 0 To 100000<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0j = Int((i + 5) \/ 3)<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Range(“F3”<\/span>) = j<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Next i<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0dt2 = Now()<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Range(“F4”<\/span>) = (dt2 – dt1) * 24 * 60 * 60<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
\u00a0\u00a0\u00a0Application.ScreenUpdating = True
\n<\/span><\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n
End Sub<\/td>\n<\/tr>\n
<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n

 <\/p>\n

\u3044\u304b\u304c\u3067\u3057\u305f\u3067\u3057\u3087\u3046\u304b\u3002\u5bfe\u7b56\uff11~\uff13\u3092\u3059\u3079\u3066\u76db\u308a\u8fbc\u3080\u3068\u3001\u5f53\u521d\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u6bd4\u8f03\u3057\u3066\u30ca\u30f3\u30c892%\u3082\u306e\u6642\u9593\u3092\u77ed\u7e2e\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3057\u305f<\/span><\/strong>\u3002<\/p>\n

\"a\"<\/p>\n

\u305c\u3072\u8a66\u3057\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

 
\n[ad#ad-1]<\/p>\n","protected":false},"excerpt":{"rendered":"

[ad#top-1]   \u8077\u696d\u30d7\u30ed\u30b0\u30e9\u30de\u30fc\u3067\u306f\u306a\u3044\u4e00\u822c\u4eba\u304c\u6700\u3082\u591a\u304f\u89e6\u308c … <\/p>\n","protected":false},"author":1,"featured_media":753,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-738","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-vba"],"aioseo_notices":[],"_links":{"self":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/738","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/comments?post=738"}],"version-history":[{"count":13,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/738\/revisions"}],"predecessor-version":[{"id":1804,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/posts\/738\/revisions\/1804"}],"wp:featuredmedia":[{"embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media\/753"}],"wp:attachment":[{"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/media?parent=738"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/categories?post=738"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pineplanter.moo.jp\/non-it-salaryman\/wp-json\/wp\/v2\/tags?post=738"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}