質問: エクセルで以下のようにしたい場合のコードを教えてほしいです。 B4のセルに「あいうえお」と入力したら、 自動的に新しいシートが作成される。 なお、自動生成されたシートの名前は「#1あいうえお」(B4に入力したものと同じ) これをB4、B5.....と下に反映させていきたいです。
回答: シートモジュールにコピペしてください Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub Else Worksheets.Add ActiveSheet.Name = "#1" & Target.Value End If End Sub