Příspěvky uživatele
< návrat zpět
Tak na toto ja nemám. 
No tak to neviem ani ja.
Zvláštny spôsob šifrovania.
No ak ti nevadí pomocný hárok, tak mne sa to podarilo vzorcom.
A môžeš ich mať aj cez 200 
&eLCHa
Tiež ma napadlo riešiť to vzorcom, ale zadávateľ písal "jen makrem", tak som sa nesnažil vymýšľať vzorec. 
No tých čiarok si tam nemusel toľko dávať
Ešte malá úprava
Public Function cislo(odkial As String, co As String) As String
Dim od As Long, po As Long
od = InStr(1, odkial, co, vbTextCompare) + Len(co)
po = InStr(od + 1, odkial, " ")
If po = 0 Then po = Len(odkial)
cislo = Trim(Mid(odkial, od + 1, po - od))
If Right(cislo, 1) = "," Then cislo = Left(cislo, Len(cislo) - 1)
End Function
Alfan napsal/a:
Hmmm, zas taková Lama nejsem
Problém tedy je v tom, že pokud je ta přerušovaná čára přes konti tabulku, tak s ní nic neuděláte Musíte použít ten můj postup.
No normálne by bolo vložiť prílohu *.xls a zazipuje ju. Alebo si myslíš, že niekto si to bude prepisovať z tvojho obrázku aby si mohol vyskúšať tvoj postup?
Ospravedlňujem sa.Takto je to snáď lepšie formulované.
If Len(Worksheets("List1").Range("A2")) > 8 Then
Worksheets("List2").Range("B2") = Worksheets("List1").Range("A2")
Else
WorkSheets("List2").Range("B2").ClearContents
End If
AL napsal/a:
Stačí tabuľku previesť na ExcelTable - klávesová skratka Ctrl+T
Áno od verzie excelu2007 je to najlepšie.
Prečo tak zložito?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oblast As Range
Set oblast = Range(Target, Target.End(xlDown))
Application.ScreenUpdating = False
If Target.Address = ("$D$2") Then
Target.AutoFill Destination:=oblast
End If
Application.ScreenUpdating = False
End Sub
A o čo sa vlastne snažíš?
AL napsal/a:
Obávam sa, že bez toho, aby som videl tvoj vzorový súbor s kódom, tak sa mi asi nebude chcieť premýšľať nad tým, kde by mohol byť u teba zádrhel.
Obávam sa, že ani neuvidíš. Určite je to tajné.
Ab takto nejako si to nechcel?
Sub ExecutePrint()
Dim x As Worksheet
For Each x In Sheets(Array("Hárok1", "Hárok3"))
x.PrintPreview ' x.printout
Next x
MsgBox "makro pokracuje"
End Sub
Richard99 napsal/a:
Díky funguje to perfektně
objevil jsem jednu zajímavost
Selection.NumberFormat = "General;General;General"
zobrazí absolutní hodnotu čísla
To si si až teraz prečítal, čo som uviedol predvčerom?
Kneiflpe napsal/a:
ok a jak udělat to makro?
Použi záznamník.
A prečo ti nevyhovuje CTRL+P?
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články