• ベストアンサー

秀丸 or エクセル:マクロ作成依頼

neko2の回答

  • neko2
  • ベストアンサー率58% (18/31)
回答No.2

これでどうでしょうか //おきかえマクロ moveto 0,0; while(1){ $maru1 = gettext(x,y,x+2,y); $maru2 = gettext(x,y+1,x+2,y+1); right 1; insert "\t"; if(($maru1 == "○") && ($maru2 == "○")){ insert "★"; } golinetop; down; if(!result )break; } // end

Ovoro
質問者

お礼

ありがとうございました。 お礼が遅くなって、申し訳ありませんでした。 こうして教えていただくと、なんだ、そうか、、、と納得できるスクリプトなのですが、自分で書くとなかなか上手く動かないのです。

Ovoro
質問者

補足

お二人とも、大変にありがとうございました。 やりたい作業に間に合ったわけですので、先にお答え頂いた方に20ということで、お許しください。

関連するQ&A

  • 秀丸マクロ作成のご依頼

    閲覧して頂きありがとうございます。 下記のようなある条件を元に連番を付与するマクロを 秀丸で作成可能でしょうか? 秀丸のバージョンは問いません。 何か不明な点などあれば補足させて頂きますので よろしくお願いいたします。 ■条件 1.行末に「-start」がある行から行頭に連番をつける。   ただし、行末に「-x」がつく場合は連番はつけない。 2.行末に「-end」がある行で連番付与は終了 3.以降同じ処理を繰り返す ■例: ※「_」は半角スペースです。 <元のテキストデータ> ____AAA ____BBB ____CCC-start ____DDD ____EEE-x ____FFF-x ____GGG ____HHH-end ____III ____JJJ ____KKK-start ____LLL-end <変換後のテキストデータ> ____AAA ____BBB 1____CCC-start //連番開始 2____DDD ____EEE-x //除外 ____FFF-x //除外 3____GGG 4____HHH-end //連番終了 ____III 1____JJJ-start //以降繰り返し 2____KKK 3____LLL-end

  • 秀丸マクロについて

    行頭にスペースやタブが0~n個あり、続いて「//」がある行の行頭に 「p」と付与する秀丸マクロを作成したいのですが、 このような場合はどうすればよいでしょうか? 参考になるコードやサイトなどあれば教えて頂けないでしょうか? 例: <タブ><半角スペース><半角スペース>//AAA <タブ><タブ>BBB<タブ>//CCC //DDD EEE<半角スペース><半角スペース>//FFF ↓ p<タブ><半角スペース><半角スペース>//AAA <タブ><タブ>BBB<タブ>//CCC   ←条件に合わないので「p」はつけない p//DDD EEE<半角スペース><半角スペース>//FFF   ←条件に合わないので「p」はつけない

  • 秀丸エディタのマクロ整形1

    秀丸エディタのマクロ整形1 秀丸 整形&連続&引用マクロ Ver.2.15 作者 noro 1999/03/09 をダウンロードしました。 ●(Q08)整形の桁折りの位置を70に固定していますが、変更するのは、どうしますか? ●(Q09)現在の秀丸エディタのバージョンで、マクロは、問題無く動くでしょうか? ●(Q10)現在、noroさんのメールアドレスは、現在登録されてなく連絡出来ません。新しい連絡先を誰かご存知でしょうか? ●(Q11)報告書などの整形マクロを使いたいのですが、このマクロ以外に皆さんのお気に入りのマクロを教えていただけませんでしょうか?  たとえ、一つだけでも、お知りのことが有りましたら、よろしく教授方お願いします。 敬具

  • EXCELのマクロにて

    EXCELのにて連続したデータを入力したデータベースがあります。(行が5000、列がAAまで) このデータベースのデータの最終行だけを指定して違うシートにコピー・貼り付けがしたいのです。 マクロにてこのような作業をするときにはどういった文をかけばよいですか。

  • ワードorエクセルで原稿用紙の作成

    原稿用紙をパソコンで作ってプリンタで出力したいです。 表示→作業ウィンドウ→標準のテンプレート→論文・報告書タブ→原稿用紙ウィザードで A4 縦 20文字×20行の マス目付きの用紙は出来たのですが、 20行を25行にすることは可能でしょうか? ご存知の方いらっしゃいましたら宜しくお願いします。 ワード・エクセル共にバージョンは2002です。

  • エクセルのマクロの制限

    エクセルで以下のようなタブとスペースを削除するマクロを実行したところ Sub Tab_Clear() Selection.Replace what:=" "+Chr(9), replacement:="" Selection.Replace what:=" ", replacement:="" End Sub 上のほうは削除されるのですが後のほうの行は削除されません、制限があるのでしょうか? また全行削除する方法はないでしょうか?

  • 重複するデータを抽出できる秀丸マクロ

    今、重複を含む長大なメールアドレスのリストを扱っています。(100万件以上あります) 一行に一アドレスで約100万行あるのですが、ここから重複している分を抽出したリストを作りたいと思っています。 Excelで開けないファイルですので、秀丸エディタのマクロで解決できないかな、と思っています。 自分でマクロを書いたことはないので、この用途に使えるマクロなど紹介していただけると助かります。 宜しくお願い致します。

  • エクセルのショートカットORマクロ

    お世話になります。 XP/エクセル2003使用です。 早速ですが、質問させていただきます。 エクセルのショートカットで、 同じ値の最後のセルまでセル範囲を選択するショートカットを探しています。 -------- 同じ値の1個目のデータが複数行に渡ってあります。 そして、1個目のデータに続いて、1個目とは異なる値の2個目のデータが複数行に渡ってあります。 3個目以下同じ繰り返しです。 例えば、A列の 1~800行目  あああ 801~1100行目  いいい 1101行目~1205行目 ううう 1206行目~1310行目 えええ 1310行目~1499行目 おおお  同じ値が入力された連続する行の数に規則性はありません。  また、異なる値の個数も作業の都度変わります。(”あああ”などの値の個数のことです) エクセルのショートカットで、 入力された最後のセルを探すのは、 「Ctrl」+「Shift」+「↓キー」で可能ですが、 同じように、同じ値が入力された最後のセルまで 何かのショートカットでセル範囲の選択をできますでしょうか? または、マクロで記述するとすると どのようなコードになりますでしょうか? 作業としましては、 A1セルを選択した状態でA800セルまでセル範囲を選択し、ある作業をします。 次に、A801セルを選択した状態でA1100セルまでセル範囲を選択し、上記と同じ作業をします。 これの繰り返しです。 行数が多いので、セル範囲を選択するときに スクロールで上手く上下させることができず面倒になっています。 よろしくお願いします。

  • エクセル2003のマクロ作成の件

    同一連続セルにあるグループの中で、D列に「完了」があれば、F列に「4」を入力し、その同一連続セル内で、検索し、D列の対応中を探します。その「対応中」の先頭が、完了にした担当者と同じであれば、「9」を。違えば、「0」を。完了は、同一セル内の最後にきていない事もあります。該当しない時や単一セルの時は、何もせず、空白のままにします。A列には、空白行がなく、3万行ほどあります。特定文字を探し、その1行上を探すなどののマクロはできるのですが、条件が重なると、作成が出来ません。今まで、手動で、数値を入れていたのですが、マクロで作成出来ないものでしょうか?マクロ初心者です。

  • エクセルのマクロを教えて下さい

    csvファイルなのですが、ファイルサイズが大きくて、エクセルでは全部を開くことが出来ません。 csvファイルを開くことなく、指定行から指定行までを取り出すようなマクロを教えて下さい。 なおエクセルは、エクセル2000を使用しています。 (会社の指定でエクセル2000以降のバージョンは使えません)