![[あすかぜ・ねっと]](/image/asukaze.png "あすかぜ・ねっと"){kind=small}
あすかぜ・ねっと- 題名・名前・本文は必ず入力してください。
- 題名は、できれば具体的な本文内容がイメージできるものにしてください。
- スパムよけのため、本文中に句読点記号が含まれていない場合にはエラーとなります。 「，」「．」ではなく「、」「。」を使ってください。
- [バグ][要望][質問][済][未] の分類は管理人が後から勝手に付加しています。 書き込み時は意識する必要はありません。
[685] 置換した後隣のセル連動
KEN [2022/05/26 15:48:32]
aaa2 2
aaa2 を aaa1に置換して後 隣のセルx 2したい
結果 aaa1 4 にしたい
マクロをお願いいたします。
Re: [685] 置換した後隣のセル連動
あすかぜ [2022/05/26 21:49:42]
こんな感じでしょうか。
for (y = 1; y <= Bottom; y++) {
if ([x,y] == "aaa2") {
[x,y] = "aaa1";
[x+1,y] *= 2;
}
}
カーソル列の中に "aaa2" があれば "aaa1" に変更し、1 つ右のセルを 2 倍にしています。
試してみてください。
Re: [685] 置換した後隣のセル連動
KEN [2022/05/27 09:17:56]
ご返答ありがとうございます。
123123123-aaa2
234234810-aaa2
284729837-aaa2
928374892-aaa2
234823787-aaa2
234283477-aaa2
を
123123123-aaa1 1 つ右のセルを 2 倍
234234810-aaa1 1 つ右のセルを 2 倍
284729837-aaa1 1 つ右のセルを 2 倍
928374892-aaa1 1 つ右のセルを 2 倍
234823787-aaa1 1 つ右のセルを 2 倍
234283477-aaa1 1 つ右のセルを 2 倍
にしたい場合は
どうすればよろしいでしょうか？
Re: [685] 置換した後隣のセル連動
あすかぜ [2022/05/27 19:43:21]
「セル内容に "aaa2" が含まれていれば、"aaa2" を "aaa1" に置換して右のセルを 2 倍にする」というように直してみました。
for (y = 1; y <= Bottom; y++) {
if (pos([x,y], "aaa2") > 0) {
[x,y] = replace([x,y], "aaa2", "aaa1");
[x+1,y] *= 2;
}
}
期待通りに動作するでしょうか。
Re: [685] 置換した後隣のセル連動
KEN [2022/05/30 09:45:34]
さすがです。
思った通りに動きました。
ありがとうございます。