エクセルについて教えてください。

あるセルのデータをSheet、ファイル名に自動的に適用する方法はありますか。(無いとは思いますが)

Sheet1のA1セルにxyzと入力すると、自動的にSheet名がxyz、保存の際ファイル名がxyzになる。

回答の条件
  • 1人3回まで
  • 登録:2006/09/01 23:28:31
  • 終了:2006/09/02 00:12:23

ベストアンサー

id:llusall No.1

llusall回答回数505ベストアンサー獲得回数612006/09/01 23:59:17

ポイント120pt

例えば、Sheet1のA1セルに入力した文字列で、Sheet1の名前をその名前で変更し、

ワークブックもその名前で保存するコードを紹介します。


メニューの[ツール]-[マクロ]-[Visual Basic Editor]を押下して、

VBAのエディタを起動します。

プロジェクトエクスプローラからSheet1をダブルクリックして、

Sheet1をコード表示させ、次のコード記述して、保存してください。


Sheet1のA1セルに「xyz」と入力すると、シート名が「xyz」、

また、ワークブックも「xyz」で保存されます。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Row = 1 And Target.Column = 1 Then

       ActiveSheet.Name = Target.Value

       ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Target.Value

    End If

End Sub

以上、参考になりますでしょうか?

id:dongwu

ありがとうございます。解決です。

マクロってこんなことも出来るんですね。

すごい感激です。

2006/09/02 00:11:45
  • id:llusall
    いるか君に、たくさんのポイント、ありがとうございました。
    励みになります。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません