Příspěvky uživatele

< návrat zpět

Strana: 1 ... « předchozí 18 19 20 21 22 23 24 25 26 další » ... 82

kontrola při uložení (11.9.2014 11:03)

oprava:

kontrola při uložení (11.9.2014 10:44)

tu som to opravil ale posledna podmienka je tam podla mna zbytocna kedze je vzdy splnena

kontrola při uložení (11.9.2014 9:40)

prilozte priklad takto mozem hadat co vam tam nejde

kontrola při uložení (11.9.2014 8:58)

napr. takto:
Sub aa()
If aTestuj Then ActiveSheet.SaveAs Filename:="U:\AV_Beku\Mischform\hotove zakazky2014" & "\" & Sheets("list1").Range("BK2").Text
End Sub

Private Function aTestuj() As Boolean
aTestuj = True
If Range("D2").Text = "" Then aTestuj = False: Exit Function
If Range("BK2") = "" Then aTestuj = False: Exit Function
If Range("BK3") = "" Then aTestuj = False: Exit Function
If Range("BL5") = "" Then aTestuj = False: Exit Function
If Range("BJ16 ") = "" Then aTestuj = False: Exit Function
If Range("BJ18 ") = "" Then aTestuj = False: Exit Function
If Range("BN8 ") <> "OK" Or Range("BN8 ") <> "STOP" Then aTestuj = False: Exit Function
End Function

Strojovy preklad ms office (8.9.2014 8:43)

hodte link. O tomto pocujem prvy krat

Ja jedine co som si urobil makro ktore cely text hodi do google translatora a potom spat. Samozrejme pri neviditelnom internet exploreru. :)

Tisk do souboru pdf a uložení dle určené buňky (4.9.2014 8:33)

Som si myslel ze ovladate VBA lebo z toho kodu bolo hned jasne kde treba doplnit udaj z bunky A1.

zamente:

PdfFile = ActiveSheet.Name & ".pdf"
za:
PdfFile = cells(1,1) & ".pdf"

Tisk do souboru pdf a uložení dle určené buňky (3.9.2014 15:22)

mozte skusit klasicky saveas

code:
PdfFile = ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

DLL knihovna ve freebasicu (3.9.2014 11:47)

no chyba bude v tom dll

ako presne ste dali alias?? resp. naco ho tam davate?

Function Pokus alias "Pokus" .... toto nemoze fungovat

... ale kedze tu nemam visual studio tak si to ani overit nemozem :)) .... ahhh asi vam neporadim ale rad by som to skusil nejak vytvorit to dll ... len tu v robote nejde nic nainstalovat

DLL knihovna ve freebasicu (3.9.2014 11:23)

prilozte prilohu takto mozem len hadat

DLL knihovna ve freebasicu (3.9.2014 11:13)

pockat vy davate do vstupu stringovu hodnotu ale tam mate zadefinovane integer??? to je samozrejme ze to padne

musel by tam byt varriant

DLL knihovna ve freebasicu (3.9.2014 11:00)

kedze som toto este neskusal ale pravdu povediac uz aj toto chci skusit :)) takze len hadam:

skuste tu funkciu definovat ako Public

Převod xls do PDF (3.9.2014 10:05)

ved toto uz office robi automaticky. A aj starsie verzie len si tam musite dat novy patch.

Vrácení nejčetnější hodnoty (2.9.2014 13:28)

ale ide len sa treba s tym pohrat

Vrácení nejčetnější hodnoty (2.9.2014 12:20)

toto vypada na nejaku domacu ulohu a to este skola ani nezacala :)) skuste vnorenu funkciu IF

=IF(podmenka,IF(podmienka,pravda,nepravda),nepravda)