Excel VBA質問箱 IV

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

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


24648 / 76732 ←次へ | 前へ→

【57432】Re:シート名の検索
発言  Abebobo  - 08/8/22(金) 9:04 -

引用なし
パスワード
   おぢちゃん さん こんにちは
かみちゃんさんのコードの勉強のつもりで書きました。
*かみちゃんさんへ、勝手に使ってしまいました。

’コマンドボタンのモジュール
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
’以上

インプットボックスにシート名を入れます。

3 hits

【57420】シート名の検索 おぢちゃん 08/8/21(木) 12:13 質問
【57421】Re:シート名の検索 かみちゃん 08/8/21(木) 13:41 発言
【57424】Re:シート名の検索 おぢちゃん 08/8/21(木) 15:45 お礼
【57422】Re:シート名の検索 ひげくま 08/8/21(木) 14:01 回答
【57425】Re:シート名の検索 おぢちゃん 08/8/21(木) 15:52 お礼
【57432】Re:シート名の検索 Abebobo 08/8/22(金) 9:04 発言
【57471】Re:シート名の検索 おぢちゃん 08/8/26(火) 7:56 お礼

24648 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free