Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako odobrať Blue titulku Od UserForm v programe Excel 2003

Vytvorenie formulára používateľa v programe Microsoft Excel 2003 automaticky pridá modrá Užívateľ formulár v záhlaví v hornej časti okna formulára . Môžete prispôsobiť vzhľad používateľského formulára programu Excel odstránenie záhlavie z okna formulára . Ak chcete odstrániť "User Form " záhlavie , použite Microsoft Visual Basic Editor k zmene kódu formulára užívateľa modulu . Pokyny dovolená 1

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.

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené