Ｐａｇｅ 810 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼作成済みのシートを別のブックへ名前をつけてコピー nori 03/2/23(日) 16:23 ┗Re:作成済みのシートを別のブックへ名前をつけてコピー Ｙ 03/2/23(日) 19:44 ┗Re:作成済みのシートを別のブックへ名前をつけてコピー nori 03/2/23(日) 20:36 ┣Re:作成済みのシートを別のブックへ名前をつけてコピー Ｙ 03/2/23(日) 21:39 ┗Re:作成済みのシートを別のブックへ名前をつけてコピー Ｙ 03/2/23(日) 21:42 ┗Re:作成済みのシートを別のブックへ名前をつけてコピー nori 03/2/24(月) 20:27 ┗Re:作成済みのシートを別のブックへ名前をつけてコピー Ｙ 03/2/24(月) 21:10 ┗Re:作成済みのシートを別のブックへ名前をつけてコピー nori 03/2/28(金) 13:46 ─────────────────────────────────────── ■題名 ： 作成済みのシートを別のブックへ名前をつけてコピー ■名前 ： nori <miyagawa2103@ybb.ne.jp> ■日付 ： 03/2/23(日) 16:23 -------------------------------------------------------------------------
| 「BOOK１」の計算式が入ったシート１が完了しました。 別の「BOOK２」に計算式を消して任意のシート名（数値）で保管したいと思います。 「BOOK１」側にマクロのボタン（転記）をつけたいのですが。 どのように組んだらよいでしょうか。？？？ よろしく お願いいたします。 |
| Sub Macro() Sheets("Sheet1").Copy 'Book1を新しいブックにコピー ActiveSheet.Name = "シート名" '新しいブックに任意のシート名をつける Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub でどうでしょうか？ 雑ですみません。 |
| 早速ありがとうございました。 BOOK２に転記するときに 新しいシート名を聞くようにしたいのですが。 また、マクロボタンはコピーしないように するにはどうすればよいでしょうか。 ▼Ｙ さん： >Sub Macro() > Sheets("Sheet1").Copy 'Book1を新しいブックにコピー > ActiveSheet.Name = "シート名" '新しいブックに任意のシート名をつける > Cells.Select > Selection.Copy > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ > :=False, Transpose:=False > Application.CutCopyMode = False >End Sub > >でどうでしょうか？ >雑ですみません。 |
| まわりくどい方法なのですが、一応動きます。 Sub Macro() Dim SheetName As String Cells.Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False SheetName = InputBox("Sheet Name?") ActiveSheet.Name = SheetName End Sub |
| すみません。わざわざDim SheetName As Stringしなくても 以下の様にすれば大丈夫でした。 Sub Macro() Cells.Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Name = InputBox("Sheet Name?") End Sub |
| Yさん、ありがとうございました。 もうひとつ質問してよろしいでしょうか。 転記先は新規のBOOKでなく 既存のBOOK2の新しいシートにして そのシート名を好きな名にしたいのですが？？ よろしくお願いします。 ▼Ｙ さん： >すみません。わざわざDim SheetName As Stringしなくても >以下の様にすれば大丈夫でした。 > >Sub Macro() > Cells.Select > Selection.Copy > Workbooks.Add > Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ > False, Transpose:=False > Selection.Copy > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ > :=False, Transpose:=False > Application.CutCopyMode = False > ActiveSheet.Name = InputBox("Sheet Name?") >End Sub |
| Sub Macro() Dim strFileName As String On Error Resume Next strFileName = Workbooks("BOOK2.xls").Name '既存ブック名(BOOK2.xls) Cells.Select Selection.Copy If strFileName = "" Then 'もしBOOK2が開いてなかったら開く Workbooks.Open "C:\BOOK2.xls" 'パスはご自分で変えてください。 Else Workbooks(strFileName).Activate End If Sheets.Add Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveSheet.Name = InputBox("Sheet Name?") End Sub これでどうでしょう？ ▼nori さん： >Yさん、ありがとうございました。 >もうひとつ質問してよろしいでしょうか。 >転記先は新規のBOOKでなく >既存のBOOK2の新しいシートにして >そのシート名を好きな名にしたいのですが？？ >よろしくお願いします。 |
| 遅くなりましたが ありがとうございました。 また、お願いいたします。 ▼Ｙ さん： >Sub Macro() > Dim strFileName As String > On Error Resume Next > strFileName = Workbooks("BOOK2.xls").Name '既存ブック名(BOOK2.xls) > > Cells.Select > Selection.Copy > If strFileName = "" Then 'もしBOOK2が開いてなかったら開く > Workbooks.Open "C:\BOOK2.xls" 'パスはご自分で変えてください。 > Else > Workbooks(strFileName).Activate > End If > Sheets.Add > Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ > False, Transpose:=False > Selection.Copy > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ > :=False, Transpose:=False > Application.CutCopyMode = False > ActiveSheet.Name = InputBox("Sheet Name?") >End Sub > >これでどうでしょう？ > >▼nori さん： >>Yさん、ありがとうございました。 >>もうひとつ質問してよろしいでしょうか。 >>転記先は新規のBOOKでなく >>既存のBOOK2の新しいシートにして >>そのシート名を好きな名にしたいのですが？？ >>よろしくお願いします。 |