Příspěvky uživatele
< návrat zpět
V předchozí odpovědi to heslo ukladám na list, což je ta nejprimitivnejší ochrana. Je to samozřejmě lepší uložit do very hidden listu anebo neviditelného prvku formuláře. Ale moc na takovouhle ochranu nespoléhej, hacknout to je hračka, jak se to tady zhruba před týdnem-dvěma demonstrovalo
Demonstrace na souboru z následujícího příspěvku. Viz příloha
S tím načítáním přes smyčku by to vypadalo takhle"
Sub Spusti()
Dim i As Integer, iMxRow As Integer
iMxRow = Range("A65000").End(xlUp).Row
With UserForm1.ComboBox1
.RowSource = ""
For i = 2 To iMxRow
If Cells(i, "B") <> 0 Then
.AddItem Cells(i, "A")
End If
Next i
End With
UserForm1.Show Default
End Sub
Těch možností je několik. Já bych to klasicky načítal v cyklu přes AddItem před show formuláře. Ale jde to i takhle: definoval jsem dynamickou oblast ve spojení s KT, která je pak zdrojem pro ten combobox. Ve vlastnostech comba pak zvolíš jako zdroj onu oblast pojmenovanou "zdrojProCombo".
koukal jsem uz na ten rozsireny filtr a parada.
Odvolavam krive narknuti vuci KT.
Holt mezery ve vzdelani 
, budu muset nastudovat 
Mam obavu, ze toto KT nezvladne.
Asi by to slo nejakym hodne komplikovanym maticovym vzoreckem s definovanim vlastnich seznamu, ale to moc neumim, na to jsou jini profesori.
Nicmene, pokud ten seznam bude mit tisice hodnot, tak to muze byt pro excel dost velky zahul.
Ale pokud by mohlo byt reseni makrem, tak je to brnkacka:
Sub SoucetDuplicit()
Dim iMxRow As Integer, i As Integer, iRow1 As Integer
'posledni radek
iMxRow = Range("A65000").End(xlUp).Row
'projdi smyckou seznam a vypis duplicitni hodnoty do sloupce E
For i = 1 To iMxRow
If Application.CountIf(Range("A:A"), Cells(i, "A")) > 1 Then
If Application.WorksheetFunction.CountIf(Range("E:E"), Cells(i, "A")) = 0 Then
iRow1 = Range("E65000").End(xlUp).Row + 1
Cells(iRow1, "E") = Cells(i, "A")
Cells(iRow1, "F") = Application.SumIf(Range("A:A"), Cells(i, "A"), Range("B:B"))
End If
End If
Next i
End Sub
Jak uz jsem psal v mailu, pripis si na konec makra nasledujici proceduru:
'dopln timestampy pro jednotlive zakazky:
iMxRow = wsT.Range("D65000").End(xlUp).Row
If iMxRow = 1 Then GoTo finiTo
wsB.Activate
For i = 2 To iMxRow
strZak = wsT.Cells(i, "D")
'first timestamp
On Error Resume Next
For j = iCol2 - 50 To iCol2 + iLastCol
If Application.WorksheetFunction.CountIf(wsB.Range(Cells(3, j), Cells(300, j)), strZak) > 0 Then
wsT.Cells(i, "B") = wsB.Cells(1, j)
Exit For
End If
Next j
'last timestamp
For j = iCol2 + iLastCol To iCol2 Step -1
If Application.WorksheetFunction.CountIf(wsB.Range(Cells(3, j), Cells(300, j)), strZak) > 0 Then
wsT.Cells(i, "C") = wsB.Cells(1, j)
Exit For
End If
Next j
Next i
Bacha na tu minus padesatku (hleda to 50 dnu do minulosti, aby naslo prvni vyskyt zakazky), mohlo by se stat, ze se to bude odkazovat na neexistujici sloupce, to si poladis podle skutecnosti
No nevim nevim, jestli nazev Podminene formatovani je prilehavy. Toto vypada na dost rozsahly VBA projekt 
Ahoj, postupoval bych nasledovne:
1. zapnul bych nahravani makra, provedl na jednom sesite
vsechny kroky a vypnul nahravani
2. vyhledavanim bych se snazil zjistit, jak ve smycce aplikovat makro na vicero souboru napr. zde: http://wall.cz/index.php?m=topic&id=9675
3. no a pak bych to sesil dohromady
4. pokud ti to nepujde, tak vypomuzeme
A jak zni tedy dotaz ohledne ActiveX?
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 . 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 
Pokud by mohly byt hodnoty v prvnim sloupci serazeny sestupne, tak POZVYHLEDAT (MATCH) s poslednim argumentem -1 vrati pozici nejblizsi vyssi hodnoty. A kdyz to vlozis do funkce INDEX, tak dostanes tu danou vyssi hodnotu.
Pokud to nemuze byt serazeno sestupne, tak budou muset prijit ke slouvu vzorecko-maticovi umelci, coz ja nejsu 
Anebo treti reseni: databaze ovladana z excelu technologii ADODB nebo DAO
Nepochopil jsem zcela, zdali jsi rezignoval na checkbox anebo ne. Pokud chce uzivatel zakliknout splneni ukolu, tak u daneho ukolu (radku) tam misto checkboxu bude mit sloupec s nejakymi binarnimi povolenymi hodnotami (0-1, ANO-NE, TRUE-FALSE....). Verim, ze Overeni hodnot (Data Validation) ovladas anebo nastudujes.
Uzivatel misto aby klikl na checkbox, klikne na sipku u dane bunky v onom sloupci, kde zvoli jednu ze dvou povolenych hodnot. A pokud na to navazes podminene formatovani, tak takovy radek se muze zbarvit vsemi barvami duhy, podle toho jak se ti to bude libit. A takhle nakonfigurovany radek staci zkopirovat a vsechny se budou chovat takhle (na rozdil od checkboxu, ktery neciti prislusnost k radku na kterem se nachazi.
Pokud ten sloupec nazves vystizne napr. "SPLNENO" a povolene hodnoty budou ANO-NE, neverim, ze by to mohlo nejakeho uzivatele zmast
Ty propojovaci vzorce nemusi byt zas tak spatne. Jejich vyhodou je, ze to jde jaksi naprimo, aniz se ten zdrojovy soubor musi otevirat. Mozna, ze pokud by se jednalo o kvantum zdrojovych souboru, tak by to treba mohlo byt i rychlejsi, nez otevirani a zavirani sesitu. Ale to je jenom takova spekulace, zajimalo by mne jak to je doopravdy.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články