[땡큐엑셀vba & 엑셀매크로] 해당 날짜의 셀위치로 도형이동

15로 도형이동

 

5로 도형이동

 

'해당날짜로 도형이동

'
'source by 땡큐엑셀vba & 엑셀매크로
'
'해당 날짜의 셀 좌표를 구하면 쉽게 해결할수 있습니다.
Sub 도형이동()

    날짜 = Range("AL1")
    
    Cells(1, 날짜).Select
    
    '도형 선택
    ActiveSheet.Shapes.Range(Array("Oval 1")).Select
    
    '도형을 해당 날짜의 셀위치로 좌표를 설정하면 이동합니다.
    Selection.ShapeRange.Left = Cells(1, 날짜).Left
    Selection.ShapeRange.Top = Cells(1, 날짜).Top
    

    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

 

해당 날짜의 셀위치로 도형이동-땡큐엑셀vba.xlsm

0.05MB