いつも御世話になっています。
質問内容ですが、特定セルに入力した値を特定のシート名に反映させるマクロについてです。
例えば、
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も見ています
-
ハマっている「お菓子」を教えて!
この世には、おいしいお菓子がありすぎて……。 次何を食べたらいいか迷っています。 みなさんが今、ハマっている「お菓子」を教えてください!
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
メモのコツを教えてください!
メモを取るのが苦手です。 急いでメモすると内容がごちゃごちゃになってしまったり、ひどいときには全く読めない時もあります。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
EXCELのSheet番号って変更できる!?
Visual Basic(VBA)
-
Excelの各シートに自動的に名前をつけられませんか?
Excel(エクセル)
-
-
4
エクセルでシート名を自動入力したい。
Excel(エクセル)
-
5
VBAでセルに入っている日付をシート名にする
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
エクセルの数式バーのフォント...
-
8:40までの出勤は全て8:30に...
-
EXCELの散布図で日付が1900年に...
-
Excelで<a>,<b>の入ったセルをc...
-
【再投稿】レイアウトが異なる...
-
エクセル VBA 参照設定とイ...
-
エクセルでファイルの最終更新...
-
excelVBAについて。
-
【Excel】日付に連動してプルダ...
-
【Excel VBA】 テキストファイ...
-
Excel 標準フォントについて教...
-
if関数。半角文字や全角文字で...
-
Excelの計算で差分を求める場合...
-
Excelについて教えてください ...
-
大容量があつかえるソフトを探...
-
毎週追加して行くセルの数値を...
-
エクセル 入力があった場合のみ...
-
Excelでの勤怠表の関数を教えて...
-
Excelの計算が合いません。 諸...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
エクセルデーターから必要な項...
-
エクセルでファイルの最終更新...
-
複数のテキストファイルをexcel...
-
Excelの複数条件の関数
-
【マクロ】ファイル名の一括変...
-
EXCELの散布図で日付が1900年に...
-
マクロの処理が遅くなった
-
Excelの時刻の不思議
-
エクセルでの2項目比較および...
-
Excelマクロで空白セルを詰めて...
-
エクセルの数式バーのフォント...
-
ExcelでASCを使って全角を半角...
-
エクセルで80万行、50列位のデ...
-
今まで文字化けなく開けていたc...
-
エクセルのことで教えてくださ...
-
エクセルVBA 月の中で、月~土...
-
Excelでの表の作り方
-
Excel セルにおけるフォント設...
-
エクセルの質問です。 F列からL...
おすすめ情報