VBAã§JScriptã®Arrayãªãã¸ã§ã¯ãã®ã¡ã½ããã使ã£ã¦ã¿ããµã³ãã«ã§ãã ãµã³ãã«ã§ã¯Sliceã¡ã½ããã使ç¨ãã¦ã¿ã¦ãã¾ãã Sub JSArraySample() Set objJS = CreateObject("ScriptControl") With objJS .Language = "JScript" .AddCode "function JSSplit(s,d){return s.split(d);}" .AddCode "function JSArrayLength(a){return a.length;}" End With æåå = "a,b,c,d,e" Set b = objJS.CodeObject.JSSplit(æåå, ",") Cells(1, 1).Value = b.slice(0, 1) Cells(1, 2).Va
{{#tags}}- {{label}}
{{/tags}}