Příspěvky uživatele

Veď to bez toho zošita práve neviem. Podľa čoho mám zistiť, že je prázdny? Testovať všetky hárky?

A čo ti bráni poslať ten prázdny zošit? Názov zošita je ľubovoľný? Koľko to má listov?
Keď mám niečo testovať, tak by bolo dobré vedieť čo.
A nemôžeš si vytvoriť nejaké "cvičné" dáta?

No ja tomu nerozumiem.
Napísal si vo vzorci "B1" a máš zadané hodnoty iba "A1" a "A2". A čo je vlastne to vypočítané číslo?

Alebo že by takto?
=((A1>B1)*24+(B1-A1)-((A1>B1)*24+(B1-A1)>6)*0,5)*(A1<>0)

Podľa syntaxe by to nemalo ísť. Asi to majú slabo ošetrené v prekladači.

Syntax

[Call] name [argumentlist]

The Call statement syntax has these parts:

Part Description
Call Optional; keyword. If specified, you must enclose argumentlist in parentheses. For example:

Call MyProc(0)

name Required. Name of the procedure to call.
argumentlist Optional. Comma-delimited list of variables, arrays, or expressions to pass to the procedure. Components of argumentlist may include the keywords ByVal or ByRef to describe how the arguments are treated by the called procedure. However, ByVal and ByRef can be used with Call only when calling a DLL procedure. On the Macintosh, ByVal and ByRef can be used with Call when making a call to a Macintosh code resource.

Remarks

You are not required to use the Call keyword when calling a procedure. However, if you use the Call keyword to call a procedure that requires arguments, argumentlist must be enclosed in parentheses. If you omit the Call keyword, you also must omit the parentheses around argumentlist. If you use either Call syntax to call any intrinsic or user-defined function, the function's return value is discarded.

To pass a whole array to a procedure, use the array name followed by empty parentheses.

A tebe to tam nesvietilo červeným?
druhy (xx, yy)
Daj tam
Call druhy (xx, yy)
alebo
druhy xx, yy

Sub xxx()
Application.StatusBar=" Prebieha výpočet v podprograme xxx"

kod

Application.StatusBar=false
End Sub
Toto si daj do príslušných podprogramov.

Alebo do bunky napíš "OK"
A do bunky A6 napíš "=A4"
Samozrejme bez úvodzoviek.

Treba si na to urobiť makro.

Už si to nejako upravíš. Alebo skry ten stĺpec

jmeno = Range("H5") & ("-Dopis")
ActiveWorkbook.SaveAs Filename:=jmeno, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

No neviem, čo by som mal k tomu povedať.
Ja by som možno nesortoval prvý stĺpec a dal by som tam niečo takéto.
Alebo
Range(Cells(2,2),Cells(9,ActiveSheet.UsedRange.Rows.Count)).Select
Private Sub CommandButton1_Click()
volba = 0
ActiveSheet.Unprotect "Heslo"
If O1 = True Then volba = 2
If O2 = True Then volba = 3
If O3 = True Then volba = 4
If O4 = True Then volba = 5
If O5 = True Then volba = 6
If O6 = True Then volba = 7
If O7 = True Then volba = 8
If O8 = True Then volba = 9

If volba = 0 Then GoTo konec1

Range("b2:i200").Select
Selection.Sort Key1:=Range(Cells(2, volba), Cells(2, volba)), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

konec1:
Cells(1, 1).Select
ActiveSheet.Protect "Heslo"
Unload Me

End Sub

http://wall.cz/index.php?m=topic&id=8247

Veď si daj jednoducho zaznamenať makro, a potom urob ako ti napísali vyššie.

Dostaneš niečo takéto.
Sub Makro1()
Rows("11:11").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
End Sub

Veľmi som to nelúštil, niečo som vyhodil, niečo upravil.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje