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

Příspěvky uživatele

a este jedna otazka v tych adresaroch su aj dalsie adresare? :)

a to potrebujete na urcity adresar alebo skontrolovat cely disk? alebo disky v celom pc? :))

ono sa to dost zjednoduchsi ked pozname adresar

skusal som to useba a tu cestu ukaze tak ako tvrdite ale hodnoty neda na 0 ale na taku hodnotu ako ma byt

mozno bude v niecom inom chyba

tu su testovacie subory:

na internete som nasiel peknu funkciu na zistovanie ci uz tento subor je otvoreny:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=468

Priloha:

uz 2dni kukam na tuto temu a myslel som si ze niekto iny sa tomu zacne venovat :PPP ale nikomu sa nechce, tak to skusim ja.

1. mam nejaku tu predstavu co asi chcete spravit
2. nemam predstavu v com si predstavujete co ma robit Program a co ma doplnovat User

takze napr.
otvorim si cisty dokument a teraz pustim makro ktore naplnim s menami a k tomu nastavim system hry?

a potom ked napriklad prvu hru odtahaju kto to zapise? a kde to chcete zapisovat?

a dalsia otazka co su vstupne parametre a co ma byt vystup??

... to zadanie mozno znie jednoducho ale treba k tomu omnoho viac informacii

tak doplnil som tam dalsiu logicku postupnost ale stale to neurobi samo treba stale tomu dopomahat :) ma niekto nejaky napad?

ten subor co ste dali ako testovaci je moc velky tak tu len hodim makro ktore to podla toho suboru roztriedi do sheetov

upozornujem nekontroluje co sa uz v tom sheete nachadza ... len to postupne po riadkou doplna do sheetov

Sub aStart()
Dim a1 As Integer
Dim a2 As Integer
Dim aDate(1) As Integer

With Sheets("data")
For x = 7 To .Cells(7, 1).End(xlDown).Row
If .Cells(x, 13) = "1" Then
y = y + 1
If y = 1 Then aDate(0) = x Else aDate(1) = x
If y = 2 Then
Z = Application.WorksheetFunction.NetworkDays(.Cells(aDate(0), 12), .Cells(aDate(1), 12))
Select Case Z
Case -21
x1 = Sheets("21 dní").Cells(Rows.Count, 1).End(xlUp).Row + 2
.Range(.Cells(aDate(0), 1), .Cells(aDate(1), 13)).Copy Destination:=Sheets("21 dní").Cells(x1, 1)
Case -26
x1 = Sheets("26 dní").Cells(Rows.Count, 1).End(xlUp).Row + 2
.Range(.Cells(aDate(0), 1), .Cells(aDate(1), 13)).Copy Destination:=Sheets("26 dní").Cells(x1, 1)
End Select
End If
If y = 2 Then aDate(0) = aDate(1): y = 1
End If
Next
End With
End Sub

a co takto?

i = CInt(Range("E1"))
ActiveSheet.Rows(i + 7 & ":14").EntireRow.Hidden = True

ja som to zacal riesit ale nejak nechapu ako zistim co je 26dni a 21dni ... ked to ma 20 25 19 21 atd. pocet riadkou

trochu som sa nudil

a by ma zaujimalo ci aj niekto iny skusal urobit sudoku vyplnac :))

a ci sa to uz niekomu podarilo lepsie ako mne???

skuste checknut ci tu bunku detekuje 2013tka ako date

cez:
if isDate(textbox1.text) then 'TRUE else 'FALSE end if

druha moznost je zmente textbox na dateTimerPicker alebo MaskEdBox

aha uz chapu ... toto som nekontroloval lebo ked som dal zakliknut iny mesiac tak to padlo :) ... takze prerabat to do ang. verzii sa mi zrovna nechce

asi ste to zacyklil :)

praveze ked v zozname sviatkou sa nachadza datum tak to porovna s kaledarom a nedoplna tam udaj

cez sobotu nedelu doplnuje

v com je problem?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje