在勤生活１５４２日目

　ＶＢＡ、というかＥＸＣＥＬそのものの話。そういえば昔、セルに入力されている値を参照してそのままシート名にする方法を職業訓練校で習ったような－。
ということをふと思い出し、今更訓練校で使っていたテキストを引っ張り出すのは面倒なので（笑）
ネットで調べてみることに。少し調べてみて、当初わたしが考えていた「ＥＸＣＥＬの入力で…」という方法は分からなかったのですがorz
「マクロを用いて」、というのであれば、↓に似たコードを見つけたので、↑を実現することは比較的簡単と判明(^^)。
（ちなみに↓はそのネットで拾ったコードをわたしが少し変更したものなので、１行前の文章が日本語としてややおかしいことになっています(^^;）
　なお、下記コードの使い方は以下①②③を参照のこと。


①ＥＸＣＥＬを開いた状態で、ａｌｔ＋Ｆ１１の同時押しでＶＢエディタを開く
②モジュールリストの中から「ThisWorkBook」モジュールを選択し、下記コードを貼り付ける
③これでセルａ１に「祝祭日非営業日リスト」という文言が含まれていれば、セルａ１の値が変更されたタイミングでアクティブなシートのシート名が自動的にセルａ１の値へ置き換わる

※ちなみに、③の条件を変えたい場合は「'☆」が入力されている行の""の間の文字列を任意のものへ変えてください。


↓↓ここからマクロのコード

'セルａ１に特定文言が含まれている場合は、セルａ１の内容が変更されたタイミングで、セルａ１に入力されている文字列をそのままシート名にする

'↓の""の中に「特定の文字列」にしたいものを入力する
private const key as string = "祝祭日非営業日リスト" '☆

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If InStr(Range("a1").Value, key) < 1 Then Exit Sub
If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value

End Sub