Excel VBA質問箱 IV

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

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


66683 / 76734 ←次へ | 前へ→

【14613】Re:上書き保存について
回答  IROC  - 04/6/3(木) 8:18 -

引用なし
パスワード
   ファイル名でなくシート名ではないのでしょうか?

同じ名前のシートは2つ作れないです。
なので、シートがあるか判別して、処理を分ければよいと思います。


Sub Sample()
Dim i As Long
Dim シート名 As String
Dim ws As Worksheet

  シート名 = "AAA抽出"

  For i = 1 To Worksheets.Count
    If Worksheets(i).Name = シート名 Then
      GoTo コピー処理
    End If
  Next i
  
  'シート追加
  Set ws = Worksheets.Add(before:=Worksheets("AAA"))
  
  'シート名変更
  ws.Name = シート名

コピー処理:
  ActiveSheet.Range("A10").CurrentRegion.Copy _
  Destination:=Worksheets(シート名).Range("A2")
 
End Sub
2 hits

【14610】上書き保存について YN61 04/6/3(木) 7:41 質問
【14613】Re:上書き保存について IROC 04/6/3(木) 8:18 回答
【14652】Re:上書き保存について YN61 04/6/3(木) 20:32 お礼
【14674】Re:上書き保存について IROC 04/6/4(金) 10:23 回答
【14691】Re:上書き保存について YN61 04/6/4(金) 22:14 お礼

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