文書番号: 402278
最終更新日: 1997/10/20
Sub MyCopyPaste1() Dim CopyArea As Range Dim PasteArea As Range Set CopyArea = Application.InputBox(prompt:= _ "コピー元を指定して下さい", Title:="コピー元", Type:=8) Set PasteArea = Application.InputBox(prompt:= _ "貼り付け先を指定して下さい", Title:="貼り付け先", Type:=8) CopyArea.Copy PasteArea End Sub
Sub MyCopyPaste2() Dim CopyArea As Range Dim PasteArea As Range On Error GoTo ErrorHandler Set CopyArea = Application.InputBox(prompt:= _ "コピー元を指定して下さい", Title:="コピー元", Type:=8) Set PasteArea = Application.InputBox(prompt:= _ "貼り付け先を指定して下さい", Title:="貼り付け先", Type:=8) CopyArea.Copy PasteArea Exit Sub ErrorHandler: MsgBox "処理が取り消されました" End Sub
Keywords: KBHOWTO KB402278
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch