< návrat zpět

MS Excel


Téma: Info systém rss

Zaslal/a 11.1.2013 14:47

Zdravím, před časem,jsem se ve škole nemohl dohodnout jestli půjde v excelu udělat kompletní informační systém v jednom souboru,nelenil jsem a přes svátky jsem to zkusil.Po pár dnech psaní kódů jsem přesvědčen že to půjde, bohužel nemám čas a tak to zkusím dát sem na posouzení, případně když mi někdo pomůže tak to určitě uvítám,tady je odkaz na stažení (1.43MB zip.) http://www.uloz.to/xp9s4Yw/pracovni-mylive-demo-key-zip
Heslo pro stažení je : priza
Když mi chtěl někdo pomoci tak mu to samozdřejmě odemknu :-) . 10

Zaslat odpověď >

Strana:  1 2   další »
#010969
avatar
dost dobrý, akorád bych to dělal v něčem co se dá ochránit. Jinak skvělá práce 9citovat
#010970
avatar
jj souhlas, dost dobrý, jinak přes Open...je po legraci...citovat
#010971
avatar
o.k. ale po legraci? 4citovat
#010972
avatar
To jsem nemyslel špatně, fakt je to to super práce, ale stačí jeden blb a dopadne to takto...viz soubor
Příloha: rar10972_pracovni-mylive-demo-key.rar (76kB, staženo 16x)
citovat
#010973
avatar
a hlavně se to nedá v tomto stavu bezpečně ochránkt dá se to otevřít 6 7citovat
#010974
avatar
Jo, dost dobry a urcite i pracny. Jde se dostat i do kodu:
Private Sub CommandButton1_Click()
Dim Radek
Dim i

For i = 16 To Range("A5000").End(xlUp).Row + 1
Radek = Worksheets("nab").Range("A16:A5000").Find(what:=Worksheets("nab").Cells(i, 1), lookat:=xlWhole).Row
Next i

Worksheets("nab").Cells(Radek, 1) = TextBox1.Text
Worksheets("nab").Cells(Radek, 9) = TextBox2.Text
Worksheets("kryc").Cells(24, 3) = TextBox2.Text

With Worksheets("nab").Cells(Radek, 1)
.Font.Size = 12
.Interior.Color = RGB(204, 255, 255)
End With
With Worksheets("nab").Cells(Radek, 2)
.Font.Size = 12
.Interior.Color = RGB(204, 255, 255)


Tam je jeste prace jak na kostele... Radeji bych neco takoveho tvoril v accessu, ktery je svou povahou na toto podstatne vhodnejsi... Ale i access je pro firemni aplikaci odsouzen k nezdaru 7 . Zijeme v blbe dobe, nestaci vytvorit dobrou aplikaci, cim dal tim vic je dulezite aby byla taky odolna vuci zlomyslnosti a navic pristupna pres web.
Vyhoda excelu je v jeho super pruznosti, ale i kdyz se da pouzivat i jako prehravac mp3, tak pro toto pouziju jine aplikace
Ale klobouk dolu, ze ses do neceho takoveho pustil 5citovat
#010976
avatar
milan to řekl hezky...zlomyslnosti...naprostý souhlas...citovat
#010992
avatar
--Dík za názory-- a poprosím ještě jednou se zakladním prvkem ActiveX.Lehoulince upravené 1 Odkaz: http://www.uloz.to/xR6jxJu/pracovni-mylive-demo-key-key-xp-7-xlsm
(1,83 MB) key:democitovat
#010994
avatar
A jak zni tedy dotaz ohledne ActiveX?citovat
#010995
avatar
Hlavně mi jde o to ,jestli se někdo dostane na samotné listy sešitu potažmo do kodu (a jak se tam dostal) a co se týče toho ActiveX -jelikož to nechodilo bez dodatečně instal.prvků nechal jsem v sešitu jen základní balík ovladačů.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

fce když a data

simplynever • 27.6. 12:48

fce když a data

Anonym • 27.6. 12:43

text > číslo=PRAVDA

Rejpal • 27.6. 12:01

fce když a data

simplynever • 27.6. 10:46

vlookup

simplynever • 27.6. 10:43

text > číslo=PRAVDA

pavelo • 27.6. 8:46

text > číslo=PRAVDA

Rejpal • 26.6. 20:29