いつも御世話になっています。
質問内容ですが、特定セルに入力した値を特定のシート名に反映させるマクロについてです。
例えば、
Sheet1のセルA1に「会議室」と入力した場合、Sheet5のシート名が「会議室」となり、
Sheet1のセルA2に「休養室」と入力した場合、Sheet7のシート名が「休養室」となる。
というようなものです。
(※Sheet番号は連番になっていません)
なお、シート名変更用の入力シートはSheet1のみです。
できれば、各シート名を変更する際、以下のようにしたいと考えています。
Sheet5 元シート名:負荷計算(1)
↓
Sheet5 変更後シート名:"Sheet1のA1で入力した名前" 負荷計算
教えて頂けると助かります。
宜しくお願いします。
No.4ベストアンサー
- 回答日時:
こんにちは!
一例です。
>(※Sheet番号は連番になっていません)
とありますが、Sheet見出し上で左からSheet1・Sheet2・・・の順とします。
すなわちSheet5はSheet見出しで左から5番目のSheet
Sheet7は左から7番目のSheetという前提です。
画面左下のSheet1のSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてSheet1のA1・A2セルにデータを入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Long, myFlg As Boolean
If Application.Intersect(Target, Range("A1:A2")) Is Nothing Or Target.Count <> 1 Then Exit Sub
On Error Resume Next
With Target
For k = 1 To Worksheets.Count
If Worksheets(k).Name = .Value Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
MsgBox "シート名が重複します。" & vbCrLf & "別のシート名を入力してください。"
.Value = ""
.Select
Exit Sub
Else
If .Address = "$A$1" Then
Worksheets(5).Name = .Value
Else
Worksheets(7).Name = .Value
End If
End If
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.3
- 回答日時:
なかなか意図が読み取りづらい質問ですね。
とりあえず
> Sheet1のセルA1に「会議室」と入力した場合
> Sheet5のシート名が「会議室」となり
> Sheet1のセルA2に「休養室」と入力した場合
> Sheet7のシート名が「休養室」となる
> Sheet番号は連番になっていません
勝手に読み替えます。
・一番左のシートのA1が(以下略)
→左から5番目のシート名が(以下略)
・一番左のシートのA2が(以下略)
→左から7番目のシート名が(以下略)
と言うことであり、
Sheet1のA1・A2セルを入力してからマクロを走らせる、
と言う処理を「使用者の意思で」走らせるのであれば単純に
Sub Sample1()
If Sheets(1).Range("A1") <> "" Then
Sheets(5).Name = Sheets(1).Range("A1")
End If
If Sheets(1).Range("A2") <> "" Then
Sheets(7).Name = Sheets(1).Range("A2")
End If
End Sub
で5番目・7番目のシート名を変えてやれば事足ります。
ただし、既にその「入力された値と同じシート名」があるとエラーで止まります。
トラップをかけるのは簡単ですが、そんな必要は無さそうです。
処理タイミングにもよりますが、この程度の処理なら「手作業で」変更した方が早いですし、
「手作業で」変更しても同じようにエラーで止まりますから。
これが「Sheet1のA1が入力されたらSheet5の名前を」
あるいは「Sheet1のA2が入力されたらSheet7の名前を」
と言う処理を「使用者の意思に関わらず、該当セルに入力されたら」走らせるのであれば、
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Sheets(1).Range("A1") Then
Sheets(5).Name = Sheets(1).Range("A1")
End If
If Target = Sheets(1).Range("A2") Then
Sheets(7).Name = Sheets(1).Range("A2")
End If
End Sub
こんな感じのモノをSheet1モジュールに書く必要があります。
ただしこの場合は「値が空白ではない・同じ名前のシートが存在しない」などの
エラー処理が必要かもしれませんが、ここでは割愛します。
これでも「手作業で」変更した方が早いでしょうから。
さてさて。
> Sheet5 元シート名:負荷計算(1)
> ↓
> Sheet5 変更後シート名:"Sheet1のA1で入力した名前" 負荷計算
これが、「“負荷計算(1)”と言うシートを探して」と言う意味だとしたら
まったく条件が変わっていますよね?
まぁ、聞くまでも無く本題はコチラなのでしょうけれど。
Sub Sample2
Dim WS As Worksheet
If Sheets(1).Range("A1") <> "" Then
For Each WS In Worksheets
If WS.Name = "負荷計算(1)" Then
WS.Name = Sheets(1).Range("A1") & "負荷計算"
End If
Next
End If
End Sub
または
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS As Worksheet
If Target = Sheets(1).Range("A1") Then
For Each WS In Worksheets
If WS.Name = "負荷計算(1)" Then
WS.Name = Sheets(1).Range("A1") & "負荷計算"
End If
Next
End If
End Sub
このくらいが解りやすいのではないかと思います。
それでも「手作業」のほうが早くて確実かもしれません。
ちなみに、
Sheets("負荷計算(1)").Name = (略)
として、直接変更してやるのも手段の一つでしょうが、
名前を変更したい元のシートが無かったらエラーで止まります。
「無い場合に警告を出す」などのエラー処理を考えているのであれば
コチラの方が有効かもしれません。
細かい解説は割愛しますが、あとは適宜応用下さい。
No.2
- 回答日時:
シートの名前(タブに表示されている名前)を変更する記述です。
・左から何枚目のシートかを指定して変更する場合 Sheets(5).Name = "変更後の名前"
・シートのオブジェクト名を指定して変更する場合 Sheet5.Name = "変更後の名前"
・直接シート名を指定して変更する場合 Sheets("変更前の名前") = "変更後の名前"
ご質問の場合は、VBE画面の左側ツリー(下図)を確認し、当該シートのオブジェクト名を使って変更されればよいと思います。
Sheet5.Name = Range("A1").Value
Sheet7.Name = Range("A2").Value
No.1
- 回答日時:
Sheet1
A列:変更前シート名
B列:変更後シート名(ぷりフィックス)
Option Explicit
Sub ReNameRobo()
Const xName = "Sheet1"
Dim xSheet As Worksheet
Dim zSheet As Worksheet
Dim xLast As Long
Dim nn As Long
Set zSheet = Worksheets(xName)
zSheet.Columns("C").ClearContents
xLast = zSheet.Cells(Rows.Count, "A").End(xlUp).Row
For nn = 1 To xLast
If Not IsEmpty(zSheet.Cells(nn, "A")) And Not IsEmpty(zSheet.Cells(nn, "B")) Then
For Each xSheet In Sheets
If (xSheet.Name = zSheet.Cells(nn, "A").Value) And (xSheet.Name <> xName) Then
xSheet.Name = zSheet.Cells(nn, "B").Value & " " & xSheet.Name
zSheet.Cells(nn, "C").Value = xSheet.Name
End If
Next
End If
If IsEmpty(zSheet.Cells(nn, "C")) Then
zSheet.Cells(nn, "C").Value = "×"
End If
Next
zSheet.Select
zSheet.Columns("C").AutoFit
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
エクセルでシート名を自動入力したい。
Excel(エクセル)
-
EXCELのSheet番号って変更できる!?
Visual Basic(VBA)
-
-
4
Excelの各シートに自動的に名前をつけられませんか?
Excel(エクセル)
-
5
VBAでセルに入っている日付をシート名にする
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ゼロを表示
-
Excelの計算が合いません。 諸...
-
今まで文字化けなく開けていたc...
-
Excelの警告について
-
ExcelでASCを使って全角を半角...
-
スプレッドシートで指定された...
-
作成した数式を値として表示し...
-
EXCELの散布図で日付が1900年に...
-
Excel関数について教えてくださ...
-
Excel関数について教えてくださ...
-
マクロの処理が遅くなった
-
エクセルを使用して、円周率を...
-
エクセルでファイルの最終更新...
-
エクセルのセル内に分数などの...
-
条件付き書式設定で罫線を引き...
-
シートの情報を別のシートへま...
-
【マクロ】フォルダ内にあるPDF...
-
エクセルで曜日を入れたい
-
Microsoft 365Excelの見開きペ...
-
Excelで時間の計算の方法 7時45...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報