![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと[909] ダイアルボックスで指定した文言と完全一致する列を削除したい
ちゅん太郎 [2025/06/19 10:29:56]
例えば、下記の場合、
ダイアルボックスに「ミカン」と入力したら、「ミカン」の列が削除されるようなマクロは可能でしょうか？
1行目 ミカン キウイ イチゴ
2行目 ・・・ ・・・ ・・・
Re: [909] ダイアルボックスで指定した文言と完全一致する列を削除したい
あすかぜ [2025/06/19 22:15:13]
次のようなマクロでどうでしょうか。
s = InputBox("削除する列名を入力してください。");
for (x = Right; x >= 1; x--) {
if ([x,1] == s) {
DeleteCol(x);
}
}
試してみてください。
Re: [909] ダイアルボックスで指定した文言と完全一致する列を削除したい
ちゅん太郎 [2025/06/20 12:17:14]
ありがとうございます！
追加で恐れ入りますが、
ダイアルボックスに「ミカン」と入力したら、
「ミカン」以外の列が削除されるようなマクロは可能でしょうか？
※ダイアルボックスでは改行区切りで残したい列名を複数指定したいです。
Re: [909] ダイアルボックスで指定した文言と完全一致する列を削除したい
あすかぜ [2025/06/20 21:28:27]
その場合は次のようなマクロを試してみてください。
import { arrayInputBox } from "lib/Array.cms";
array = arrayInputBox("残したい列名を改行区切りで入力してください。");
for (x = Right; x >= 1; x--) {
if (!array.includes([x,1])) {
DeleteCol(x);
}
}
Re: [909] ダイアルボックスで指定した文言と完全一致する列を削除したい
ちゅん太郎 [2025/06/23 13:07:11]
ありがとうございます！！！できました！！