Příspěvky uživatele

kterou potřebuji ve stejném formátu exportovat do txt

co myslíte tím ve stejném formátu?

Koukám na to a vůbec tomu nerozumím. Dokonce ani nevím, na co se mám zeptat abych pochopil.
Co ten graf má říkat?
Vložte tam nějaká data - tohle mi přijde prostě divné, že všichni 3 začínají vždy v 6 hodin...
Ten graf vychází z jiných dat - jsou tam jiná pole...
Nevím, prostě tomu nerozumím...

Tak jsem si dnes hrál. Vytvořil jsem doplněk IDoNothing, který překvapivě nic nedělá, pouze kontroluje, jestli není na serveru jeho nová verze a pak se aktualizuje.

V příloze je složka se dvěma úplně stejnými soubory
IDoNothing0_013.xlam
IDoNothing0_014.xlam
kde to číslo znamená verzi. Složku někam rozbalte a umístění vložte do konstantyConst SERVER_DIR As String = "V:\IDoNothing\"(myšleno server, u mně V:\IDoNothing\)

Instalace doplňku probíhá dvojklikem na vybraný soubor (poklepejte na 0_013). Ten se nainstaluje. Pak zavřete excel a znovu spusťte. Doplněk zkontroluje novou verzi a tu nainstaluje místo sebe.
Použil jsem OnTime +5s (šlo by asi i kratší), protože spouštím makro nového souboru ze starého, přitom musím ale ten starý nejdříve zavřít. Zatím mně nenapadl jiný způsob, aniž bych musel vytvářet další mezisoubory.

Číslo verze dávám přímo do názvu souboru, přijde mi to tak nejjednodušší, navíc je možnost mít v adresáři více verzí (asi k ničemu, ale možnost to je ;) ).

Asi takhle nějak bych na to šel já, kdybych to někdy dělal ;))
Můžou tam být mušky, mouchy a možná i nějaká masařka, ale při cca 10 pokusech to cca 10x proběhlo.

Věřil bych, že to zvládnete sám, ale dobrá, zkusím něco vymyslet ;)

Edit:
Ten novější příspěvek jsem neviděl, ale stejně to zkusím ;)))

Nee - myslím obyčejné VBA ;)

@Palooo
Já bych to řešil tak (jako to řeší většina programů), že v počítači bych při startu doplňku zjistil, jestli existuje na serveru jeho aktualizovaná verze, pokud ne nebo nemám přístup, spustí se stará verze. Pokud ano, aktualizuje se doplněk a spustí se nový, opět v počítači.
Takže jedna verze na síti, která při instalaci zkopíruje sama sebe do počítače, tam se nainstaluje a spustí. Tato potom už jen ověřuje, jestli není něco novějšího.

Možná to je jinými slovy to co jste napsal a jen jsem to nepochopil.

Vyexportovat ze souboru můžete jednotlivé moduly a ty potom naexportovat. Celý projekt exportovat nelze. Nicméně potom musíte přijít k jednotlivým počítačům a ty moduly aktualizovat.
Je možné to udělat i kódem, ale z důvodu zabezpečení je třeba ručně změnit nastavení v Excelu (http://wall.cz/index.php?m=topic&id=18750). Toto nastavení nelze změnit programově a je to tak správně, protože by se Vám asi nelíbilo, kdyby se do kódu dostal nějaký, který tam nechcete.
Pokud máte soubor s kódem v x kopiích na x počítačích, budete to muset udělat x-krát.

Předpokládám, že vzhledem k tomu, že to nebudou nijak složité soubory (bez urážky, nemyslím to zle, jen tipuji z Vašich příspěvků) je možná jednodušší udělat to naopak. Vytvořit soubor s upraveným kódem, který do sebe natáhne data uživatelů, smaže (zálohuje) starý soubor a uloží se pod stejným jménem. V tomto případě Vás excel nijak neomezí, ale muselo by se vidět ten soubor. Když už by došlo k této situaci, tak bych já uvažoval raději nad touto možností, než aktualizovat kód. Výhodou by bylo, že by to zvládl každý uživatel sám, protože by tam bylo pouze tlačítko aktualizuj a nemusel byste je všechny obcházet a vysvětlovat jim, co mají dělat.

@Palooo
Jen technická dotaz, má to nějaký důvod?
ThisWorkbook.Saved = Not Cancel, proč ne ThisWorkbook.Saved = True

Já tomu prostě nerozumím. Proč si myslíte, že ten obrázek je lepší než příloha? To si ta data máme přepsat, vytvořit graf a přemýšlet, co tam asi děláte špatně?
Když už to máte hotové a jen to dělá něco špatně, proč to tu nevložíte?
Obsahuje citlivá data? Tak je vymažte. Pokud to nelze, věnujte 10 minut času a vytvořte ukázkový soubor a ten tu vložte.

Mno, já nevím, ale mně přijde celkem normální se soustředit na pozadí (|), co myslíte? ;))))

Já to, ale potřebuji jak jsem psal, text v buňce dostat do proměnné. (jako-by pomocí hodnot v buňce měnit kód.)
To podle mého názoru neuděláte. Jediná možnost je udělat tabulku např.:

xlPatternAutomatic -4105
xlPatternChecker 9
xlPatternCrissCross 16
xlPatternDown -4121
xlPatternGray16 17
xlPatternGray25 -4124
xlPatternGray50 -4125
xlPatternGray75 -4126
xlPatternGray8 18
xlPatternGrid 15
xlPatternHorizontal -4128
xlPatternLightDown 13
xlPatternLightHorizontal 11
xlPatternLightUp 14
xlPatternLightVertical 12
xlPatternNone -4142
xlPatternSemiGray75 10
xlPatternSolid 1
xlPatternUp -4162
xlPatternVertical -4166

a v ní pak pomocí vyhledávací fce přiřadit číselnou hodnotu

K čemu Vám je, že máte v listu místo čísla název konstanty? Proč tam nemůžou být ta čísla?

Já s tím nedělám a nevím jak se s tím pracuje - co když vymaže několik buněk najednou (což nebylo ošetřeno ani v původním kódu)?
Určitě je pár věcí na odladění...

Pomůže toto?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then
If Len(ActiveCell.Value) = 0 Then
Target.Cells(1).Offset(0, 1).ClearContents
Target.Cells(1).NumberFormat = "General"
Else
If Not Target.Cells(1).NumberFormat = ";;;""" & Target.Cells(1).Value & """" Then
Target.Cells(1).Offset(0, 1).Value = Now
Target.Cells(1).NumberFormat = ";;;""" & Target.Cells(1).Value & """"
End If
End If
End If
End Sub

Nerozumím
ked chci editovat zvnutra bunku tak zmaze datum

Sub subTest()
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("a")

Dim pi As PivotItem
For Each pi In .PivotItems
Select Case pi.Caption
Case "10", "20", "30"
pi.Visible = True
Case Else
pi.Visible = False
End Select
Next pi
Set pi = Nothing
End With 'ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("a")
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje