Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Excel 2003 . Stlačte tlačidlo " Alt " a " F11 " klávesy na klávesnici počítača súčasne spustiť aplikáciu Microsoft Visual Basic Editor v Exceli .
2
Kliknite na " Vložiť " v hlavnom menu navigácie . Zvoľte " UserForm " z rozbaľovacej ponuke .
3
Dvakrát kliknite na okno " UserForm1 " otvorte okno kód . . Zvýraznite a odstrániť akýkoľvek kód v okne
4
Vložte nasledujúci kód do okna :
Option Explicit
Private Sub UserForm_Initialize ( )
Volanie RemoveCaption ( ma )
End Sub
5
v hlavnom navigačnom menu kliknite na " Vložiť " . Zvoľte " modul " z drop - down menu
6
Vložte nasledujúci kód do okna modulu : .
Option Explicit
Private Declare Function FindWindow Lib " ; User32 " _Alias " FindWindow " ( _ByVal lpClassName As String , _ByVal lpWindowName As String ) As Long
Private Declare Function GetWindowLong Lib " User32 " _Alias " GetWindowLongA " ( _ByVal HWND As Long , _ByVal nIndex As long ) As Long
Private Declare Function SetWindowLong Lib " User32 " _Alias " SetWindowLong " ( byVal hwnd As Long , _ByVal nIndex As Long , _ByVal dwNewLong As Long ) As Long
Private Declare funkcia DrawMenuBar Lib " User32 " ( _ByVal HWND As Long ) As Long
Sub RemoveCaption ( objForm As Object )
Dim lStyle Ako LongDim hMenu Ako LongDim mhWndForm As Long
ak Val ( Application.Version ) < 9 ThenmhWndForm = FindWindow ( " ThunderXFrame " , objForm.Caption ) " XL97ElsemhWndForm = FindWindow ( " ThunderDFrame " , objForm.Caption ) " XL2000 + End IflStyle = GetWindowLong ( mhWndForm , -16 ) lStyle = lStyle a nie si HC00000SetWindowLong mhWndForm , -16 , lStyleDrawMenuBar mhWndForm
End Sub
Sub ShowForm ( )
UserForm1.Show False
End sub
7
Kliknite na tlačidlo " x " v pravom hornom rohu okna editora jazyka Visual Basic pre zatvorenie aplikácie a všetky okná . Nemusíte uložiť obsah polí kódu .
8
Kliknite na " Nástroje " v hlavnom menu . Vyberte " makro " a následne " makrá . " Zvoľte " ShowForm . " Kliknite na tlačidlo " Spustiť " . Užívateľ formulár programu Excel sa zobrazí bez hlavičky.
Copyright © počítačové znalosti Všetky práva vyhradené