[231] セルに文字列の追加
初心者 [2011/10/27 10:08:22]
いつもお世話になっております。
特定のセルにテキストを追加したいのですが、
その列のすべてに同じ文字列を追加したいと考えております。
但し、その列には、それぞれ別のテキストが入っているため、
その後ろに改行を入れ、テキストを挿入する形としたいです。
こちらは可能でしょうか。
お手数をお掛けいたしますが
どうぞ宜しくお願いいたします。
Re: [231] セルに文字列の追加
あすかぜ [2011/10/27 23:53:20]
次のようなマクロを作って実行してください。
for(y=1; y<=Bottom; y++){
[x,y] = [x,y] + "\n追加したいテキスト";
AdjustRowHeight(y);
}
よろしくお願いします。
Re: [231] セルに文字列の追加
初心者 [2011/10/28 12:27:38]
ご連絡ありがとうございます。
作成したマクロを実行してみたところ、
「L2 C99記号の位置が不正です」と表示されました。
原因をお教えいただけないでしょうか。
お手数をお掛けいたしますが
どうぞ宜しくお願いいたします。
Re: [231] セルに文字列の追加
初心者 [2011/10/28 12:29:23]
いつもお世話になっております。
追記となりますが、
お教えいただいたマクロの追加テキストには、
HTMLタグを挿入しているため「"」が複数存在します。
こちらが原因だとしたら申し訳ありません。
何卒宜しくお願いいたします。
Re: [231] セルに文字列の追加
あすかぜ [2011/10/28 22:22:16]
マクロの 2 行目の 99 文字目あたりに問題があるようです。
"" 内の文字列では、「"」は「\"」と、「\」は「\\」と書いてください。
for(y=1; y<=Bottom; y++){
[x,y] = [x,y] + "\n<div class=\"foo\">追加したいテキスト</div>";
AdjustRowHeight(y);
}
よろしくお願いします。
Re: [231] セルに文字列の追加
初心者 [2011/10/31 10:45:28]
お世話になっております。
ご連絡ありがとうございます。
お教えいただいた通り、設定をしてみたのですが、
「L3 C0 文字列定数が終了していません。」と表示されます。
何度も申し訳ありませんが、原因をお伺いできないでしょうか。
お手数をお掛けいたしますが
どうぞ宜しくお願いいたします。
Re: [231] セルに文字列の追加
あすかぜ [2011/10/31 22:55:46]
文字列定数というのは "" で囲んだ部分のことで、後ろの「"」が見つからないときにこのエラーが発生します。
最後の「";」は「\」をつけたりせずに書いてください。
また、文字列定数中には改行をそのまま書くことはできないので、改行させたい部分には「\n」と書いてください。
マクロを見やすくしたいときは、次のように適当な位置で区切って「+」でつなげることができます。
for(y=1; y<=Bottom; y++){
[x,y] = [x,y] + "\n"
+ "<html>\n"
+ " <head>\n"
+ " <title>あああ</title>\n"
+ " </head>\n"
+ " <body>\n"
+ " <div class=\"foo\">いいい</div>\n"
+ " </body>\n"
+ "</html>";
AdjustRowHeight(y);
}
Re: [231] セルに文字列の追加
初心者 [2011/11/02 11:04:55]
いつもお世話になっております。
すみません、マクロがどうしても正常に作動しないようです。
下記のレイアウトのテキストを挿入したいのですが、
先でご返信いただいたマクロのような、
ダイアログボックスに入力したテキストが追加挿入されるような機能は
作成していただけないでしょうか。
ご無理を申しまして申し訳ありません。
■追加したいレイアウトの例(空白の行は改行です)
<img src="123.jpg" style="float:left; margin:50px" />
<p style="overflow:auto; zoom:1;">
<b>〜test〜</b><br /><br />
test1<br />
test2<br />
test3<br />
<p style="clear:both"></p>
※先日いただいた[230] セル内の改行削除についてのお返事
「このマクロを使うほうが楽かもしれません。
実行するとダイアログボックスが表示されます。改行もそのまま入力して構いません。」
a = InputBoxMultiLine("検索文字列を入力してください。");
if(a == ""){
return;
}
b = InputBoxMultiLine("置換文字列を入力してください。");
for(y=1; y<=Bottom; y++){
for(x=1; x<=Right; x++){
[x,y] = replace([x,y], a, b);
}
}
お手数をお掛けいたしますが
どうぞ宜しくお願いいたします。
Re: [231] セルに文字列の追加
あすかぜ [2011/11/03 00:32:34]
こんな感じでどうでしょうか。
a = InputBoxMultiLine("追加する文字列を入力してください。");
if(a == ""){
return;
}
for(y=1; y<=Bottom; y++){
[x,y] = [x,y] + "\n" + a;
AdjustRowHeight(y);
}