ベストアンサー VBA 今アクティブになっているシート名を変更するには? 2004/10/18 13:22 今アクティブになっているシート名が分かっていないときに、そのシート名を”AAA”に変更するにはどうすればよいのでしょうか? みんなの回答 (2) 専門家の回答 質問者が選んだベストアンサー ベストアンサー arata ベストアンサー率49% (139/279) 2004/10/18 13:26 回答No.1 ActiveSheet.Name = "AAA" 質問者 お礼 2004/10/19 18:33 回答ありがとうございます。 打ち込みミスでうまくいかなかったようです。 通報する ありがとう 0 広告を見て他の回答を表示する(1) その他の回答 (1) ta123 ベストアンサー率51% (95/186) 2004/10/18 13:26 回答No.2 以下でできます。 ActiveSheet.Name = "AAA" 質問者 お礼 2004/10/19 18:33 回答ありがとうございます。 通報する ありがとう 0 カテゴリ [技術者向] コンピュータープログラミング・開発Visual Basic 関連するQ&A EXCELの現在シート名の変更 いつもお世話になっております。 excelで、現在開いているシート名をVBAで変更しようとしているのですが、なかなかうまく行きません。 と言うのも、シート名がわかれば、名称変更は簡単なんですが・・・アバウトに 「現在選択されているシート名をAAAに変更する」 といったことは可能なんでしょうか? 宜しくお願い致します。 EXCELでシート名を変更できなくしたい。(VBAです) こんにちは。 タイトルの通りなのですが、EXCELでセルの内容の変更はOKで シート名のみ変更できなくしたいのです。 もしくは変更されたら「シート名は変更できません」等のメッセージを出して、元のシート名に戻すと言うのでも結構です。 どのように、またどこに(それぞれのシートのオブジェクトのところ???)書けばいいのか教えて下さい。 VBA シート名とファイル名とフォルダ名を一度に変更したい こんばんは。 現在のアクティブセルに入力された文字列「(例)0001」を入力するとシート名、ファイル名、フォルダ名が変更するVBAを作成しています。 シート名の変更は出来たのですが、ファイル名とフォルダ名の変更が上手くいきません。 大変恐れ入りますが、伝授いただけないでしょうか。 よろしくお願い致します。 Sub シート名変更() Dim シート名 As String シート名 = ActiveCell.Value If シート名 = "" Then MsgBox "文字列を含むセルを選択してください。" Exit Sub End If ActiveSheet.Name = シート名 End Sub シート名を変更してもVBAでエラーにならないように VBA初心者です。 VBAで複数のシートを選択するという動作を行う時、シート名を変更するとエラーになってしまうのですが、どうすれば回避できるのでしょうか?オブジェクト名?が使用できるらしいのですが、エラーになってうまく動作しません。指定の仕方を変える必要があるのでしょうか? 例えば、 Sheets(Array("第1週", "第2週", "第3週", "第4週", "第5週")).Select Sheets("第1週").Activate と記述してあって、シート名の"第1週"を"9月1日"とかに変更したら、当然エラーになりますが、 左のプロジェクトエクスプローラにある、Sheet1(第1週)の名前の変わらないオブジェクト名"Sheet1"の方で指定したいと思うのですが、単純に名前を置き換えても動作しません。どのように指定すればよいのでしょうか? VBA,シート名を変数で変更 win98、excel2000使用です。 マクロで各シートの「A1」のセルにある「値」をシート名として変更する方法を教えてください。 単に変更するだけならどうにかできるのですが、力不足で 変数で上記のようにする方法がなかなか思うようにできません。 よろしくお願い致します。 VBA シート名が変更できません・・・ どなたかご存知の方ご教示いただけると幸いです。 よろしくお願いいたします。 '対象シート '問答無用で、すべてのシートについて処理する Sf = 1 Sl = Workbooks(FName).Sheets.Count For s = Sf To Sl Set mySht = Workbooks(FName).Worksheets(s) mySht.Activate 上記で取り込んだシート名を下記で変更できません・・・ Sheets(mySht).Select Sheets(mySht).Name = sh_name1 & "-" & sh_name2 Excelのシート名変更について こんにちわ。 Excel(2003)のシート名変更について質問なのですが、 シート名変更のやり方はわかるのですが、 ひとつずつダブルクリックして反転させて消して入力。という方法で やっているとたくさんのシートを変更するときに大変時間がかかってしまいます。 何か良い方法などがございましたら、お教えお願いいたします。 よろしくお願いいたします。 VBA中の”シート名”を”アクティブシート”に変更 いつもお世話になっております。 非常に初歩的な質問なのですが、下記の2つのVBA中のシート名をアクティブシートに変更したいのですが、 sheetName = ActiveSheet.Name で試行錯誤するもうまくいきません。 実際のコードは下記の通りです。 これらのシート名”申請書”をアクティブシートに変更したいのです。 このコードは過去にここで教えて頂いたコードで出来ればこれを修正したいので宜しくお願いします。 1.Sub 申請書登録() Dim NewBookName As String With ThisWorkbook.Sheets("申請書") Windows("1.新規・変更登録申請書(原紙)・リスト②T用.xlsm").Activate For i = 5 To Sheets("規格登録・変更リスト").Range("A1048576").End(xlUp).Row + 1 If Sheets("規格登録・変更リスト").Range("B" & i).Value = "" Then With Sheets("規格登録・変更リスト") .Range("A" & i).Value = Sheets("申請書").Range("E3").Value .Range("B" & i).Value = Sheets("申請書").Range("O3").Value .Range("C" & i).Value = Sheets("申請書").Range("E4").Value ・・・・・・・・・・・・・・・・・・・ 2.Sub 申請書保存() Dim NewBookName As String With ThisWorkbook.Sheets("申請書") NewBookName = .Range("F22").Value & " " & .Range("E4").Value & " " & .Range("A2").Value & " " & .Range("A1").Value Worksheets("申請書").ExportAsFixedFormat Type:=xlTypePDF, Filename:="\***\XXXX\1.申請書\申請書" & "\" & NewBookName End With End Sub シートをコピー、シート名を変更 Windows8でExcel2000を使っています。 こういうマクロはどう書けばいいんでしょうか? 同一ファイル内で、シートを複数枚コピー。 複数選択したセルに入力された文字列を、上記でコピーされたシート名に反映したい。 「原本」というシート名のシートがあり、それを元に一年分の表を作りたいのですが 今は手で11枚コピーを作った後1枚ずつ名前変更でやっています。 シート名にしたい文字列は現在なら「2015年01月」~「2015年12月」です。 セルに「2015年01月」~「2015年12月」を入力、選択した後マクロ実行で シート名変更に反映できればありがたいです。 シート名の変更 エクセルのことで教えてください。 保存するBook名をそのままSheet1の名前にしたいのです。 現在は「Sheet1」の表示になっています。 対象となるBookが多すぎて、Sheet1で右クリックの「名前の変更」では大変なのです。 よろしくお願いします。 EXCEL;VBAマクロ:シート名変更 アクティブシートの現在ついている名前をマクロの中で使用せずに、シート名をABCとかに変更するにはどのようにマクロ記述すればいいか。 エクセルのシート名のフォントについて変更可能? PCを変更し、98から2000になったら、エクセルのシート名のフォントが大きくなってました。 シート名のフォントって変更できるのでしょうか? エクセルのシート名のフォントを変更したい タイトルどおりですが エクセルのシート名の変更をするとき、 シート名のフォントを変更できますか? シート名はゴシック体に固定されているようですが たとえば明朝体で、6とかの小さい文字にするとか 可能でしょうか? エクセルのシート名の変更ができません シート名を入力しようとしたら いつもと違って変更しようとしたとき、エクセルの拡張子がタグに表示されました。 これを消してシート名を入力したところ、 「シートまたはグラフの名前が正しくありません・・・」 と表示され、どうしてもシート名の確定ができません。 シート名は31文字以内で、禁則文字もありません。 登録もコピーできないため、終了することができません。 また、このようなとき、強制終了すると、作りかけの文書は回復されますか? 以上 教えてください。 よろしくお願いします。 マクロ シート名変更 マクロ シート名変更 Sheet1,Sheet2,Sheet3の名前を、 Sheet1のA1~A3に入力してある名前にしたいときどうすればいいでしょうか。 そして、 次に、A1~A3の入力を変えたときにSheet1,2,3の名前も 変わるにはどうやればいいんでしょうか。 お願いします... VBA シート操作 エクセル2002使ってます。 VBAにて雛型のシートを27枚コピーし、集計用のシートに入力されている名簿の名前の通りにシート名を変更したいと思い、式を組みました。 しかし、雛型のコピーまではできましたが、シート名を上手く変更できません。 シート名を変更したいシートは雛型(2)~雛型(28)の名前で、ブックの一番左から並んでます。 これをシート名変更するにはどうすればいいでしょうか? VBA、セルに入力された日付からシート名を変更 あるセルに日付(例「2014/8/17」)と入力してあり、そのセルから日付を拾い、 日付が入力してあるシートではないシートのシート名を 日だけの名前(例「17日」)に変更したいのですが、どのように考えていいかわかりません。 よろしくお願いします。 シート名変更のマクロ QNo.4400605『エクセルでシート数を指定して挿入するマクロはどうやって作ったらいいでしょうか。例えばA1セルに挿入したいシートの数を入力するとその数のシートが作成されるというようなマクロを作りたいのですが』という質問をしてそれについては解決しましたが、作成されたシートの名前を1~40のような数字に変更するマクロが分かりません。作成するシートの枚数は決まってなく、25シートであったり、40シートだったりします。A1:A40に1~40と変更後のシート名を入力して、それをシート名に反映させるマクロは作れたのですが、毎回シート枚数が変わるので「インデックスが有効範囲にありません」と出てしまいます。型としては、元シートがあり、そこでシート数を指定しシートを挿入し、そのできたシートに数字の名前をつけたいと考えています。長々なりましたが教えて下さい。 エクセルシート名の変更 OSがVISTAでExcel2007を使っています。 Sheet名を1月~12月に変更したとき、7月のみ変更出来ず名前重複 エラーになります。7-1月にするとOKで、重複するSheetはありません。 フォントがメイリョウのせいでしょうか? どなたかこういう経験はないでしょうか、お教え下さい。 VBA シートのボタン名を変更したい こんにちは。 Excelのマクロを作成しているのですが、 ユーザーフォームではなく、 シートにあるフォームのボタンの名前を変更したいのです。 どうしたら変更できるのでしょうか。 わかるかたいらっしゃいましたら、教えてください。 よろしくお願いします。 注目のQ&A 「前置詞」が入った曲といえば? 緊急性のない救急車の利用は罪になるの? 助手席で寝ると怒る運転手 世界がEV車に全部切り替えてしまうなら ハズキルーペのCMって…。 全て黒の5色ペンが、欲しいです 長距離だったりしても 老人ホームが自分の住所になるのか? 彼氏と付き合って2日目で別れを告げられショックです 店長のチクチク言葉の対処法 カテゴリ [技術者向] コンピューター プログラミング・開発 Microsoft ASPC・C++・C#CGIJavaJavaScriptPerlPHPVisual BasicHTMLXMLCSSFlashAJAXRubySwiftPythonパフォーマンス・チューニングオープンソース開発SEOスマートフォンアプリ開発その他(プログラミング・開発) カテゴリ一覧を見る あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど
お礼
回答ありがとうございます。 打ち込みミスでうまくいかなかったようです。