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

[µo°Ý] ªí³æ°ÝÃD

[µo°Ý] ªí³æ°ÝÃD

¦U¦ì¥ý¶i
½Ð°Ý­n«ç»òÅývbaªí³æ¤j¤p¸ò¨Ï¥ÎªÌ¿Ã¹õ¤j¤p¤@¼Ë?
ÁÙ¦³§Ú·Q­nÅýexcel¥´¶}®É¡A¥u¬Ý¨ìªí³æ¡AÅýworkbookÁôÂð_¨Ó
³o¼Ë­n«ç»ò³]©w©O?
³Â·Ðª¾¹Dªº¤HÀ°§Ú¸Ñµª¤@¤U

§âUserForm1´«¤@¤U§Aªºform¦W
  1. Private Sub UserForm_Initialize()
  2.     Application.WindowState = xlMaximized
  3.     appWidth = Application.Width
  4.     appHeight = Application.Height
  5.     UserForm1.Top = 1
  6.     UserForm1.Left = 1
  7.     UserForm1.Width = Application.Width
  8.     UserForm1.Height = Application.Height
  9.     Application.Visible = False
  10. End Sub

  11. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  12.     Application.Visible = True
  13. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¥HApplicationªº¤j¤p¦ì¸m¬°¨Ì¾Ú
  1. Private Sub UserForm_Initialize()
  2. With Application
  3. Me.Top = .Top
  4. Me.Left = .Left
  5. Me.Height = .Height
  6. Me.Width = .Width
  7. End With
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁ¨â¦ìª©¥Dªº«ü¾É
§óÁÂÁÂHsiehª©¥D¹ï§Ú³Ìªñµoªíªº°ÝÃD³£À°§Ú¸Ñµª
«D±`·P®¦!!

TOP

ÁôÂÃworkbook¤§¤èªk:
©óVBAproject¤§Excelª«¥ó(Thisbook)¤º»yªk
Private Sub Workbook_Open()
    Application.Visible = False
    Call myForm1
End Sub
¥ÑForm1°µ¿Ã¹õµe­±

TOP

Call myForm1
À³¸Ó¬O§ï¦¨
   myForm1.Show
YOYO

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD