☰

한 열의 숫자를 다른 열에 추가하고 Excel의 버튼을 사용하여 두 번째 열의 이전 숫자를 새 숫자로 대체합니다.

tag-icon • tag-icon worksheet-function vba microsoft-excel-2007 macros
한 열의 숫자를 다른 열에 추가하고 Excel의 버튼을 사용하여 두 번째 열의 이전 숫자를 새 숫자로 대체합니다.

제목 그대로 너무 좋습니다. 작업 중인 예산에 대한 테이블이 있고 매주 급여를 받을 때 버튼을 클릭하면 이미 분배된 급여가 각 비용에 할당된 돈 풀에 추가되도록 버튼이 필요합니다.

내 테이블을 클릭하세요

그래서 비용에 대한 주간 지불금을 분배하기 위해 모든 계산을 마쳤지만 필요한 작업을 수행하기 위해 버튼을 코딩하는 방법을 알 수 없습니다.

좋아, 기본적으로 D6에서 D48까지의 모든 숫자를 E6에서 E48까지의 인접한 숫자에 추가해야 합니다. 그러나 마치 매번 새 금액을 추가하는 것처럼 이 열에 새 숫자를 표시해야 합니다. 즉, E6 = E6+D6이며 버튼을 누를 때마다 D열에 있는 내용이 E열에 추가됩니다.

장황하게 말해서 죄송합니다. 이것이 이해가 되기를 바랍니다.

미리 도움을 주셔서 감사합니다.

베드로

답변1

좋습니다. Scott의 큰 도움을 받아 코드를 작동시키는 데 성공했습니다. 귀하의 의견에 감사드립니다. 내가 생각해낸 코드는 다음과 같습니다.

개인 하위 CommandButton1_Click()

Dim x As Integer
Dim y As Double

Range("E2").Value = Range("E2").Value + 1

For x = 6 To 48

    y = Range("E" & x).Value

    Range("E" & x).Value = y + Range("D" & x).Value

Next x

서브 끝

또한 버튼을 배치한 위치 위에 카운터를 추가하여 해당 주 동안 이미 버튼을 눌렀는지 여부를 알 수 있습니다.

관련 정보