[ predrag69 @ 11.05.2010. 15:49 ] @
Imam tabelu u excel-u.Tabela izgleda ovako: A4- reg,B4-br s-ka,C4-cas,D4-litri.Kada selektiram ova polja i pritisnem na "FORM" Data>Form pojavi se maska Form koja sadrzi polja koja su selektirana iz tabele.Kako popunjavam polja u Formu avtomatski se popunjava i tabela.moje pitanje je: Kada se otvori Excel dokumenat dali moze da se vidi samo "Form maska"koju korisnik treba da popuni a radni list u kojem je tabela da ostane sakriven ?Ako moze kako ?
POZDRAV
[ 3okc @ 11.05.2010. 16:04 ] @
Ne znam da li je to odgovor koji si tražio ali barem jedan list uvek mora biti vidljiv.
[ neptuncokg @ 12.05.2010. 01:52 ] @
Excelova predefinisana forma koju koristis ne moze da zadovolji to sto hoces. Ona je deo excela i kao takva je vrlo ogranicena. Za to sto ti hoces, treba da napravis sopstvenu formu (neki userform) u vba, pa onda kroz procedure forme da omogucis ili onemogucis ostale detalje. Jedan primer procedure za formu koja je "dominatna", tj. koja se prostire preko celog ekrana, i "sakriva" sheet je preuzet sa ovog foruma i glasi:

'****** deklaracije za skidanje komandne linije sa forme
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
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 "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'***** Funkcija za brisanje znaka X za zatvaranje forme *****
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
'Private Declare Function FindWindowA Lib "user32" _
'(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'***************************************************************************

Private Sub UserForm_Initialize()

'***** Ostali deo kode za znak X zatvaranje forme *****
'znak X namerno uklonjen u slucaju ako utilizator zeli zatvoriti formu pre isteknutog vremena
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
'*************************************************************************

End Sub

[ predrag69 @ 12.05.2010. 13:52 ] @
Posto ne znam VBA dali moze mala pomoc posle Alt>F11 i??? I kako se manifestuje ova forma kako da zadam polja koja da potpunjuje?Ako nije mnogo slozeno molim pomoc ako jeste onda samo hvala.
POZDRAV
[ neptuncokg @ 12.05.2010. 21:53 ] @
Evo jednog interesantnog prirucnika na ovu temu.
[ nikle22 @ 12.05.2010. 22:18 ] @
Hvala.Proucicu ovu vezbu ako uspem da uradim nesto javicu.Pozz!!! Pisem iz profila mog sina (predrag69)