- ベストアンサー
シート名の一部を変更する方法について
yuujgmnの回答
あまり詳しく状況が見えないのですが、 山田町(統計)、山田町(1期)、山田町(2期) というシート名を 浅野町(統計)、浅野町(1期)、浅野町(2期) に変更するという意味で作成しました。 ＊注意 １、シート名にある "("(カッコ) は半角であるという前提でマクロを書いていますが、もし全角ならば(1)(2)の部分の "("(半角) を "（"(全角)に変更してください。 ２、(1)部分の"山田町"の部分には今から変更する名前を、(2)の"浅野町"の部分には変更した後の名前を書いてください。 Sub シート名変更() Dim s As String For i = 1 To Sheets.Count s = Sheets(i).Name If Left(s, InStr(s, "(") - 1) = "山田町" Then '(1) Sheets(i).Name = "浅野町" & Mid(s, InStr(s, "(")) '(2) End If Next End Sub
関連するQ&A
- シート名変更のマクロ
QNo.4400605『エクセルでシート数を指定して挿入するマクロはどうやって作ったらいいでしょうか。例えばA1セルに挿入したいシートの数を入力するとその数のシートが作成されるというようなマクロを作りたいのですが』という質問をしてそれについては解決しましたが、作成されたシートの名前を1～40のような数字に変更するマクロが分かりません。作成するシートの枚数は決まってなく、25シートであったり、40シートだったりします。A1:A40に1～40と変更後のシート名を入力して、それをシート名に反映させるマクロは作れたのですが、毎回シート枚数が変わるので「インデックスが有効範囲にありません」と出てしまいます。型としては、元シートがあり、そこでシート数を指定しシートを挿入し、そのできたシートに数字の名前をつけたいと考えています。長々なりましたが教えて下さい。
- ベストアンサー
- オフィス系ソフト
- 一時的にファイル名、シート名を変えて処理することは出来ますか？
VBAを勉強中で、分からないので教えてください。 ２つのWorkbook間でCｏｐｙ、Pasteを繰り返し、必要なデータ を一覧に書込みするマクロを作成する時 Excelデータ（同じフォーマットでセルに入っているデータが少し ずつ違う）で、異なるファイル名、異なるシート名になってしまって いるものをマクロで処理をしたいのですが、VBAで書き込む時 にはWorkbooks("○○"）.Worksheets("○○")と指定しなくて は動作してくれないので、どのように指定したらいいか困っています。 「直前にアクティブだったWorkbook指定する」「先頭に位置する sheetを指定する」なんてコードがあれば、一番いいのですが、 そういうコードはあるのかもわかりません。 最終的には"あるセル"に入っているファイル名で保存してしまう ので、一時的に仮ファイル名、仮シート名に変えて、後に削除 して処理をすればいいかなとが思うのですが、どうやって処理 したらいいのかわかりません。 やりたい事をうまく説明出来ているかわかりませんが、ファイル名、 シート名が違う元のデータから、一覧表へ書き込むマクロを組み たいのです。その際の元データの指定方法を知りたい or 一時的 に名前を変えて処理する方法を知りたいです。 一覧表へ書込みをした後にメールで添付してその元データ （”あるセル”にファイル名変更したもの）を送り返したいのですが、 メールへ添付する事までマクロで出来ると助かります。マクロで そこまで出来ますか？これも合わせて教えていただけたらと思います。 つたない説明ですみませんが、よろしくお願いします。
- ベストアンサー
- Visual Basic
- EXCELで参照シート名含む計算式の変更マクロ
マクロを作成しておりますして、わかりづらいか質問もしれませんが宜しくお願いします。 (1)マクロを配布し先方（複数拠点）で持っているブックに変更をかけ たい。 (2)そのブック内には複数シートがあり、計算式で他シートを参照して いる。 (3)その計算式を変更かけたい。が(2)でいう参照シートのシート名を各 拠点にて変更しているので、計算式も変更後のシート名が入って いる。 例えば、 シート１のA1セルに「=（xxxxx）!B1/C5」という式を埋め込みたい。 ※（xxxxx）はシート名。 でも、（xxxxx）のシート名は拠点によってシート名がことなることが 問題。尚、シート名以降の計算式は全拠点共通。 そこで、こんなことがやれればのイメージですが イメージ１： シート１の他のセル(D1)で（xxxxx）と同じシート名を参照している 式が必ず存在している。拠点毎にシート名は異なるがセル(D1)の 場所は共通。 このセル(D1)の式からシート名を抽出し、上の「=（xxxxx）!B1/C5」 の（xxxxx）に入れて、シート１のA1セルにこの計算式を記載する マクロを作る イメージ２： もし「=（xxxxx）!B1/C5」の（xxxxx）部分に仮名称を入れたものを マクロでシート１のA1セルに書き込んだあと、各拠点にて（xxxxx） →それぞれ拠点で使っているシート名に置換する ような方法があ るか？（存在しない参照シート名のまま書き込むとファイル指定の ダイアログが開くので、開かないような汎用的な記述を一旦仮置き できないか？） 以上宜しくお願いしたします
- ベストアンサー
- その他MS Office製品
- 複数ファイルの同じ位置のセル内容を、それぞれファイル名・シート名にして保存したい
VBA初心者ですが、いろいろなＱ＆Ａを検索して、やりたいことの解決方法を模索しているのですが、私の疑問にドンピシャの回答が見つからず悩んでいます。 目的は、あるフォルダ内の、複数のランダムなファイル名のエクセルファイルについて、それぞれのファイルを開き、アクティブシートのＡ１セルの入力内容に基づき、そのシートの名前を変更し、ファイル名も変更して保存するという作業です。（例えば、Ａ１に「山田」と入っていたら、シート名も「山田」にして、「山田.xls」で保存する。） マクロの自動作成で、例えば「Ａ」というファイルは開いてシート名を変え、ファイル名を付けて保存するくらいのことはできるのですが、ファイル名がランダムに代わったり、ファイル数が複数になるとできません。 このようなマクロを作ることは可能なのでしょうか？。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 住所のセル分割について VBA
マクロについてお尋ねします。 A1のセル ●●市山田町１－１山田ハウス１１１号 のように町名と番地（全角数字）とアパート・マンション名が続けて入っているセルがいくつもあります。 これを B1→ ●●市山田町 C1→ １－１山田ハウス１１１号 ※住所を前から見ていき、全角数字（１～９）が出たらC1に分割 のように２つのセルに分割したいのです。 A1のセルで全角数字（１～９）のいずれかの数字が出たら その数字からC1に分割したいのですがどのようにすればいいのでしょうか。 町名と番地（１－１）の間にはなにもありません。 また番地までの住所の長さはまちまちです。 よろしくお願いいたします。
- ベストアンサー
- Microsoft ASP
- 統計を取る時の「郡」の扱いについて
業務上必要で、サービスの利用者の統計を取ろうと思って、過去の名簿から住所の部分を都道府県と区市町村の２つのみデータベースに入力しようと考えています。 しかし、たまに「郡」の入る住所があり、この扱いをどうするべきか悩んでいます。郡の場合、大抵はその下に複数の町名があり、統計上は町名で取ったほうが有益なのではないかと思われるからです。 正式の統計では、こういう場合、郡で取っているのでしょうか？ それともその下の町の名前で取っているのでしょうか？
- ベストアンサー
- 数学・算数
- エクセルのシート名変更で重複した時のvbaの処理
こんにちは。vba初心者です。 セルのA１を参照してシート名を変更するとき 名前が重複したら、A1に入力されている文字列の後に（2）とつけたいのですが、 その重複したときの処理ができません。 シート名を変更するところまではできました。 以下のvbaです。 Sub test() Dim aSheet As Worksheet For Each aSheet In Worksheets aSheet．Select aSheet．Name = Range("A1") On Error Resume Next Next aSheet End Sub これに付け加えるか全然違ってもかまいません。 何かよい方法を教えてください。 説明が不十分かもしれませんが、よろしくお願いします。
- ベストアンサー
- Visual Basic
- フォルダ内にある複数ブックのシート名の変更
エクセルのＶＢＡについて質問させて下さい。 現在、アクセス２０００でクエリをマクロのワークシート変換で 規定のエクセルブック（２０００）にエクスポートしています。 項目別なので３０以上のブックになっています。 これを毎月の更新で１２ヶ月分エクスポートします。 問題なのがクエリ名がシート名になっていますが、このシート名を 月によって変更したいのです。ブックが３０以上あるので手作業では 自分１人の作業だとやってしまうのですが、不在時に他の人にやって もらうには無理があるかなと・・・。 イメージとしては、マクロブックのコマンドボタンを押すと そのフォルダにある３０以上のブックの一番右にあるシートを マクロブックのセルＡ１に入力した月に変更し、変更したシート内の １行目の項目名の長さに合わせてセルの幅を変更し、項目名に色をつけるというイメージです。 今までは２項目くらいだったので手作業でやっていたのですが、 ３０以上になると手作業ではつらい状況です。 ＶＢＡは初心者なので答えをいただけると大変ありがたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 産地偽装、不正競争防止法について
産地偽装、不正競争防止法について 食品製造会社の者です。 例えばある市内に山田町と鈴木町があるとします（両町は隣接しており、小・中学同じ校区にある。 市内・県内では主に山田地区と認識されており山田小学校・山田中学が存在する） 山田町で饅頭を製造する会社Aが町名を入れた「山田饅頭」という商品を販売していて県内ではある程度の知名度があるとします。 鈴木町の饅頭屋Bが便乗する気があるのかないのかわからないが（同じ校区なので）、「山田饅頭」あるいは「山田ぜんざい」 「山田・・・」という商品を製造。・販売しているとします。 校区が同じ、地区が同じではあるが鈴木町の会社Bが「山田」という町名を使うのは問題ないのでしょうか？ 鈴木町は山田地区にあるので「山田」という町名ではなく、地域名を使っているからセーフなのでしょうか？ どなたかお知恵をお貸しください。よろしくお願いします。 町名、地域名、饅頭などは商標が取れないというのは理解しております。
- ベストアンサー
- その他（法律）
- シートコピーと値の転記 シート名変更マクロを
エクセル2010で マクロのご教授をお願いいたします。 BOOK1の Sheet1 A1～A10に 数値1000が入力されているとして Sheet1のシートのコピーを作成 Sheet1にもどり A1～A3の値だけコピーして 作業列C1に 値を貼り付け A1～A10 をクリアーにしたのちに ※↓が うまくいきません。 A1の値→ A8 A2の値→ A9 A3の値→ A10 に入力 させるマクロは どうなるでしょうか？ マクロの記録で いろいろと やってみましたが どうも ※の部分が うまくいきません どう考えてもエクセルに対しての 理解不足だと思われますが、ご教授のほどお願いします。 おこなった自動マクロの記録は↓です。 マクロの記録開始する 名前 シートコピー Sheet1を右クリックして移動またコピー コピーを作成にチェックをいれ OK コピーシートが作成される。 Sheet1をクリックしなおして A1からA3をコピー 作業列として C1に 形式を選択して貼り付け 値 A1～A10を delete でクリア C1～C3を選択 コピー A8に 形式を選択して貼り付け 値 マクロの記録終了。 あと Sheet1をコピーするさいに シート名を前日の日付に自動的に変更できればと いいなと 考えておりますが できるのでしょうか？ 例えば、本日でいえば シート名→ 0112 のような シート名を変更できればすてきだと おもいます。 どうぞ よろしくお願いします。
- 締切済み
- その他MS Office製品
お礼
ありがとうございました。教えていただいた方法で考えました。早い回答を本当にありがとうございました。