// VLookup.cms.cms 2017.11.27 by あすかぜ // キーを検索して値に変換するマクロを出力するためのエクスポートマクロです。 // // 1. キーと値が記述された CSV ファイルを開く // 2. このエクスポートマクロでエクスポートする // 3. 変換したい CSV ファイルを開く // 4. 2. で生成されたマクロを実行する // // という手順で利用します。 // 編集・再配布は自由です。 function escape(str){ str = replace(str, "\\", "\\\\"); str = replace(str, "\"", "\\\""); str = replace(str, "\n", "\\n"); return str; } key = InputBox("キー列の列番号を入力してください。"); if(key == ""){ return; } val = InputBox("置換文字列の列番号を入力してください。"); if(val == ""){ return; } Sjis(); writeln("x1 = InputBox(\"検索する列番号を入力してください。\");"); writeln("if(x1 == \"\"){"); writeln(" return;"); writeln("}"); writeln("x2 = InputBox(\"置換文字列を設定する列番号を入力してください。\");"); writeln("if(x2 == \"\"){"); writeln(" return;"); writeln("}"); writeln(); writeln("for(y=1; y<=Bottom; y++){"); for(y=1; y<=Bottom; y++){ write(" if([x1,y] == \""); write(escape(str([key,y]))); write("\"){ [x2,y] = \""); write(escape(str([val,y]))); write("\"; }"); writeln(); } writeln("}");