• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:秀丸マクロについて)

秀丸マクロで1から始まる数値を3行ごとに増やして出力する方法について

このQ&Aのポイント
  • 秀丸マクロを使用して、1から始まる数値を3行ごとに増やして出力する方法を教えてください。
  • 指定された形式でデータを作成するためのマクロを作成したいと思っています。ご教示いただけると幸いです。
  • マクロの中の特定の箇所をアドバイスしていただけると助かります。他のアイデアがあればお知らせください。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

こんにちは。 以下のようにすれば動きます。 3行目: #a = 1; → #a = 0; 5行目: insert str(#a/3 + 1); お試しください。 では。

rio_grande
質問者

お礼

space_needleさん、ご回答有難うございました。 無事にできました。 大変助かりました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 秀丸のマクロ

    マクロ全くの初心者です。 以下の秀丸のマクロを次のように変更したいです。 1連番の数字を記号$kの前ではなく後ろに。 2()は不要 3$sに入力した記号が出てきたら連番数字をはじめの1から連番にし、 これを繰り返す。 宜しくお願いいたします。 //----------------------------------------------// //Macro1 $k = input("記号は?"); $s = input("数字を1に戻す記号は?"); gofiletop; #i = 1; while( 1 ) { searchdown $k; if(!result) break; insert "("+str(#i)+")"; #i = #i + 1; } endmacro; //----------------------------------------------//

  • 簡単なマクロですが教えてください。

    マクロで、現在アクティブになっているセルのある行全体を選択し、 そこに行を追加(挿入)する。 その後、1行目にある行全体をコピーして、追加(挿入)した 行に1行目の数式をコピーしたいのです。 マクロの記録から作成しようとしたら、 毎回13行目に挿入・コピーするようになってしまいました。 例えば、マクロ実行時に5行目にアクティブセルがあれば、 5行目に挿入したいのです。 この方法を教えて頂けませんでしょうか。 現在の誤ったマクロ構文を付けますので、 どのように直したらよいか教えて頂けませんか。 何卒よろしくお願いいたします。 Sub osietekudasai() ' ' osietekudasai Macro ' ' Rows("13:13").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows("1:1").Select Selection.Copy Rows("13:13").Select ActiveSheet.Paste Application.CutCopyMode = False Range("A13").Select

  • 秀丸、またはSAKURAエディタでマクロを…

    Grepをかけて、 挿入:   作成年月日~ という行であればカウントせず、 挿入:   '作成年月日~ という行であれば数えて、その数を出力してくれるようなマクロを 作りたいと思っています。 挿入:(直後にスペースが入るが数は一定ではない)のすぐ後に アポストロフィがあれば、数えるようにしたいのです。 このようなマクロを、秀丸、またはSAKURAエディタで作るには どうしたら良いでしょうか? ご教授ください。

  • テキスト処理を秀丸マクロで

    各行のn番目からm番目までの 数値を下記のように置換したいのですが 秀丸マクロではどのようにすればよいのでしょうか? 置換法則 1 → 1,0,0 2 → 0,1,0 3 → 0,0,1 例 n=7 m=8 2,1,3,2,1,2,1,2 2,3,2,3,1,3,3,1 1,2,1,3,2,1,2,1 ↓(置換) 2,1,3,2,1,2,1,0,0,0,1,0 2,3,2,3,1,3,0,0,1,1,0,0 1,2,1,3,2,1,0,1,0,1,0,0 マクロで難しい場合はrubyなら多少は使えますので そちらでよろしくお願いします。

  • VBからマクロの実行について

    下記のようにVBよりエクセルマクロの実行を行っています。 マクロに引数を持たしたいのですが、以下のように記述すると 記述エラーが発生します。 引数をもっているマクロはVBから呼び出すことはできないのでしょうか? よろしくお願いいたします。 引数を持たせない場合はエラーが起こらない objExcl.Run ("Macro1.xls" & "!" & "Macro1") マクロ側に引数を持たして、以下のように記述するとエラーになる objExcl.Run ("Macro1.xls" & "!" & "Macro1(引数)")

  • 秀丸のマクロでいちいち表示を更新しないためには

    秀丸についてお教えください。 テキストファイルに、改行なく、文字がべたべたべた・・・と、 何万文字も入っています。 1行1文字にしたいので、右矢印キーとエンターキーを繰り返したいと思っています。 (なぜ置換を使わないのか、の説明は省きます。) マクロを使って、下記のような感じにすればいいと思っています。 #a = 100000; while(#a > 0){ right; insertreturn; #a = #a -1; } ですが、これを実行すると、いちいち表示を更新してくるため、遅いです。 私としては、「全置換」の「一気」の「スピードアップ」みたいに、 サササーッ という具合にやりたいのですが、どうすればよいでしょうか。 また、ついでに聞きますが、 上記のマクロで、100000のように数を指定しないで、「ファイルの終わりまで」みたいにやるにはどうすればよいでしょうか。

  • Excelのマクロで現在行を指定する方法を

    Excelのマクロで現在行を変えて、現在見ている行にする方法を教えてください。 下記は操作を記録させて作成したものですが、これを例えば、Excelの213行で実行させると 205行に196~203行が再度追加されてしまいます。 これを変えて、現在見ている例えば213行の前に196~203行を入れたいという場合はどうすればいいのでしょうか? つまり、Rows("205:205").Selectの205というのを、現在見ている行に変更できれば良いように思うのですが。よろしくお願いします。 Sub Macro3() ' Keyboard Shortcut: Ctrl+Shift+A   Rows("196:203").Select   Selection.Copy   Rows("205:205").Select   Selection.Insert Shift:=xlDown   ActiveWindow.SmallScroll Down:=9 End Sub

  • IF関数を使ってマクロを実行させるには?

    Excel2002のユーザーです。 実行させたいマクロを Macro1、Macro2 とします。 セルA1の値を参照して実行させたいマクロを選択するために =IF(A1=1,Macro1(),Macro2()) というようなことをやってみたのですがうまくいきません。 このようにIF関数を使ってマクロを実行させるにはどのような記述をすればよいのでしょうか。 凄く簡単なことかもしれませんが、ご教授をよろしくお願い致します。

  • 関数が含まれたセルの行をマクロで挿入する

    セルD2には、IF関数が含まれている、以下の表があります。2行目に行をマクロで挿入して大きな表を作成する予定です。        A       B       C      D      1    納入数   使用m数   納入m   使用m 2                           〔=if(B2>1,C2,"")〕 マクロは、以下のようにして、2行目に行を挿入したのですが、IF文が含まれたものが 挿入できません。どのようなマクロ文にしたらよいかわからず困っています。別シートからコピーする 方法も考えられますが、同じシート内で収めたいと考えています。宜しくお願いします。 Sub 行挿入() ' ' 行挿入 Macro ' ' Range("a2:d2").Insert copyorigin:=xlFormatFromRightOrBelow End Sub

  • 秀丸エディタのマクロ作成について

    改行マクロの作成に悩んでおります 例えば、下記のような文章があるとして 「今日は夜です。明日は日曜日です。犬も歩けば棒にあたります。ことわざです。」 を 「今日は夜です。 明日は日曜日です。 犬も歩けば棒にあたります。 ことわざです。」 のように、「。」を「。+改行」もしくは「。」を「改行」に置き換えるようなマクロが欲しいのですが、どのように作ったらいいのでしょうか? 勿論「。」に限定はしません ようするに、置き換え+改行をしてみたいのです insert や replaceall をうまく繋げるのでしょうか? ちょっと無茶かな?(^^:) どなたか宜しくお願い致します