Excel - 한 셀에서 다른 시트로 셀 + 매크로 + VBA 복사?

"워크 시트 삽입"버튼을 클릭하면 B38-K38 : B52-K52 셀의 텍스트, 양식, VBA, 매크로 등을 새 워크 시트에 추가 할 수 있도록 스프레드 시트를 수정하려고합니다. 사용자가 "여기를 클릭하십시오"버튼을 클릭하고 원하는대로 데이터를 입력하십시오. VBA 스크립트를 사용하여이 작업을 시도했지만 시트가 추가 될 때마다 번호가 올라 가기 때문에 오류가 발생합니다. 이 문제를 해결하거나 다른 해결책이 있습니까?Excel - 한 셀에서 다른 시트로 셀 + 매크로 + VBA 복사?

편집, 여기에 솔루션입니다 :

Sub new_sheet() 
    ' 
    ' new_sheet Macro 
    ' Copies the range of B36:L52 (Problems Identified) to a new sheet 
    ' Then resizes columns 
    ' Keyboard Shortcut: Ctrl+q 
    Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=1 
    Worksheets("Sheet1").Range("B36:L52").Copy Destination:=ActiveSheet.Range("A1") 
    Cells.Select 
    Selection.Columns.AutoFit 
End Sub

출처

2014-02-07 gib

조금 더 자세한 정보가 필요합니다. "여기를 클릭하십시오"버튼이 지금 실행되는 코드는 무엇입니까? 이 버튼을 복사하고 있습니까? 복사중인 버튼에 코드가 첨부되어 있습니까? "고칠 것입니다"라는 말은 무엇을 의미합니까? 이에 대한 충분한 정보가 없습니다 - 우리가 귀하를 도울 수있는 충분한 정보를 제공해주십시오. – Floris

죄송합니다. 다소 모호했습니다. 여기를 클릭하면 "Click here"버튼을 클릭하면 셀에 정보를 채우는 검사 영역 (B39)에 정보를 입력 할 수 있습니다. 버튼에 코드가 첨부되어 있으며 버튼과 코드를 새 워크 시트에 복사하려고합니다. 시트 이름 "Sheet ++"를 늘리면 디버깅 오류가 발생하지 않을 수 있습니다. 매크로를 사용하여 "sheet2", "sheet3"등을 찾고 있기 때문입니다. – gib

지금 당장은 버튼을 무시할 수 있다고 생각합니다. 꽤 불필요한 것으로 시작됩니다. 양식 및 간단한 수식을 매크로가있는 새 시트에 복사하는 것만 큼 간단하지만 제대로 작동하지 않습니다. 그냥 내가 만든 것을 이미지로 붙여줍니다. – gib

같은 간단한 매크로 :

ActiveSheet.Copy after:=ActiveSheet 
ActiveSheet.Name = "NewSheet"

이라고합니다 새로운 하나를 그 안에 활성 시트 모든 것을 복사하고 만들 것 "NewSheet ". 그게 도움이 되겠습니까?

출처

2014-02-07 20:42:03 Floris

하지만 몇 가지 정보 만 사용하면 어떻게됩니까? 답장을 보내 주셔서 감사합니다. – gib

사실, 방금 알아 냈습니다. 내가 사용 : 하위 new_sheet()를 ' 'new_sheet 매크로 후 Ctrl 키를 + q를 Worksheets.Add : 다음 열을 '키보드 바로 가기 크기를 조정'복사 B36의 범위 L52 (확인 된 문제) 새 시트 에 ' 워크 시트 ("Sheet1") 범위 ("B36 : L52") 복사 대상 : = ActiveSheet.Range ("A1") Cells.Select Selection.Columns 워크 시트 (Worksheets.Count), 개수 : = 1 워크 시트 .AutoFit End Sub – gib

@ 깁 - 당신이 알아 낸 것을 기쁘게 생각합니다. 미래의 방문자를 위해 솔루션을 답으로 추가 할 수 있습니다. – Floris

Excel - 한 셀에서 다른 시트로 셀 + 매크로 + VBA 복사?

답변

관련 문제