[[20021007161409]] 『シート名をA1セルの入力内容にする方法を』(誠) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シート名をA1セルの入力内容にする方法を』(誠)

シート名をA1セルの入力内容にする方法を教えて下さい。(誠)

シート名を特定セル(例えばA1セル)に表示させる方法は、このサイトを見させていただき、

わかったのですが、逆の場合は、どうすればよいのでしょうか?

使い方としては、納品書の番号(セルA1に入力)をシートの名前として、1ヶ月単位でファイルを分けて保存してゆきたいのですが・・・ で、理解していただけますか?


こんばんは

 関数ではちょっと考え付きませんでした。

 マクロになります、

 Private Sub Worksheet_Change(ByVal Target As Range)

     On Error Resume Next

     If Target.Address = "$A$1" Then

         ActiveSheet.Name = Target.Value

     End If

 End Sub

 イベントマクロになります、

 使用するシート名のタブのところで右クリックをするとVBEの編集画面が出ると思います

 そこにコピーをして貼り付けてください。

 A1の値が変更されるとシート名も変更します。

 ※シート名は、半角31文字まで、:コロン、/スラッシュ・・・・・・・等の

  制限はありますので注意してください(詳細はヘルプを見てください)

 よければ試してみてください。

 (尋)


尋さん ありがとうございます。シート名の変更できました。

 ただ、ブック内全てのシートに対して実行できません。

 シートタブを右クリックでコピーしてゆけば可能ですが、

 シートを追加する場合、[挿入]-[ワークシート]の方が楽なのですが、

 ブック内の全てのシートに反映させる事は無理なのでしょうか?

 (誠)


こんばんは

 各シートのA1の値をシート名に変更していきます

 Sub WSN_change()

  Dim WS As Worksheet

  on error resume next  

  For Each WS In Worksheets

      If Not IsEmpty(WS.Range("A1").Value) Then

         WS.Name = WS.Range("A1").Value

      End If

  Next

 End Sub

 標準モジュールに貼り付けてください。

 マクロをツールバー等にボタン登録するといいかもしれません。

 ちょっと試してみてください。

 (尋)


ありがとうございました

VBEに関しては、解らない事だらけですが、試行錯誤の上、何とか出来ました。

ボタン登録に関しても、意図された事とは違うと思いますが、VBEのツールバーを表示させ、

実行ボタンからマクロを選択し、実行するようにして行こうと思っています。

(誠)


この過去の質問で2010/3/1と入力するとシート名が変わりません?文字や数字だとシート名を変更できますが日付だとダメでした日付のみで表示可能にできますか?(もも)

 上の方にこんな注意書きがありますが。。。 日付の形をそれに抵触しないように変えられませんか?
       ↓
 > ※シート名は、半角31文字まで、:コロン、/スラッシュ・・・・・・・等の
 >  制限はありますので注意してください(詳細はヘルプを見てください)

 (半平太) 2010/04/03 07:58

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.