Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  63 64 65 66 67 68 69 70 71   další » ... 84
.Protect/Unprotect (14.9.2010 13:45)

Zdravim,
to se mi nejak nezda, vetsinou u takovych chyb (znam to z vlastni zkusenosti;)) je chyba na strane nas, tedy lidskeho faktoru. Zkus si to jeste projit nebo ulozit konkr. soubor, podivam se na to...

Počet argumentov (14.9.2010 13:22)

Prave to, co jsem dal vyse, by mela byt obdoba funkce AND

Počet argumentov (14.9.2010 13:04)

aha,
tady je potreba pouzit pole a argument ParamArray, - je to ovsem problem s tim, ze je nutne zadavat argumenty jednotlive, tedy A1;B1;... (nikoliv A1:A5)
Public Function Funkce_A(ParamArray Argumenty() As Variant) As Boolean
Funkce_A = True
For Each arg In Argumenty
Funkce_A = Funkce_A * arg
Next arg

End Function

Počet argumentov (14.9.2010 12:31)

a v cem nevyhovuje vestavena funkce Excelu AND?
Na co psat funkci, kterou uz excel nabizi???

Počet argumentov (14.9.2010 12:16)

Porad nejak nevim, co by ta funkce mela delat...
Vypada to na slucovani textovych retezcu nebo by to mohly byt nejake podminky, ale opravdu to z toho nepoznam - bylo by potreba znat PRESNE, co ma funkce delat...

Počet argumentov (14.9.2010 11:28)

Zdravim,
nevim, co myslite tim, ze neni znam pocet argumentu - ten by mel byt znam vzdy (pokud nektere nebudou povinne).
Kazdopadne, funkce ma vzdy nejaky algoritmus, jak pocita s argumenty, a proto museji byt vzdy zname.
Asi by to chtelo konkretni priklad, co by vase funkce mela pocitat...

Součet proměnlivé obla (14.9.2010 10:49)

co takto:
ActiveCell.FormulaR1C1 = "=SUM(R[" & FirstRow & "]C:R[" & LastRow & "]C)"

Načetní dat z CVS, TXT (14.9.2010 9:46)

Zdravim,
tohle by melo nacist konkretni 'radek' ze souboru .txt
Ktery radek se nacte zavisi na promenne 'radek'.
V referencich je nutne mit zaskrtnuto "Microsoft Scripting Runtime".
Sub neco()
Dim fso As New FileSystemObject
Dim txt As TextStream
Set txt = fso.OpenTextFile(Filename:="c:\Documents and Settings\Dokumenty\test.txt", IOMode:=ForReading)
radek = 4
Do Until txt.AtEndOfStream = True
For j = 1 To radek - 1
txt.SkipLine
Next
Cells(1, 1) = txt.ReadLine
Exit Sub
Loop
End Sub

Objednávka (14.9.2010 8:37)

Zdravim,
myslim, ze nejjednodussi reseni je pripravit si listy pro dalsi strany Objednavky a pak jen v zavislosti na poctu polozek v Prehledu objednanych polozek kopirovat prislune oblasti do prislusnych listu (nebo lze kopirovat vse, protoze napr. na str. 5 se budou kopirovat prazdne bunky). Pro vetsi prehlednost lze ty listy objednavky, ktere budou prazdne, skryt nebo naopak zobrazit.
To urcite zvladnete sam, kdyz jste zvladl stranu 1 :)

Zamknutí názvu listu (13.9.2010 13:19)

Zdravim,
nejdriv musite ve vasem kodu, kterym zobrazujete nebo skryvate listy, odemknout sesit (aby bylo mozne manipulovat s listy)ActiveWorkbook.Unprotect ("heslo"), a na konci ho zase zamknoutActiveWorkbook.Protect Password:="heslo", Structure:=True, Windows:=True

Zacyklené makro (8.9.2010 13:43)

CTRL+Break ukonci makro a hodi to do Debugu

Vymazání listu (6.9.2010 11:59)

co takhle: Sub SheetDEL()
Application.DisplayAlerts = False
Worksheets("list").Delete
Application.DisplayAlerts = True
End Sub

ComboBox (3.9.2010 13:45)

Snad jsem to dobre pochopil a mam dve procedury:Sub ukaz()
UserForm1.ComboBox1.AddItem ""
UserForm1.ComboBox1.AddItem "Litoměřice"
UserForm1.ComboBox1.AddItem "Louny"
UserForm1.ComboBox1.AddItem "Mimoň"
' UserForm1.ComboBox3.AddItem "Fyzická osoba"
' UserForm1.ComboBox3.AddItem "Právnická osoba"
UserForm1.ComboBox2.Visible = False
UserForm1.Show
End Sub

Private Sub ComboBox1_Change()

If ComboBox1.Value = "" Then
ComboBox2.Clear
ComboBox2.Visible = False

ElseIf ComboBox1.Value = "Litoměřice" Then
ComboBox2.Clear
ComboBox2.AddItem ""
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
ComboBox2.Visible = True

ElseIf ComboBox1.Value = "Louny" Then
ComboBox2.Clear
ComboBox2.AddItem ""
ComboBox2.AddItem "Sekundární rozvod TTO"
ComboBox2.AddItem "Sekundární rozvod ZP"
ComboBox2.Visible = True


ElseIf ComboBox1.Value = "Mimoň" Then
ComboBox2.Clear
ComboBox2.AddItem "Primární rozvod"
ComboBox2.AddItem "Sekundární rozvod"
ComboBox2.AddItem "KPS"
ComboBox2.Visible = True
End If
End Sub]

Rada pro zoufalce (3.9.2010 13:21)

Zkuste toto: While isempty(Sheets(ComboBox5.Value).Cells(rd_start, sl_start)) = false

Sdílený sešit (3.9.2010 12:20)

Slo by to takto: vytvorte si list "Uzivatele" a do modulu tohoto listu vlozte proceduru: Private Sub Worksheet_Activate()
If Application.UserName = "Pepa" Then Exit Sub
Dim Uziv(), Msg As String, i As Integer, nradek As Integer
Uziv = ThisWorkbook.UserStatus
Range("a2:b1000").ClearContents
For i = 1 To UBound(Uziv)
nradek = Application.WorksheetFunction.CountA(Range("a:a"))
Cells(nradek + 1, 1) = Uziv(i, 1)
Cells(nradek + 1, 2) = Uziv(i, 2)
Next
End Sub


Strana:  1 ... « předchozí  63 64 65 66 67 68 69 70 71   další » ... 84

Uživatelské menu

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

Menu

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.

On-line nástroje