줄을 추가하고 특정 내용을 아래로 끌어 놓습니다.

직원 요청을 나열하는 데 사용되는 문서가 있습니다. 단추를 사용하여 새 행 (새 직원 요청)을 추가하고 특정 항목을 열에 자동 삽입합니다. 그래서 나는 한 열에 다음 ref # (XX-01/XX-02 등)을 생성하고 요청이 제기 된 날짜를 추가하기를 원합니다.줄을 추가하고 특정 내용을 아래로 끌어 놓습니다.

이것이 가능합니까? 코멘트 (안 OP에 의해)

복사 : 내가 사용하는

현재의 코드는이 :

Private Sub CommandButton1_Click() 
Sheets("Sheet2").Range("A11").Select 
ActiveCell.EntireRow.Insert Shift:=xlUp 
Sheets("Sheet2").Range("A11:AA11").Select 
Selection.Borders.Weight = xlThin 
Range("A11:AA11").Interior.Color = RGB(255, 255, 255) 
End Sub

이 필요 그것으로 새 행과 형식을 추가합니다. 그러나 필자가 필 요한 필드 (ref # etc)를 드래그하여 새로운 매크로를 기록하더라도 다음 번에 행을 추가하면 이전에 추가 된 행 위에 추가됩니다 (행 11은 12가되고 항상 위에 추가됩니다).

출처

2013-10-30 user2936251

예. 있을 수있다. 너 뭐 해봤 니? 코드를 묻는 질문은 해결 된 문제에 대해 최소한의 이해를 보여 주어야합니다. 시도한 해결책, 실패한 이유 및 예상되는 결과를 포함시킵니다. 참고 항목 : [스택 오버플로 질문 체크리스트] (http://meta.stackexchange.com/questions/156810/stack-overflow-question-checklist) –

예. 매크로로 기록하여 수동으로 수행하십시오. 그런 다음 생성 된 코드를 복사하고 필요한 경우 /로 수정하십시오. – enhzflep

@enhzflep 나는 당신의 견해를 이해하지만, 사람들을 매크로 레코더쪽으로 움직이는 것이 좋은 생각인지는 잘 모르겠습니다. 이 문제는 잠재적 인 버그를 공개하고 쓸모없는 코드를 대량 생성합니다. 문제가 더 빨리 해결 될 수는 있지만 공동체로서 우리는 잘못된 메시지를 전합니다. 그것을 사용하는 사람은 잘못된 경로에 놓여 있으며 아마도 오랫동안 거기에 머물러있을 것입니다. – Trace

태그가 있지만 위의 첫 번째 의견 (기타)을 고려하면 비 VBA 대안을 고려하는 것이 좋습니다. 아마도 테이블 (삽입> 테이블 - 테이블)에 ="XX-"&ROW()-1 (요청 시간 열이 자동으로 조정되어야 함)을 입력하고 날짜를 입력 할 때 Ctrl + ;을 입력하십시오.

출처

2013-10-30 14:02:15 pnuts

내가 사용하는 현재의 코드는 다음과 같습니다 개인 서브 CommandButton1_Click() 시트 ("시트 2") 범위 ("A11")를 ActiveCell.EntireRow.Insert 시프트 선택합니다... = xlUp 시트 ("시트 2")를 범위 ("A11 : AA11") Selection.Borders.Weight = xlThin 범위 ("A11 : AA11") Interior.Color = RGB (255, 255, 255) End Sub 이렇게하면 새 행과 형식이 추가됩니다 필요에 따라 그러나 필자가 필 요한 필드 (ref # etc)를 드래그하여 새로운 매크로를 기록하더라도 다음 번에 행을 추가하면 이전에 추가 된 행 위에 추가됩니다 (행 11은 12가되고 항상 위에 추가됩니다). – user2936251

줄을 추가하고 특정 내용을 아래로 끌어 놓습니다.

답변

관련 문제