• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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...

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

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

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

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...

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...

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

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

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 :)

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

CTRL+Break ukonci makro a hodi to do Debugu

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

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]

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

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse