![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと[784] 列の削除について
メイベル [2023/09/30 16:53:35]
いつもお世話になっております。
指定した文字列を含む「行」の削除のマクロを「列」を削除するマクロに変更したいのですがどうしてもうまく動きません。
1行目に2つおきに同じ文字列を含むセルが数十個あるのでその文字を含む列を全て削除したいのですが、DeleteRowを書き込むのが面倒で...
text = InputBox("削除する文字列を入力してください");
if(text == "") {
return;
}
for(y=Bottom; y>=1; y--) {
if(pos([x,y], text) > 0) {
DeleteRow(y);
}
}
これを列に書き換えたいのですがy を x に書き換えても動きませんでした。
ちなみにダイアログBOXに文字を入力するのではなく、他のマクロと一緒に動かしたいので、指定する文字をマクロに直接書き込みたいと思っております。
お手数ですがご教授願えますでしょうか...
よろしくお願いいたします。
Re: [784] 列の削除について
あすかぜ [2023/09/30 20:41:11]
次のようなマクロで、1 行目に「削除」が含まれる列を削除できます。
text = "削除";
for (x = Right; x >= 1; x--) {
if (pos([x,1], text) > 0) {
DeleteCol(x);
}
}
参考になるでしょうか。
Re: [784] 列の削除について
メイベル [2023/10/02 11:22:03]
ありがとうございます。私の勉強不足ですね...。助かりました！