エクセルで、ワークシート名をセルに表示する方法は書いてありますが、セルの値をワークシート名とするにはどうしたらいいでしょうか。
つまり、
「ワークシート名 → セル」 ではなく、
「セルの値 → ワークシート名」 ということです。
現状、会社が変わると決算期が変わるため、決算期を変更する度にワークシート名を変えていますが、変わった都度ワークシート名を手で変更するのは手間が掛っています。
具体的には、例えば、
3月決算の会社のファイルは、4月シート、5月シート・・・
12月決算の会社は、1月シート、2月シート・・・
のようにシート名を変えています。
そのため、セルに決算期を入力すると、自動で各ワークシート名も変更するようにしたいのですが、どうしたらいいでしょうか。
そういう関数はないようですし、マクロ・VBAの本等を見ても、よくわかりません。
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
こんにちは!
Sheetは12Sheet存在しているとします。
>セルに決算期を入力すると・・・
具体的なセル番地が判らないので、Sheet1のA1セルに
決算月の数値のみを入力した場合のコードです。
Sheet1のSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Sheet1に戻りA1セルに月の数値を入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim k As Long, myCnt As Long
With Target
If .Address = "$A$1" Then
If .Value <> "" And IsNumeric(.Value) And .Value <= 12 Then
'一旦シート名を適当なシート名に変更しておく(エラー回避のため)
For k = 1 To 12
Worksheets(k).Name = "Sheet" & k
Next k
For k = 1 To 12
myCnt = (.Value + k) Mod 12
If myCnt = 0 Then
myCnt = 12
End If
Worksheets(k).Name = myCnt & "月シート"
Next k
End If
End If
End With
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
久しぶりのマクロで時間がかかったのですが、先週末に集中して取り組み、おかげさまで、頂いたプログラムからセル位置などを微修正してできました。
大変助かりました。ありがとうございます。
No.1
- 回答日時:
遅くなってすいません。
質問の仕方が悪かったようで、検索でうまく見つからなかったのですが、大変助かりました。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
- Excel(エクセル) 3つのエクセルをそれぞれのシートのセルに反映させたいときはどうしたらいいでしょうか? 例えば①シート 4 2023/04/25 20:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) 再質問です。エクセルでシートが1から31まであり、日付けが入力されているセルがあります。シート1から 4 2022/08/02 23:08
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
シート名をセルの値からもってくるには・・・
Excel(エクセル)
-
Excel数式でシート名をセルから取得したい。
Excel(エクセル)
-
-
4
VBAでセルに入っている日付をシート名にする
Excel(エクセル)
-
5
エクセルでシート名を自動入力したい。
Excel(エクセル)
-
6
自動で複数セルの内容をシート名にする
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの関数について教えてくだ...
-
エクセルファイルがファイルの...
-
一つのセルに(例えばA1)入力...
-
エクセル vbaについて教えてく...
-
Excel 複数列 A列B列C列一致 D...
-
【マクロ】名前を保存する際に...
-
Excelについて教えてください
-
エクセル マクロ チェックボックス
-
エクセルであるセルに数字を入...
-
【Excel】数字を3倍にし、なお...
-
エクセル共有したが、アクセス...
-
【マクロ】顧客番号にて一致さ...
-
Excel分析ツールでのポアソン回...
-
エクセルで年休を管理する方法...
-
エクセルのデーターが2か月前の...
-
LOOKUP関数を使えばいいのでし...
-
エクセル②
-
エクセルを使っていて2024/5/15...
-
Excelでセルの値が同じか...
-
エクセルでの作業計算方法について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報