![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
No.1です。
>一覧も1001、1002というように追加していって、シート名も同じく1002,1002としたいです。
というコトですので・・・
前回は「番号一覧シート」のA列にシリアル値が入る前提のコードでしたのであのような感じにしました。
単純に入力データそのものをシート名にすれば良いというコトですので
>ActiveSheet.Name = Format(wS.Cells(Rows.Count, "A").End(xlUp), "yyyy年m月")
を
>ActiveSheet.Name = wS.Cells(Rows.Count, "A").End(xlUp)
に変更してください。
※ 数値でも文字列でもA列に入力した最終行のデータそのものが
シート名になります。m(_ _)m
No.1
- 回答日時:
こんにちは!
VBAになりますが、一例です。
>番号一覧に年月を追加すると・・・
「番号一覧シート」のどのセルに入力するか書かれていないので、
A列に随時入力していくといます。「2016年6月」のように入力するという前提です。
まず標準モジュールに↓のコードをコピー&ペーストしてください。
Sub シート追加()
Dim wS As Worksheet
Set wS = Worksheets("番号一覧シート")
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(wS.Cells(Rows.Count, "A").End(xlUp), "yyyy年m月")
Worksheets("台帳原紙").Cells.Copy Worksheets(Worksheets.Count).Range("A1")
End Sub
次に「番号一覧シート」のシートモジュールを↓のようにしてみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Target.Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Range("A:A"), Target) = 1 Then
Call シート追加
Else
MsgBox "同一月が存在します"
Target.Select
End If
End Sub
※ 「番号一覧シート」A列に「2016年3月」のように入力してみてください。m(_ _)m
ありがとうございます!ちゃんと出来ました!
ちなみにシート名をただの数字として1番号ずつ追加していく場合には、ActiveSheet.Name = Format(wS.Cells(Rows.Count, "A").End(xlUp), "yyyy年m月")のところを変えればよいかと思うのですが、どのよう変更したらできますか?
他のデータで応用したいので、教えていただけると助かります。一覧も1001、1002というように追加していって、シート名も同じく1002,1002としたいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】PDF出力に任意のファイ...
-
複数のEXCELシートの印刷順の指定
-
excel串刺し計算で合計値が表示...
-
エクセルで設定していないのに...
-
エクセルでページごとにヘッダ...
-
エクセルのイベントVBAを複数の...
-
エクセル VBAでシートのコピー...
-
既存ワークシートにピボットテ...
-
エクセルのシートごとに連番を...
-
PowerPointの表内のカンマ
-
エクセルでleft関数の結果が表...
-
エクセル 0:00 の時間をカウン...
-
エクセルでエンターを押すと隣...
-
結合されたセルの一部を変更す...
-
LINEのこの空白ってどんな意味...
-
EXCEL 連動したドロップダウン...
-
【エクセル】入力規則のプルダ...
-
エクセルの結合セル内に文章を...
-
エクセル 平均年齢
-
エクセル 合計値に一番近い件数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】PDF出力に任意のファイ...
-
エクセルのシートごとに連番を...
-
excel串刺し計算で合計値が表示...
-
Excelマクロ パスワードを入力...
-
複数のEXCELシートの印刷順の指定
-
エクセルで設定していないのに...
-
エクセルでページごとにヘッダ...
-
エクセルで、ハイパーリンクの...
-
社内SEです。機種、ライセンス...
-
エクセルのイベントVBAを複数の...
-
エクセルで個人成績グラフをつ...
-
【VBA】#N/Aを無視して串刺し...
-
既存ワークシートにピボットテ...
-
Access2010 Excelのエクスポー...
-
エクセル VBAでシートのコピー...
-
この記号、手短(テミジカ)に日本語...
-
エクセル 大量のグラフ修正の仕方
-
microsoft excel objectsとは
-
Excel 一覧表から特定の数値を...
-
ロータスについての質問。
おすすめ情報