• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

třeba takto:

Označit, Řazení - Vlastní řazení - sl.A,B.

třeba taktoSub Obrazek1()
Dim Bunka As Range, Obrazek As String
Set Bunka = Range("c46")

With ActiveSheet.Pictures.Insert (ThisWorkbook.Path & "\" & "OBRÁZEK podpis.JPG")
.ShapeRange.Left = Bunka.Left
.ShapeRange.Top = Bunka.Top
.ShapeRange.Height = 10
.ShapeRange.Width = 10
End With
Set Bunka = Nothing
end sub

Ahoj lidi!
Já to řeším vložením WordArt.
Když vím, že běh makra si vyžaduje nějakou dobu (importy, exporty na síti atd.) vložím na začátku procedury WordArt (čekej makám) pojistím to "ScreenUpdating = True", pak False. Potom pro případ, že by se běhěm chodu makra něco zvrtlo, vyměním WordArt s hláškou (chyba makra + klv.zkratka). Tato hláška se samozřejmě objeví pouze v případě nechtěného ukončení makra a nabádá, aby pomocí klávesové zkratky bylo vše uvedeno do normálu (Události, přepočet, zámky atd). Na konci kodu tento WordArt odstraním.

Ahoj lidi!
Nebyl by po ruce lepší výpočet celých měsíců?
Toto jsem vypotil:
nMesicu = DateDiff("m", xDatum, yDatum)
nMesicu = nMesicu + (DateAdd("m", nMesicu, xDatum) > yDatum)ale nešlo by to bez té podmínky?

Díky paráda!

Moc děkuji! Neboj se, je to pro mojí soukromou potřebu. Nemám potřebu někde něco někomu nutit. Jinak nedostatečně jsem se vyjádřil. Mám tu kalkulačku uloženou na disku (offline). Moje chyba, nevadí, použiji tento kód.

Ahoj lidi! (EXCEL 2010)
Dalo by se procedurou VBA zadat do kalkulačky rok, spustit přepočet a pak stáhnout tabulky?!
http://www.fourmilab.ch/earthview/pacalc.html#phtab
Kalkulačka jde uložit off.

Myslíš toto?

Tak moji rádcové, všechna tři řešení fachčí bezvadně!
Ale řešení CSE=SUMA() od marjankaj mi připadá nakonec nejelegantnější.
Všem Vám díky!

Sub nacisthodnoty()
Dim souborkalkulace As String, cesta As String, heslo As String, i As Integer
i = 2
Application.DisplayAlerts = False
Application.ScreenUpdating = False
cesta = "C:\PREvsPOST\InputPrecalc\"
souborkalkulace = Dir(cesta)
heslo = InputBox("Input the password to unprotect Calculation Tools", "Calculation Tool password")
On Error Resume Next
Do While Len(souborkalkulace) > 0
Workbooks.Open (cesta & souborkalkulace), , , , heslo
If Err = 0 Then
Range("C11").Copy Destination:=Workbooks("nacitaci.xlsm").Worksheets("list1").Cells(i, 1)
Range("L11").Copy Destination:=Workbooks("nacitaci.xlsm").Worksheets("list1").Cells(i, 2)
Range("C19").Copy Destination:=Workbooks("nacitaci.xlsm").Worksheets("list1").Cells(i, 3)
i = i + 1
ActiveWorkbook.Close
Name cesta & souborkalkulace As NovaCesta & souborkalkulace
Else
Err = 0
End If
souborkalkulace = Dir
Loop
On Error GoTo 0
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

No ten chybový stav bych ošetřil:
On Error Resume Next
příkazy
On Error Goto 0
a ten přesun:
Name OldName As NewName

Co tě vede k takové úvaze?
Ano vybral jsem si COUNTIFS a to z toho důvodu, že mohu(dokonce) jednoduše měnit hodnotu "ZAOKROUHLENÍ".
A bohužel fce MROUND nejde použít v CSE vzorci:?! Jinak bych dal přednost řešení od marjankaj.

Oba skvěle, fachčí, díky!

Jasně, že vím jak se CSE vzorce vkládají.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje