• ベストアンサー

エクセルマクロ　シート名称変更について教えて下さい。

エクセルは通常Sheet1となってますが、それを数字でのみ表記しています。 シートのB1セルにシートと同じ番号が入ている状態です。 元になるシート（名前：moto）をコピーしていき、 シート番号もB1セルの番号も増やしたいのです。 今現在は Worksheets("moto").Visible = True No = Worksheets("moto").Cells(1, 2) Worksheets("moto").Copy Before:=Sheet1 Worksheets("moto (2)").Name = "new" Worksheets("new").Cells(1, 2) = No + 1 bangou = InputBox("シート番号を入力してください。") Sheets("new").Name = bangou とういように、InputBoxを利用してシートの数字を入力しています。 InputBoxを利用しない方法で自動でシート番号が増えていく方法はありますでしょうか？ マクロ初心者ですのでいろいろさわっているのですが うまくできません。 どうか教えて下さい。

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

  • ベストアンサー
  • ta123
  • ベストアンサー率51% (95/186)
回答No.1

マクロを１回起動するだけで複数枚コピーしたいのか１回の起動では１枚だけなのかよくわかりません。 とりあえず、１回の起動で１０枚シートをコピーしたいのであれば、ループさせることにより可能です。 例） Worksheets("moto").Visible = True No = Worksheets("moto").Cells(1, 2) For i = 1 To 10 Worksheets("moto").Copy Before:=Sheet1 Worksheets("moto (2)").Name = "new" No = No + 1 Worksheets("new").Cells(1, 2) = No Sheets("new").Name = No Next

kisuke_5
質問者

お礼

新規にできる番号をNoという名前にして、それをシート名にすればよろしいのですね。 マクロを変更してタメしてみます。 どうもありがとうございます。

kisuke_5
質問者

補足

回答ありがとうございます。１度で１枚のシートのコピーになります。

その他の回答 (2)

  • cucsna
  • ベストアンサー率23% (12/51)
回答No.3

No1の方の回答でうまくいくと思いますが、 もし、一度"new"というシート名にしたくないのであれば、このような感じでいかがでしょう？ Worksheets("moto").Visible = True No = Worksheets("moto").Cells(1, 2) Worksheets("moto").Copy Before:=Sheet1 Worksheets("moto (2)").Name = (No + 1) Worksheets(Format(No + 1)).Cells(1, 2) = No + 1　　'-- (1) Worksheets("moto").Cells(1, 2) = No + 1 '-- (2) と最初からシート名を数値にしてもいいと思います。 (1)数値のままWorksheets(No+1)とすると、No+1が数値と認識されてしまうので、Format関数で文字列に変換する必要があります。 (2)この関数を複数回実行する可能性があるのであれば、"moto"シートの値がカウントアップされないと、 　２回目の起動の際、シート名重複てエラーになってしまうので、B1の数値を変えておく必要があると思います。 ちょっとピントがずれた回答になっているかもしれませんが、少しでも参考になることがあればと思って、書き込みしました。

kisuke_5
質問者

お礼

Format関数を利用するという方法もあるのですね。 参考にしてつくらせていただきます。 早速の回答ありがとうございます。

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.2

シート[moto]にボタンでも貼り付けて、以下のコードを実行できるようにしてください。 ボタンを押すごとにシートが増えます。 Dim bangou As Long '現在のシート数を取得する bangou = ThisWorkbook.Sheets.Count '現在のシート数の後ろに新たなシートを追加する Sheets.Add after:=ThisWorkbook.Sheets(bangou) '番号を追加する bangou = bangou + 1 '追加したシート情報を設定する ThisWorkbook.Sheets(bangou).Range("B1") = bangou ThisWorkbook.Sheets(bangou).Name = bangou

kisuke_5
質問者

お礼

