Excel VBA質問箱 IV

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

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


64923 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   暇だったので、作ってみました。


Sub shtcopy()
Dim shtName As String
Dim i As Long

  MsgBox "現在のシートをコピーします"
  
ReName:
  shtName = Application.InputBox("シート名を入力して下さい。", "シート名入力", Type:=2)

  If shtName = "False" Then
    MsgBox "キャンセルしました。"
    Exit Sub
  End If

  For i = 1 To Worksheets.Count
    If Worksheets(i).Name = shtName Then
      MsgBox shtName & " は、既にあります。", vbExclamation, "エラー"
      GoTo ReName
    End If
  Next i


  On Error GoTo WrongName
    ActiveSheet.Copy before:=Worksheets(1)
    ActiveSheet.Name = shtName
  On Error GoTo 0
  
  MsgBox "完了"
  Exit Sub

WrongName:
  MsgBox "シート名に使えない文字が含まれています。", vbExclamation, "エラー"
  shtName = Application.InputBox("シート名を入力して下さい。", "シート名入力", Type:=2)
Resume 0
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 回答

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