標準機能でセルの値をシート名に反映させるのは難しいが、マクロを使用することで解決は出来る。
下記はA1のセルの値をシート名に反映するマクロである。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
On Error Resume Next
Me.Name = Target.Value
If Err.Number <> 0 Then
MsgBox "シート名に使用できない文字列か、予測しないエラー"
End If
End Sub
シート名を空白にする、或いはシート名に使用できない文字列が存在するため、エラー処理は必須。
SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||