- ベストアンサー
ＶＢＡ 今アクティブになっているシート名を変更するには？
今アクティブになっているシート名が分かっていないときに、そのシート名を”ＡＡＡ”に変更するにはどうすればよいのでしょうか？
- VitaminBB
- お礼率95% (2783/2916)
- Visual Basic
- 回答数2
- ありがとう数4
- みんなの回答 （2）
- 専門家の回答
関連するQ&A
- EXCELの現在シート名の変更
いつもお世話になっております。 excelで、現在開いているシート名をVBAで変更しようとしているのですが、なかなかうまく行きません。 と言うのも、シート名がわかれば、名称変更は簡単なんですが・・・アバウトに 「現在選択されているシート名をＡＡＡに変更する」 といったことは可能なんでしょうか？ 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCELでシート名を変更できなくしたい。（VBAです）
こんにちは。 タイトルの通りなのですが、EXCELでセルの内容の変更はＯＫで シート名のみ変更できなくしたいのです。 もしくは変更されたら「シート名は変更できません」等のメッセージを出して、元のシート名に戻すと言うのでも結構です。 どのように、またどこに（それぞれのシートのオブジェクトのところ？？？）書けばいいのか教えて下さい。
- ベストアンサー
- オフィス系ソフト
- 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"の方で指定したいと思うのですが、単純に名前を置き換えても動作しません。どのように指定すればよいのでしょうか？
- ベストアンサー
- Excel（エクセル）
- VBA,シート名を変数で変更
win98、excel2000使用です。 マクロで各シートの「A1」のセルにある「値」をシート名として変更する方法を教えてください。 単に変更するだけならどうにかできるのですが、力不足で 変数で上記のようにする方法がなかなか思うようにできません。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ＶＢＡ シート名が変更できません・・・
どなたかご存知の方ご教示いただけると幸いです。 よろしくお願いいたします。 '対象シート '問答無用で、すべてのシートについて処理する 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
- ベストアンサー
- その他MS Office製品
- Ｅｘｃｅｌのシート名変更について
こんにちわ。 Ｅｘｃｅｌ（２００３）のシート名変更について質問なのですが、 シート名変更のやり方はわかるのですが、 ひとつずつダブルクリックして反転させて消して入力。という方法で やっているとたくさんのシートを変更するときに大変時間がかかってしまいます。 何か良い方法などがございましたら、お教えお願いいたします。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA中の”シート名”を”アクティブシート”に変更
いつもお世話になっております。 非常に初歩的な質問なのですが、下記の2つのVBA中のシート名をアクティブシートに変更したいのですが、 sheetName = ActiveSheet.Name で試行錯誤するもうまくいきません。 実際のコードは下記の通りです。 これらのシート名”申請書”をアクティブシートに変更したいのです。 このコードは過去にここで教えて頂いたコードで出来ればこれを修正したいので宜しくお願いします。 １．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
- ベストアンサー
- Excel（エクセル）
- シートをコピー、シート名を変更
Windows8でExcel2000を使っています。 こういうマクロはどう書けばいいんでしょうか？ 同一ファイル内で、シートを複数枚コピー。 複数選択したセルに入力された文字列を、上記でコピーされたシート名に反映したい。 「原本」というシート名のシートがあり、それを元に一年分の表を作りたいのですが 今は手で11枚コピーを作った後1枚ずつ名前変更でやっています。 シート名にしたい文字列は現在なら「2015年01月」～「2015年12月」です。 セルに「2015年01月」～「2015年12月」を入力、選択した後マクロ実行で シート名変更に反映できればありがたいです。
- ベストアンサー
- Excel（エクセル）
お礼
回答ありがとうございます。 打ち込みミスでうまくいかなかったようです。