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
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