韓国ラーメン｢韓韓麺」です。
私は辛いものが苦手でしたが、この店の辛さがクセになり、通っているうちに今では多少辛いものを食べても汗一つかかないくらいになりました。
まぁそんなになっても別にしょうがないんですが…
(^_^;)
麺の種類が選べるのもいいですよ。太麺（うどんみたい），韓国細麺，中華麺の3種類から選択できます。個人的には"ビビン麺"にハマってます。舌が火を噴く辛さですが、なんとも言えないウマさがあってついつい頼んでしまいます。。
o(^-^)o
ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ
さて、前回の続きです。
関数式で「*」印を5行おきにプロットし、その印がついている行に一行ずつ行挿入していくマクロを作成します。今回と次回にわたってそのようなマクロを作成したいと思います。（使い捨てマクロがどんなものかを見ていただくためにとりあえずかけ足で一つ作ってみますね。。）
(1)前回使用したファイルを開きます。保存していなかった方は、前回ご紹介した手順でまずマクロを生成してください。
(2)[ツール(T)]→[マクロ(M)]→[マクロ(M)]。
(3)「マクロ」ウィンドウのマクロ名「行挿入」を選択して「編集(E)」。
(4)「ガイドシート(手順4)」のように直接編集。追加行の意味は以下の通り。
・act=act*2：Inputboxでユーザーが入力した数値を2倍します。
・Do Until～：「Loop」の前までの処理を､gyouの数値がactの数値とイコールになるまで繰り返します。
・gyou=gyou+1：gyouの値を1増やします。
・Loop：「Do Until」と対で使用します。
当然ですが、行挿入すると、対象となる全体の行数が1つ増えま
す。もし全部の行に1行ずつ挿入すると対象となる全体の行数が
2倍になるので、念のために対象行(actの数値)を2倍しておきま
す。Activeになっている行(gyouの数値)に1ずつたしていき、gyou
の数値がactの数値とイコールになるまでこれを繰り返します。
(5)[ALT]+F11でEXCELシートに戻り、A列を範囲指定し、[挿入(I)]→[列(C)]｡
(6)A1セルに「挿入Flag」と入力。次号で、この欄に「*」印を入力した行について行挿入を実施するマクロを完成させます。
今回作成したマクロでは、「Do Until ～ Loop」の間に、行を一行挿入した後、gyouの値を1増やしなさい、という命令しかしていませんので、例えばA1セルにカーソルを置いてこれを実行すると、次のようになるはずです。
まずダイアログボックスが出て来て、何行ある表なのか確認して来る。
ここで例えば「2」と入力すると、gyouの値が2*2=4になるまで行挿入を実行する。
実際には、gyouの値=actの値=4になったときには挿入終了なので、空白の行が3行挿入されるだけとなります。
次回は、このLoopの間に「If～」文を入れて「*」印を判別しながら行挿入を実行していくマクロへと進化させます。
<<ガイドシートURL>>
http://www.tcat.ne.jp/~ryu/PLE/Macro/53.pdf