とてもむずかしそうなマクロですが、参考にして作らせていただきます。早速のご回答、ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセル２０００のマクロにおける、複数シート間のコピー＆ペーストについて

    閲覧ありがとうございます。 現在、エクセル２０００（OS、WIN2KPRO）を用いて、以下のような仕様のマクロを組もうとしています。 １．Sheet1のCommandButton1から実行する。 ２．Sheet2のA1セルから、O?セルまでのデータの入っているセルをコピーし、Sheet1のB4セル以下にペーストする。 ３．O?セルの？は1000以下の値で変化する。 ４．Sheet2のF列には、ユニークキーが入力される為、必ず値が入力されている。 上記の仕様に従い、以下のようなマクロを組みましたが、 ＞ Worksheets("Sheet2").Range(Cells(1, 1), Cells(Line_Num, 15)).Select のラインでエラーが発生します。 激しく独学の為、汚いソースですみません＾＾； **************************************** Private Sub CommandButton1_Click() Worksheets("Sheet2").Select Worksheets("Sheet2").Activate Dim Line_Num Line_Num = 1000 - WorksheetFunction.CountBlank(Range("F1:F1000")) Worksheets("Sheet2").Range("A1").Select Worksheets("Sheet2").Range(Cells(1, 1), Cells(Line_Num, 15)).Select Worksheets("Sheet2").Range(Cells(1, 1), Cells(Line_Num, 15)).Copy Worksheets("Sheet1").Select Worksheets("Sheet1").Activate Range("B4").Select ActiveSheet.Paste End Sub

  • マクロ：エクセルVBAでのワークシート関数の参照について

    VBA内でワークシート関数を使用する際の、引数の参照について困っています。 満たしたい条件は、 (1)マクロ実行後のシート上においても、セル選択状態で数式「=B1*sum(A1:A3)」 といったように、「値」ではなく、「数式」が入力されているようにしたい。 ↑ Application.WorksheetFunction.Sum(・・・は使えない？ (2)上記例のB1およびA1:A3については、マクロ内のユーザ入力によって位置が変わり、C1にもD1にもなり得るので、 cells(1,1)="=B1*sum(A1:A3)" といった「B1」[A1:A3]的な参照を使いたくない。 イメージとしては、 sub sample() number = inputbox("数字を入力してください") cell_a = inputbox("セル１") cell_b = inputbox("セル２") yourrange = range(cells(cell_a,1),cells(cell_b,1) cells(1,1)="=number*sum(yourrange)"・・・※ end sub みたいなことをしたいのですが、※のようなことを する方法はありますでしょうか？ 説明が下手なもので、補足等あれば随時いたします。 使用環境はWindows2000、Office2000です。 よろしくお願いします。

  • Excelのマクロについて

    sheetのB列からInputboxで入力した値を含むセルを1～複数個選択してフィルターする場合、どのようにすれば良いのでしょうか 一応自力で考えてみた結果、こんな感じになったのですが、上手くいきませんでした Range(B11).Select Myc=Inputbox(番号を半角数字で入力) Range("B11:B100").AutoFilter Field:=2, Criteria:=Myc 初心者なので、かなり雑な上に間違いだらけかもしれませんが、そこは勘弁して下さい よろしくお願いします

  • エクセルで複数のシートに罫線を引くマクロを教えてください。

    エクセルで複数のシートに罫線を引くマクロを教えてください。 エクセルの表を担当者名でシート分割後、空白セル以外に罫線を引きたいのですが 複数シートに罫線を引くマクロを教えてください。 いくつか参考にさせていただき現状以下の様になっています。 元データというシートにAからGまで項目があります PJNo. PJ名 棟No. 棟名 取引先名 　書類　　担当者 1111 PJ１ 10 棟１ 取引先１ 　1 東京 1112 PJ２ 11 棟２ 取引先２　 2 大阪 1113 PJ３ 12 棟３ 取引先３ 　3 名古屋 Sub 担当別シート作成() Application.ScreenUpdating = False For i# = 2 To Worksheets("元データ").Cells(2, 2).End(xlDown).Row j# = 1 '検索中の人のシートが既にできているかを判断する。 For Each sheet_name In Worksheets If sheet_name.Name = Worksheets("元データ").Cells(i, 7).Value Then j = 7 Exit For End If Next '検索中の人のシートがない場合、新規に作成する。 If j = 1 Then Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Worksheets("元データ").Cells(i, 7).Value For j = 1 To 7 Worksheets(Worksheets.Count).Cells(1, j).Value = Worksheets("元データ").Cells(1, j).Value Next j End If 'データのコピー For j = 7 To 1 Step -1 Worksheets(Worksheets("元データ").Cells(i, 7).Value). _ Cells(Worksheets(Worksheets("元データ").Cells(i, 7).Value). _ Cells(65535, 1).End(xlUp).Row + 1, j).Value = Worksheets("元データ").Cells(i, j).Value Next j Next i 'それぞれのシートの列幅を最適化します。 For Each sheet_name In Worksheets sheet_name.Columns("A:G").AutoFit Next '---- Dim c As Range Range("A1").Select Set c = Selection.SpecialCells(xlCellTypeLastCell) Range(Cells(1, "A"), c).Select （省略）以下罫線を引くマクロ End Sub

  • エクセル（マクロ）で累計部分を更新しながらシートを

    日報作成をマクロで自動化する方法を探しています。 とりあえずできたのは、 １：「1日」シートを作り、セルA1には日付「2015年9月1日」を入力。 ２：「1日」シートをコピーして「2日」シートを作成し、セルA1の日付を「2015年9月2日」に変更。 ３：２の作業を「31日」シートまで繰り返す。 というところまでです。 （１つのワークブックに、「1日」～「31日」までのシートがある状態です。） これに加えて、たとえば、セルB1に当日売上を入力すると、 セルB2に月累計が出るようにしたいのです。 試してみたのは、「1日」シートのセルB2に「＝B1」と入力し、 「2日」～「31日」シートのB2に =INDIRECT(TEXT(A1-1,"1日")&"!B2")+B1 と入力してみましたが、これだと月累計ではなく「1日」シートのみとの合計になってしまい、 「3日」～「31日」シートでは、数式内のシート名"1日"の部分を 手動で更新していかなければなりません。 数式内のシート名を翌日の日付に変更しながらシートをコピーする方法はありますか？ または、 B2＝前日シートのB2＋当日シートのB1 となる数式は無いでしょうか？？ ちなみに今マクロで使っているのは下記のコードです。 ——————————— Sub 日報作成() Dim firstDay As Date firstDay = InputBox("日報", "最初の日付を指定", Date) '最初のシートの日付を指定 Worksheets("1日").Range("A1") = firstDay Dim i As Integer For i = 1 To 30 Worksheets("1日").Copy after:=Worksheets(Worksheets.Count) '1日のコピーを末尾に作る Worksheets(Worksheets.Count).Name = i + 1 & "日" 'コピーしたシートの名前を変える Range("A1").Value = DateAdd("d", i, firstDay) '日付を一日ずつ足していく Next i End Sub ――――――――――― 似たようなデータを毎月大量に作るので、どうにか効率化できたらと思っています。 ちなみに、わたしはプログラミングCを少しかじったことがありますが、 マクロを使うのは初で、上記もネットで見つけたコードを少しいじった程度です、、 詳しい方がいらしたら教えてください。 よろしくお願いいたします。

  • ｅｘｃｅｌ　　マクロ表現

    atai_a = Worksheets("kensuu").Cells(5, 7) とおなじ意味の記述で Ａ１セルにシート名kensuu Ｂ１セルにセルアドレスが$G$5 （つまりCells(5, 7)と同等の情報） と入っているという前提で hensuua = Worksheets(cells(1,1)).xxx という表現は可能ですか。 そのときxxxはどのように記述できるのですか。

  • エクセルのマクロについてなのですが…

    現在マクロを使用して数字の入力を行おうとしております。 セルのB2は変数iを入力(例えば５を入力) 値を入力する範囲はセルのCells(1,1)からCells(i,1)(下記あ～お)に 1～iまでの数字を重複する事無く入力します。 なお、セルのCells(1,1)からCells(i,1)に入力する数字は Rndを使用して乱数にしたいのですが 乱数の入力までは何とか辿り着いたのですが どうしても重複してしまいます。 ネットで調べたのですが、コピレば使えるのですが マクロの意味が良く分からないので 出来れば行ごとの意味も教えていただきたいのですが… ワガママばかりで申し訳ありません。 A B C D 1 あ 2 い 5 3　う 4　え 5　お 6 ・ ・ ・

  • エクセルのマクロについて

    下記のようなプログラム組んでいます。 Sub 張付() Sheets("一覧表").Select Dim i As Long Dim ws1, ws2 As Worksheet Set ws1 = Worksheets("一覧表") Set ws2 = Worksheets("データー") For i = 5 To ws2.Cells(Rows.Count, 1).End(xlUp).Row ws1.Range("B5") = ws2.Cells(i, 2) 　　 'セルB5に氏名を入力 ws1.Range("C5") = ws2.Cells(i, 3) 　　 'セルC5に年齢を入力 ws1.Range("D5") = ws2.Cells(i, 4) 　　 'セルD5に電話番号を入力 この後、　ws1.Range("B5")のB5をB6にまた、C5はC6に改行してそれぞれデーターを移していきたい のですが、B5をB6に順次プラスする方法を教えて下さい。 よろしくお願いいたします。

  • エクセルマクロ　シート間の照合＿上書き

    マクロ初心者です。（エクセル２００３使用） Sheet2の管理番号をSheet1の管理番号と照合し、同じであれば、数量など３項目を上書きするマクロを作ろうとしています。 （Sheet1：日々更新される元データ）全データ数約500件くらい Ａ列　　　,Ｂ,　　Ｃ,　　Ｄ,　　　・・・ １行　管理番号,品名,注文数量,出荷数量,・・・ （Sheet2：上書きさせたいシート）全データ数約80件くらい Ｇ列　　　,Ｈ,　　Ｉ　　　Ｊ　　　　　 ９行　管理番号,品名,注文数量,出荷数量 ↑シート２にある管理番号をもとに数量などを照合＆上書きをしたいのです。 ■シート１も２も行数は日々変動します。 ■シート１で、まれに同じ管理番号が２つ存在することがありますが、取り出したい数量などのデータは、常に１番目に照合する管理番号です。 Sub シート間照合と上書き() Dim i As Integer a = Worksheets("sheet1").Range("a65536").End(xlUp).Row For i = 2 To a If Worksheets("sheet1").Range("A2") = Worksheets("sheet2").Range("G9") Then Worksheets("sheet1").Cells(1, i) = Worksheets("sheet2").Range("G9") Worksheets("sheet1").Cells(2, i) = Worksheets("sheet2").Range("H9") Worksheets("sheet1").Cells(3, i) = Worksheets("sheet2").Range("I9") While Cells(1, i) <> "" i = i + 1 Wend End If Next End Sub ■上記　模索しながらマクロを作ってみたのですが、エラーにはならないのですが（F8）、まったく動きませんでした。 すみませんが、お力をかしてください。 よろしくお願いいたします。

  • エクセルのマクロを教えてください。

    マクロの初心者です。 特に変数が全く使えず、下記もどのように記載していいのかわからないため教えていただけないでしょうか。 ユーザーフォームのtextbox2に開始番号があります。 textbox3に本数があります。 sheet1のB12セルには開始番号が入ります。 開始番号から本数分+1したものを順番にセルに入っていくようにしたいです。 ただ、入れたいセルが横→左下（開始番号の列）→横→左下（開始番号の列）・・・としたいため、どのように書いていいのかわかりません。 地道に書くのであれば、下記のようになると思うのですが、変数を使って書く場合はどのようになるのか教えていただけないでしょうか。 Worksheets("Sheet1").Range("B12").Value = TextBox2.Value If TextBox3.Value = 2 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 ElseIf TextBox3.Value = 3 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 Worksheets("Sheet1").Range("B13").Value = TextBox2.Value * 1 + 2 ElseIf TextBox3.Value = 4 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 Worksheets("Sheet1").Range("B13").Value = TextBox2.Value * 1 + 2 Worksheets("Sheet1").Range("G13").Value = TextBox2.Value * 1 + 3 ElseIf TextBox3.Value = 5 Then Worksheets("Sheet1").Range("G12").Value = TextBox2.Value * 1 + 1 Worksheets("Sheet1").Range("B13").Value = TextBox2.Value * 1 + 2 Worksheets("Sheet1").Range("G13").Value = TextBox2.Value * 1 + 3 Worksheets("Sheet1").Range("B14").Value = TextBox2.Value * 1 + 4 ・ ・ ・ End If

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する