{"id":1516,"date":"2019-02-04T14:37:32","date_gmt":"2019-02-04T05:37:32","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1516"},"modified":"2019-04-09T00:37:02","modified_gmt":"2019-04-08T15:37:02","slug":"wsfunction-run-on-vba01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/wsfunction-run-on-vba01","title":{"rendered":"Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eVBA\u3067\u3001\u300cApplication.WorksheetFunction\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\uff08WorksheetFunction\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u306b\u542b\u307e\u308c\u3066\u3044\u306a\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b\u65b9\u6cd5\uff5e"},"content":{"rendered":"

Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eVBA\u3067\u3001\u300cApplication.WorksheetFunction\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\uff08WorksheetFunction\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u306b\u542b\u307e\u308c\u3066\u3044\u306a\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3092\u5b9f\u884c\u3059\u308b\u65b9\u6cd5\uff5e
\n\u3000\u3000<\/SPAN>
\n\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u306f\u3058\u3081\u306b<\/p>\n

\u300cApplication.WorksheetFunction\u30d7\u30ed\u30d1\u30c6\u30a3\uff08\uff1dWorksheetFunction\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u306b\u542b\u307e\u308c\u3066\u3044\u306a\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u300d\u3092\u3001\u3069\u3046\u3057\u3066\u3082\u4f7f\u3044\u305f\u3044\u5834\u5408\u304c\u306a\u3044\u308f\u3051\u3067\u3082\u306a\u3044\u305d\u3046\u3067\u3059\u3002
\n\u305f\u3068\u3048\u3070VBA\u95a2\u6570\u3067\u306f\u300c\u3084\u308c\u306a\u3044\u300d\u51e6\u7406\u304c\u3001\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u3067\u306a\u3089\u3067\u304d\u308b\u5834\u5408\u3001\u306a\u3069\u3060\u305d\u3046\u3067\u3059\u3002<\/p>\n

\u7d50\u679c\u304b\u3089\u8a00\u3046\u3068\u3001\u300cApplication.Evaluate\u300d\u30e1\u30bd\u30c3\u30c9\u3092\u4f7f\u3048\u3070\u3044\u3044\u3089\u3057\u3044\u306e\u3067\u3059\u304c\u3001\u8a73\u3057\u304f\u306f
\n\u2193\u3053\u3061\u3089\u306eWeb\u30da\u30fc\u30b8\u3092\u3054\u53c2\u8003\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

\u53c2\u8003\uff1a\u300e\u4fbf\u5229\u3060\u304b\u3089\u3068\u8a00\u3063\u3066\u2026.<\/a>\u300f<\/p>\n

\u3042\u3068\u306f\u30d8\u30eb\u30d7\u306e\u4ee5\u4e0b\u306e\u9805\u76ee\u3082\u3054\u53c2\u8003\u306b\u3002
\n\uff11\uff1aApplication.Evaluate \u30e1\u30bd\u30c3\u30c9
\n\uff12\uff1aChart.Evaluate \u30e1\u30bd\u30c3\u30c9\uff08\u4e0a\u8a18\u306e\u300c\u4fbf\u5229\u3060\u304b\u3089\u3068\u3044\u3063\u3066\u300d\u306e\u3053\u3068\u304c\u66f8\u304b\u308c\u3066\u3044\u307e\u3059\u3002
\n\uff13\uff1aWorksheet.Evaluate \u30e1\u30bd\u30c3\u30c9
\n\u3000\u3000\uff08\u3053\u3061\u3089\u3082\u4e0a\u8a18\u306e\u300c\u4fbf\u5229\u3060\u304b\u3089\u3068\u3044\u3063\u3066\u300d\u306e\u3053\u3068\u304c\u66f8\u304b\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n

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

\u2605 \u4f8b\u3048\u3070\u300cIF\u300d\u95a2\u6570\u3092\u6570\u5f0f\u3067\u4f7f\u3046\u5834\u5408
\n\uff08VBA\u5185\u3067\u4f7f\u3046\u3068\u8d64\u304f\u30a8\u30e9\u30fc\u306b\u306a\u308b\u3002\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u3067\u306f\u30a8\u30e9\u30fc\u3002\uff09<\/p>\n

\r\n'\r\n'\r\nIF(\"2019\/01\/01\"*1 < TODAY(),\"True\",\"False\")\r\n'\r\n'\r\n<\/pre>\n
\u203b \"2019\/01\/01\" \u3068\u3044\u3063\u305f\u3088\u3046\u306b\u3001\u65e5\u4ed8\u3092\"\" \u3067\u56f2\u3080\u3068\u3001\uff08\u6570\u5f0f\u5185\u3067\u306f\uff09\u57fa\u672c\u7684\u306b\u306f\u6587\u5b57\u5217\u3068\u3057\u3066\u5224\u65ad\u3055\u308c\u3066\u3057\u307e\u3044\u307e\u3059\u304c\u3001\u300c*1\u300d\u3057\u305f\u308a\u300c+0\u300d\u3057\u305f\u308a\u3059\u308b\u3068\u3001Excel\u306f \"\" \u3067\u56f2\u307e\u308c\u305f\u65e5\u4ed8\u3092\u300c\u6b63\u304f\u65e5\u4ed8\u30c7\u30fc\u30bf\u3068\u3057\u3066\u300d\u8a08\u7b97\u3057\u3066\u304f\u308c\u308b\u305d\u3046\u3067\u3059\u3002<\/p>\n
\u53c2\u8003\uff1a\u300e\u30a8\u30af\u30bb\u30eb\u95a2\u6570\u306e\u6280\uff1a\u65e5\u4ed8\u30c7\u30fc\u30bf\u306e\u51e6\u7406\u306b\u95a2\u3059\u308b\u6280<\/a>\u300f
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u2605 \u524d\u9805\u3068\u540c\u3058\u6570\u5f0f\u3092VBA\u3067\u4f7f\u3046\u5834\u5408\uff08\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u3067\u3082\u4f7f\u3048\u307e\u3059\u3002\u7279\u306b\u4ee5\u4e0b\u306e\u4e0a\u306e\u884c\u306e\u4f8b\uff09<\/p>\n
\r\n'\r\n'\r\nRange(\"A1\") = Application.Evaluate(\"IF(\"\"2019\/01\/01\"\"*1 < TODAY(),\"\"True\"\",\"\"False\"\")\")\r\n\r\nRange(\"A1\") = Application.Evaluate(\"IF(2019\/01\/01*1 < TODAY(),True,False)\")\r\n\r\n\r\n\r\n\u4f55\u3089\u304b\u306e\u5909\u6570 = Application.Evaluate(\"IF(\"\"2019\/01\/01\"\"*1 < TODAY(),\"\"True\"\",\"\"False\"\")\")\r\n\r\n\u4f55\u3089\u304b\u306e\u5909\u6570 = Application.Evaluate(\"IF(2019\/01\/01*1 < TODAY(),True,False)\")\r\n'\r\n'\r\n<\/pre>\n
\u203b\u300c Application.Evaluate\u30e1\u30bd\u30c3\u30c9 \u300d\u3092\u4f7f\u3046\u3068\u3001\u300cWorksheetFunction\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u542b\u307e\u308c\u3066\u3044\u306a\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2\u6570\u300d\u3092VBA\u5185\u3067\u5b9f\u884c\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u305d\u3046\u3067\u3059\u3002
\n\u30bb\u30eb\u306e\u6570\u5f0f\u306e\u5185\u5bb9\u3092\u305d\u306e\u307e\u307e\u4f7f\u3048\u3070\u3044\u3044\u306e\u3067\u3059\u304c\u3001\u305f\u3060\u3001\u6570\u5f0f\u5168\u4f53\u3092 (\"\u3000\") \u3067\u56f2\u307e\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u305d\u3046\u306a\u306e\u3067\u3001\u3082\u3057\u6570\u5f0f\u5185\u3067\u4f7f\u3063\u3066\u3044\u308b\u5834\u5408\u306f\u3001\u6b21\u306e\u3088\u3046\u306b\u66f8\u304d\u307e\u3059\u3002<\/p>\n
(01)\u300c\"\u300d\u3092\u300c\u30c6\u30ad\u30b9\u30c8\u3092\u56f2\u3080\u300d\u3068\u3044\u3046\u610f\u5473\u3067\u4f7f\u3063\u3066\u3044\u308b\u5834\u5408
\n\u3055\u3089\u306b\u305d\u306e\u6587\u5b57\u5217\u306e\u90e8\u5206\u3092\u300c\"\u3000\u3000\"\u300d\u3067\u56f2\u3081\u3070\u3044\u3044\u3088\u3046\u3067\u3059\u3002<\/p>\n
\r\n'\r\nSub test101()\r\n    Debug.Print Application.Evaluate(\"IF(\"\"2019\/01\/01\"\"*1 < TODAY(),\"\"True\"\",\"\"False\"\")\")\r\n    '\u3042\u308b\u3044\u306f\u3001\r\n    Debug.Print Application.Evaluate(\"IF(2019\/01\/01*1 < TODAY(),True,False)\")\r\n    '\u3042\u308b\u3044\u306f\u3001\r\n    Debug.Print Application.Evaluate(\"IF(\"\"2019\/01\/01\"\"*1 < TODAY(),True,False)\")\r\nEnd Sub\r\n'\r\n<\/pre>\n
\u5b9f\u884c\u7d50\u679c\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
True
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n(02)\u300e\uff08\"\u3000\"\uff09\u3067\u56f2\u307e\u308c\u305f\u6587\u5b57\u5217 \u300f\u306e\u4e2d\u3067\u3001\u3055\u3089\u306b\u305d\u306e\u4e2d\u306e\u6587\u5b57\u306e\u4e00\u90e8\u3068\u3057\u3066\u3001\u300c\u201d \u300d\u3068\u3044\u3046\u6587\u5b57\u3092\u4f7f\u3044\u305f\u3044\u5834\u5408
\n\u300c\"\u300d\u3068\u8868\u793a\u3057\u305f\u3044\u305d\u306e\u90e8\u5206\u3060\u3051\u300c\"\u300d\u30924\u3064\u4f7f\u3044\u307e\u3059\u3002<\/p>\n
\r\n'\r\nSub test101()\r\n    Debug.Print Application.Evaluate(\"CONCATENATE(\"\"aa\"\"\"\"aaa\"\",\"\"\u3044\u3044\u3044\u3044\"\",\"\"uuuu\"\")\")\r\n'\r\nEnd Sub\r\n<\/pre>\n
\u5b9f\u884c\u7d50\u679c\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
aa\"aaa\u3044\u3044\u3044\u3044uuuu<\/p>\n
\u203b\u8a73\u3057\u304f\u306f\u4ee5\u4e0b\u306eWeb\u30b5\u30a4\u30c8\u3082\u3054\u53c2\u7167\u4e0b\u3055\u3044\u3002
\n\u30c0\u30d6\u30eb\u30b3\u30fc\u30c6\u30fc\u30b7\u30e7\u30f3\u306e\u8868\u793a<\/a><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eVBA\u3067\u3001\u300cApplication.WorksheetFunction\u300d\u30d7\u30ed\u30d1\u30c6\u30a3\uff08WorksheetFunction\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\uff09\u306b\u542b\u307e\u308c\u3066\u3044\u306a\u3044\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u95a2 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1516"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1516"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1516\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1516"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1516"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}