티스토리 뷰

반응형

엑셀 매크로 VBA . 나의 함수  마우스 커서 모양 변경


Sub tr_Cursor_Wait()

  

  Application.Cursor = xlWait

  Application.EnableEvents = False

  Application.DisplayAlerts = False

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

  

'  Application.WindowState = xlMinimized

End Sub




Sub tr_Cursor_Default()

  Application.Cursor = xlDefault

  Application.EnableEvents = True

  Application.DisplayAlerts = True

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

'  Application.WindowState = xlNormal

End Sub






반응형
댓글