|
おぢちゃん さん こんにちは
かみちゃんさんのコードの勉強のつもりで書きました。
*かみちゃんさんへ、勝手に使ってしまいました。
’コマンドボタンのモジュール
Private Sub CommandButton1_Click()
Dim NewS_N As String
Dim Sh As Worksheet
Dim NewSh As Worksheet
NewS_N = Application.InputBox _
("新規シート作成", "新規シートの名前の入力")
If ChkSheet(NewS_N) Then
MsgBox NewS_N & " は、存在します"
Worksheets(NewS_N).Activate
Else
MsgBox NewS_N & " は、存在しません"
Worksheets.Add(after:=Worksheets(Worksheets.Count)) _
.Name = NewS_N
End If
’---------------------------
’標準モジュール
Function ChkSheet(strWS As String) As Boolean
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets(strWS)
On Error GoTo 0
If Not ws Is Nothing Then
ChkSheet = True
Else
ChkSheet = False
End If
End Function
’以上
インプットボックスにシート名を入れます。
|
|