Příspěvky uživatele
< návrat zpět
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?
Vlož obrázok, klikni naň pravým tlačítkom a priraď makro.
AL napsal/a:
poznamenám len, že u mňa General nefunguje (záleží pravdepodobne na lokalizácii Excelu), preto som uviedol
Vęeobecný
(prvá položka zo zoznamu vlastných formátov)
Veď asi jemu zase nefunguje Všeobecný.
A možno po česky je to OBECNÝ.
namiesto všeobecné tam daj GENERAL, teda podľa tvojej verzie excelu.
General;General;General
Napríklad takto
# ##0,00;"0";0
Jirkapce napsal/a:
jak vložim přílohu ?:)
Skús sa najprv zaregistrovať.
benawof napsal/a:
problém je že nedokážu přesně nastavit mezeru mezi znakem P a A protože neumím ovlivnit mezeru okolo znaku v buňce... té se právě potřebuju zbavit, aby velikost buňky byla stejná jako velikost znaku...Příloha: 24426_1893.jpg
Tvoj excel ukladá súbory iba v jpg?
Hav-Ran, máš úplnú pravdu. Celkom by ma zaujímalo, čo si zadávateľ predstavuje pod tým "znakom". Bez prílohy to uhádne iba ak veštica.
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