エクセルでセルの値をシート名にしたいと、ネットを検索してみる。
いろいろ試してみた中で、次の記述が一番すっきりできた。
エクセルのD2のセルに入力した値(文字)をシートの名前にしたい場合、
1.シートのD2のセルに値(文字)を入れる。
2.シートのタブを右クリックし、表示されるショートカットメニューの中で「コードの表示」をクリックする。
3.表示されるファイル名sheet(番号)(コード)という白紙の窓の中に以下の記述をコピーして貼り付ける。
4.セルの位置を変えたい場合は、下のコードの中に出てくるD2の個所を変える。
5.1と2はどちらが先になってもよい。
記述するコードは以下(/////と/////の間 )のようである。
/////
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
If Target.Address(False, False) = "D2" Then
ActiveSheet.Name = Range("D2").Value
End If
Exit Sub
ERR_HANDLER:
MsgBox "現在のD2セルの値はシート名にできません。"
End Sub
/////
2011年07月11日
この記事へのコメント
コメントを書く
この記事へのTrackBack URL
最後までご覧いただきありがとうございました。
