ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] vba °õ¦æ¿Ã¹õ°ÝÃD

[¤À¨É] vba °õ¦æ¿Ã¹õ°ÝÃD

Sub NextRun()
    NextTime = Now + 5 / 86400
    Application.OnTime NextTime, "Macro1"
End Sub

=================================
Sub Macro1()
    Application.DisplayFullScreen = True
End Sub
===============

§Ú¼g¤F¤@­Ó¥i¥H®É¶¡¤@¨ì,«K¥i°õ¦æ¥þ¿Ã¹õªº¥¨¶°,
µM¦Ó­nÂIexcelªºµ{¦¡®É¥L¤~·|Åã¥Ü¥þ¿Ã¹õ
½Ð°Ý¦³µL¥ô¦ó¤è¦¡¥i¥HÅý¥L¦ÛµMÅã¥Ü¥þ¿Ã¹õ©O??
¨Ò¦p¥´bbs¥´¨ì¤@¥b¥L«K¦Û°Ê¸õ¥Xexcelªº¥þ¿Ã¹õ©O??
¨ü±Ð¤F~

¦^´_ 1# asoonla

¸Õ¸Õ
  1. Public Declare Function SetWindowPos Lib "user32" _
  2. (ByVal hwnd As Long, ByVal hwndinsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  3. Sub nn()
  4. Application.OnTime Now + TimeValue("00:00:30"), "ex"
  5. End Sub

  6. Sub ex()
  7. With ThisWorkbook.Application
  8. hw = .hwnd
  9. SetWindowPos hw, -1, 0, 0, 0, 0, 3
  10. .DisplayFullScreen = True
  11. End With
  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁÂ....·Q¤£¨ì¬O¥Î³o¼Ëªº¤è¦¡

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD