Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24398 / 76732

←次へ　｜　前へ→


	【57682】Re:Sheetの追加と保存

Abebobo - 08/9/9(火) 14:03 -


	引用なし

	パスワード

　VB さんこんにちは

マクロの記録では出来ない所を書いてみました。
後は、シート名に使えない文字のチェックが必要そうですが・・・。

Sub シート追加()
Dim Sname As String
Dim ws　　As Worksheet
Dim New_S As Worksheet

Sname = ActiveSheet.Range("A1").Value
If Sname = "" Then
　MsgBox "シート名を入力してください"
　Exit Sub
End If

For Each ws In ThisWorkbook.Worksheets
　If ws.Name = Sname Then
　　MsgBox "その名前のシートは、もうあります"
　　Exit Sub
　End If
Next ws
　
Set New_S = Worksheets.Add(after:=Worksheets(Worksheets.Count))
New_S.Name = Sname
End Sub

2 hits

▼

【57681】Sheetの追加と保存 VB 08/9/9(火) 11:37