데이터를 복사하는 버튼에 대한 VBA 코드

-1

버튼을 사용하여 도움말을 찾고 있는데 셀 A1에 다른 셀에 붙여 넣어야하는 데이터가 있습니다.데이터를 복사하는 버튼에 대한 VBA 코드

셀 B1 : B6에 월요일부터 토요일까지 A1의 데이터를 복사하는 버튼을 만들고 싶습니다. 월요일에 끝낼 때 A1을 지우는 버튼을 만들었습니다. 다음날.

매일 끝날 때 데이터를 업데이트하고 그 다음날 취소 버튼을 눌러 다시 시작하려면 버튼을 눌러야합니다.

출처

2016-08-30 K.Caller

당신은 아무것도 시도? 매크로 기록 및 생성 된 코드보기/편집? –

나는이 일을 생각하고 있었지만 그것이 어떻게 효과가 있을지 확신하지 못했습니다. –

글쎄, 당신이 * 특정 * 프로그래밍 문제에 머물 때까지,이 사이트는 당신을 도울 수 없습니다. [ask] 및 [mcve]를 참조하십시오. –

찾고 싶은게 뭔가요?

Sub CopyDataByDay() 
    Dim data As Range 
    Dim today As Date 

    Set data = ThisWorkbook.Worksheets(1).Range("A1") 
    today = Date 

    If (Weekday(today) = vbMonday) Then 
     ThisWorkbook.Worksheets(1).Range("B1") = data.Value 
    ElseIf (Weekday(today) = vbTuesday) Then 
     ThisWorkbook.Worksheets(1).Range("B2") = data.Value 
    ElseIf (Weekday(today) = vbWednesday) Then 
     ThisWorkbook.Worksheets(1).Range("B3") = data.Value 
    ElseIf (Weekday(today) = vbThursday) Then 
     ThisWorkbook.Worksheets(1).Range("B4") = data.Value 
    ElseIf (Weekday(today) = vbFriday) Then 
     ThisWorkbook.Worksheets(1).Range("B5") = data.Value 
    ElseIf (Weekday(today) = vbSaturday) Then 
     ThisWorkbook.Worksheets(1).Range("B6") = data.Value 
    End If 

    data.Value = "" 

End Sub

출처

2016-08-30 21:32:54 oscar

네, 고맙습니다. 저는 이런 식으로 일하고있었습니다. 그러나 직장에서 보니 그것을 볼 수 없었습니다. 나는 내가 어디 잘못 됐는지 안다. 나는 오늘 아침에 VB를 놓치고 있었다. 다시 한번 너에게 감사한다. –

. 천만에. 그것이 실제로 당신이 필요로하는 것이 었다면 정답으로 확인하십시오 (저는 담당자가 필요합니다). – oscar

이 작업을 시도 할 수 있습니다 :

Sub Main() 
    Dim IWeekday As Integer 

    IWeekday = Weekday(Date(), vbMonday) 
    With ThisWorkbook.Worksheets(1).Range("A1") 
     If IWeekday <> 7 Then .Offset(IWeekday -1, 1).Value = .Value 
     .ClearContents 
    End With 
End Sub

출처

2016-08-31 02:00:16 user3598756

데이터를 복사하는 버튼에 대한 VBA 코드

답변

관련 문제