ExcelFunction

構文
ExcelFunction
引数
戻値

プログラム

////////////////////////////////////////////////// // 【引数】 // // 【戻値】 // ////////////////////////////////////////////////// MODULE ExcelFunction CONST Excel = CREATEOLEOBJ("Excel.Application") FUNCTION ASC(str) RESULT = Excel.Evaluate("ASC(" + str + ")") FEND FUNCTION BAHTTEXT(num) RESULT = Excel.Evaluate("BAHTTEXT(" + num + ")") FEND FUNCTION CHAR(num) RESULT = Excel.Evaluate("CHAR(" + num + ")") FEND FUNCTION CLEAN(str) RESULT = Excel.Evaluate("CLEAN(" + str + ")") FEND FUNCTION CODE(str) RESULT = Excel.Evaluate("CODE(" + str + ")") FEND FUNCTION DATEVALUE(str) RESULT = Excel.Evaluate("DATEVALUE(<#DBL>" + str + "<#DBL>)") FEND FUNCTION YEN(num, digit = "") RESULT = Excel.Evaluate("YEN(" + num + ", " + digit + ")") FEND FUNCTION EXACT(str1, str2) RESULT = Excel.Evaluate("EXACT(" + str1 + ", " + str2 + ")") FEND FUNCTION FIND(str) RESULT = Excel.Evaluate("FIND(" + str + ")") FEND FUNCTION FINDB(str) RESULT = Excel.Evaluate("FINDB(" + str + ")") FEND FUNCTION FIXED(str, digit = "", separator = "") RESULT = Excel.Evaluate("FIXED(" + str + ", " + digit + ", " + separator + ")") FEND FUNCTION LEFT(str, num = "") RESULT = Excel.Evaluate("LEFT(<#DBL>" + str + "<#DBL>, " + num + ")") FEND FUNCTION LEFTB(str, byte = "") RESULT = Excel.Evaluate("LEFTB(" + str + ", " + byte + ")") FEND FUNCTION LEN(str) RESULT = Excel.Evaluate("LEN(<#DBL>" + str + ")") FEND FUNCTION LENB(str) RESULT = Excel.Evaluate("LENB(" + str + ")") FEND FUNCTION LOWER(str) RESULT = Excel.Evaluate("LOWER(" + str + ")") FEND FUNCTION MID(str, start, num) RESULT = Excel.Evaluate("MID(" + str + ", " + start + ", " + num + ")") FEND FUNCTION MIDB(str, start, num) RESULT = Excel.Evaluate("MIDB(" + str + ", " + start + ", " + num + ")") FEND FUNCTION PROPER(str) RESULT = Excel.Evaluate("PROPER(" + str + ")") FEND FUNCTION REPLACE(str, start, length, replace) RESULT = Excel.Evaluate("REPLACE(" + str + ", " + start + ", " + length + ", " + replace + ")") FEND FUNCTION REPLACEB(str, start, byte, replace) RESULT = Excel.Evaluate("REPLACEB(" + str + ", " + start + ", " + byte + ", " + replace + ")") FEND FUNCTION REPT(str, num) RESULT = Excel.Evaluate("REPT(" + str + ", " + num + ")") FEND FUNCTION RIGHT(str, num = "") RESULT = Excel.Evaluate("RIGHT(<#DBL>" + str + "<#DBL>, " + num + ")") FEND FUNCTION RIGHTB(str, byte = "") RESULT = Excel.Evaluate("RIGHTB(" + str + ", " + byte + ")") FEND FUNCTION SEARCH(str, target, start = "") RESULT = Excel.Evaluate("SEARCH(" + str + ", " + target + ", " + start + ")") FEND FUNCTION SEARCHB(str, target, start = "") RESULT = Excel.Evaluate("SEARCHB(" + str + ", " + target + ", " + start + ")") FEND FUNCTION SUBSTITUTE(str1, str2, str3, target = "") RESULT = Excel.Evaluate("SUBSTITUTE(" + str1 + ", " + str2 + ", " + str3 + ", " + target + ")") FEND FUNCTION T(num) RESULT = Excel.Evaluate("T(" + num + ")") FEND FUNCTION TEXT(num, format) RESULT = Excel.Evaluate("TEXT(" + num + ", <#DBL>" + format + "<#DBL>)") FEND FUNCTION TRIM(str) RESULT = Excel.Evaluate("TRIM(" + str + ")") FEND FUNCTION UPPER(str) RESULT = Excel.Evaluate("UPPER(" + str + ")") FEND FUNCTION VALUE(str) RESULT = Excel.Evaluate("VALUE(" + str + ")") FEND ENDMODULE

この記事は役に立ちましたか?
役に立った 役に立たなかった