Excel VBA質問箱 IV

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

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


64911 / 76734 ←次へ | 前へ→

【16400】Re:sheetのコピーについて
回答  Asaki  - 04/7/26(月) 23:41 -

引用なし
パスワード
   とりあえず、一案。

Sub test()
  Dim var     As Variant
  Dim sh     As Worksheet

On Error Resume Next
  'シートコピー
  Worksheets("Sheet1").Copy After:=Worksheets(Worksheets.Count)
  Do
    var = Application.InputBox(Prompt:="シート名を入力してください")
    'キャンセル時はコピーしたシートを削除して処理終了
    If VarType(var) = vbBoolean Then
      Application.DisplayAlerts = False
      ActiveSheet.Delete
      Application.DisplayAlerts = True
      Exit Do
    End If

    Set sh = Worksheets(var)
    If sh Is Nothing Then
      ActiveSheet.Name = var
      Set sh = Worksheets(var)
      If sh Is Nothing Then MsgBox "不正なシート名です"
    Else
      MsgBox "既に同名のシートが存在しています"
      Set sh = Nothing
    End If
  Loop While (sh Is Nothing)
On Error GoTo 0
  Set sh = Nothing

End Sub

内容については、ヘルプで御確認ください。

0 hits

【16390】sheetのコピーについて ririri 04/7/26(月) 22:24 質問
【16391】Re:sheetのコピーについて Asaki 04/7/26(月) 22:59 回答
【16392】Re:sheetのコピーについて IROC 04/7/26(月) 23:06 回答
【16395】Re:sheetのコピーについて ririri 04/7/26(月) 23:17 発言
【16398】Re:sheetのコピーについて IROC 04/7/26(月) 23:23 回答
【16393】Re:sheetのコピーについて ririri 04/7/26(月) 23:08 発言
【16397】Re:sheetのコピーについて Asaki 04/7/26(月) 23:19 回答
【16400】Re:sheetのコピーについて Asaki 04/7/26(月) 23:41 回答

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