Příspěvky uživatele
< návrat zpět
Vlastní formát případně fce HODNOTA.NA.TEXT
Možná se mu nelíbí tento způsob přiřazení objektu:Set xlsWorkBook = xlsApp.Workbooks.OpenText (...)Tohle mi prošlo:Cesta = left(WScript.ScriptFullName,len(WScript.ScriptFullName)-len(WScript.ScriptName))
Soubor = "POKUS.TXT"
Dim xlsApp
Set xlsApp = CreateObject("Excel.Application")
With xlsApp
On Error Resume Next
.Workbooks.OpenText Cesta & Soubor, 65001, 1, 1, , False, True, False, False, False, False, , Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15, 2), Array(16, 4), Array(17, 4), Array(18, 1), Array(19, 1)), , ".", ",", False
If Not Err.Number = 0 Then
MsgBox Err.Description
End If
On Error GoTo 0
If .Workbooks.Count = 1 Then
With .ActiveWorkbook
On Error Resume Next
.SaveAs Cesta & "Pokus.xlsx", 51
If Not Err.Number = 0 Then
MsgBox Err.Description
End If
On Error GoTo 0
.Close
End With '.ActiveWorkbook
End If
.Quit
End With 'xlsApp
Set xlsApp = Nothing
@marjankaj
vrhl jsou 2 slabiky ;) vr-hl
zjednodušeně by mělo platit to, že pokud je před i za r/l souhláska, jsou slabikotvorné (vyjma citoslovcí). To by se ještě pořešit dalo.
Problematické je jednoslabičné u
např: do-u-čo-vat vs dou-šek.
To jednoduše nelze (nahrazení ou nelze použít v prvním případě)
Takže, orientačně by počet slabik dával kód, který jsem vložil - musel bych ale mírně doupravit... Takto jednoduchý kód ale nikdy nebude 100% a kdo ví jestli nějaký ano. Vlastně ano, 100% by byl slovník (slovo - počet slabik) ;))
Mno a jak už to tak bývá - když se na to člověk koukne druhý den, tak vidí věci, které den před tím unikly.
Prostě to berte jen jako nástřel. Na toto stejně krátká procedura stačit nebude. A tipl bych že bez slovníku to taky nepůjde. Kdyby to totiž bylo jednoduché, tak zadáte na internet "počet slabik" a vyjede vám algoritmus, popřípadě i funkce v nějakém programovacím jazyce.
@marjankaj
Francouzi a angličané tady nechodí.
Předpokládám určitou inteligenci. Schválně, zkuste si tipnout, pro který jazyk jsem to dělal? ;)))
Mimochodem, jednou z výjimek, kdy to nebude fungovat, je právě slovo výše zmiňované slovo doučovat...
Tak jen tak z legrace (jako funkce listu) ;))
Testováno na pár slovech, určitě budou výjimky. Případně si někdo může hrát dál. Komentář dávat nebudu, kdo chce, ten to pochopí :p.
Aby bylo funkční, je zapotřebí do modulu vložit fci REMOVE_DIACRITICS
Function POCET_SLABIK(ByRef Slovo As Variant) As Byte
Application.Volatile
Const csVOCALS As String = "aeiouy"
Dim iRetVal As Byte
iRetVal = 0
Dim sWord As String
sWord = Slovo
Dim iPos As Byte
iPos = WorksheetFunction.Max(InStrRev(sWord, "l"), InStrRev(sWord, "r"))
Do Until iPos = 0
If Not iPos = 1 Then
If InStr(csVOCALS, Mid$(sWord & "x", iPos + 1, 1)) = 0 Then
sWord = Left$(sWord, iPos - 1) & "a" & Mid$(sWord, iPos + 1)
End If
iPos = WorksheetFunction.Max(InStrRev(sWord, "l", iPos - 1), InStrRev(sWord, "r", iPos - 1))
Else
iPos = 0
End If
Loop
sWord = REMOVE_DIACRITICS(sWord)
For iPos = 1 To Len(csVOCALS)
If Not InStr(sWord, Mid$(csVOCALS, iPos, 1)) = 0 Then
sWord = Replace$(sWord, Mid$(csVOCALS, iPos, 1), "a")
End If
Next iPos
sWord = Replace$(sWord, "aa", "a")
iRetVal = Len(sWord) - Len(Replace$(sWord, "a", vbNullString))
POCET_SLABIK = iRetVal
End Function
Pro začátek bych asi zkusil toto řešení
Na Macbook nainstalovat VirtualBox - na něm virtualizovat Windows a office. Jste na jednom PC, navíc jste schopen s virtuálem sdílet složky.
Z legrace zkusím opak (na win virtualizovat OS X), docela mne zajímá rozdíl.
-
@Jan-Mach
Vypadá to chytře, to co píšete. Zatím jste mne ale ničím nepřesvědčil, co by vás opravňovalo používat tento tón ("...na tomto fóru je zvykem...", "...proboha co je to za kód...", atp.).
Zastanu se elninoslova. Předpokládám, že do buňky zapisuje v každém kroku prostě proto, aby bylo opravdu vidět, že makro běží. Tady nejde o rychlost, ale o demonstraci.
A s tím Textem bych to tak růžově taky neviděl.
Vlastnost Text vrací formátovanou hodnotu buňky. Jejím používáním si zakládáte na velké problémy.
Napište do buňky číslo 123456 a zužte buňku, až se zobrazí kriminály. Pak se podívejte, co vrací vlastnost Text.
Nebo nastavte vlastní formát "0 " (0+mezera). Dostanete 123 a jste v (ano tam).
Místo toho se raději podívejte na Value2.
Mno, já bych se asi poohlédl po nějakém programu na tvorbu fontů. Ty si pak uložíte a kdykoliv nainstalujete - přenesete do dalších pc. Případně přibalíte do souboru excelu.
A i tu reinstalaci jednou za rok bych řešil nějakým jiným způsobem (image disku,klonování disku). Musí to být děsná otrava každý rok vše instalovat, aktualizovat atp.
Na jiném PC to nestačilo. Nicméně po týdnu to zdá se funguje.
Tak asi tak.
eLCHa nemá nic novějšího, než toto:
http://wall.cz/index.php?m=topic&id=35820
Kód padal při SaveCopyAs a po úpravě při Workbooks.Open. Po odinstalování této aktualizace mi kód projel. Na jiném PC to nestačilo. Nicméně po týdnu to zdá se funguje.
@elninoslov
Jak to čtu, je možné, že máte stejný problém jako já.
V tom případě nepomohlo ani to,co navrhujete v posledním příspěvku.
Viz mé vlákno o aktualizaci. Zkuste odinstalovat březnové aktualizace. U mne pomohlo.
Berte jako upozornění
Ve spojení s excel 2010 tato aktualizace způsobuje pády aplikace a to i v jiných situacích, než je popsáno.
- mně padá při opakovaném spuštění některých základních operací se sešitem
Ve stejný den jsou i aktualizace dalších aplikací balíku - asi bych jim taky moc nevěřil
https://support.office.com/cs-cz/article/Opravy-a-%25C5%2599e%25C5%25A1en%25C3%25AD-pro-posledn%25C3%25AD-probl%25C3%25A9my-v-Excelu-pro-Windows-49d932ce-0240-49cf-94df-1587d9d97093?ui=cs-CZ&rs=cs-CZ&ad=CZ&fromAR=1
=(1-2*(B2<600000))*(E2-D2)nebo pokud chce zahrnout i účty 8 a 9=(1-2*((B2-(B2>699999)*300000)<600000))*(E2-D2)
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články