Příspěvky uživatele

tu som urobil makro:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheets("Vystup").Range(Target.Cells.Address) = Target.Cells.Value
Resume Next
End Sub
Makro nieje uplne idealne:
- ked vlozite riadok/stlpec do vstupu tak sa nezobrazi posunutie v vystupe
- pri zmazani vsetkych cells to neprebehne

ale kedze netusim naco to potrebujete hadam toto postaci

hej casto editujem svoje prispevky lebo pisem ako kocur a ked si to sam po sebe citam tak ani ja sam tomu nerozumiem co som chcem povedat :)) zato sa aj vacsine citajucich ospravedlnujem co to musia pomne citat

.... ked uz som si dal z oci klapky prec tak uz chapu o co vam islo ... chcete spravit take nieco ze bude len jeden addin ktory bude zistovat ci cesta zo suborom existuje ..... ked hej bude zistovat ci ten samotny subor ma aktualnejsiu versiu ako je samotny addin v pocitaci

..... ahhh tak toto ma v dobe tvorenia addinsu nenapadlo ... len jedna otazka teraz ma napadla co sa stane ked splni obydve podmienky a prepise sa .... Office nacita staru verziu nie novu hned alebo az na druhe zapnutie?

... to by som musel odskusat :)
... takto by som si ulahcil asi len to zistovanie verzii
... ze mam 2x addins to mne vyhovuje lebo v addins1 je cesta na addins2 co je u mna nie vzdy ta ista cesta :)). Pracujem na 2 sietiach.
... ale zistovanie verzii podla suboru to by som si ulahcil zadavanie public const aVersion

jajj ja blb vy ste narazali na moju logiku programu co som hore uviedol :) .... tak hej ide to aj lepsie urobit ... popravde ja to mam u seba inac urobene ale nechcelo sa mi to cele rozpisovat lebo tam mam dalsich 10 veci.

Ja som si myslel ze nieco automaticky uz pri kompilovani kodu sa rata s aktualizaciou .... co Visual Sudio vie urobit :))

ahh zas som mal klapky na ociach a myslel som si ze nieco prevratne sa naucim :)

Myslite v visual studiu urobit dll? .... ked ano tak zacnu tlacit na nadriadenych aby mi dali visual studio ....V Visual studiu som robil len samostatne aplikacie a to v jazyku C sharp. Este som tam neskusal robit addins pre office

eLCHa: Taketo nieco som prave hladal ked som prechadzal na excell tools .... ale nic som take nenasiel .... ako sa to da urobit???

.... Ked som pracoval v visual studiu tak tuto aktualizaciu zamna riesil on

Ako najefektivnejsie pracovat s makrom pre viacerych uzivatelov

takze mame povedzme 100ludi vsetci pracuju na internej sieti ale maju notebooks a beru si ich aj domov

... kedze kazdy programator si logiku robi sam tak tu davam svoj navrh ... verim tomu ze su aj lepsie veci ale len pre zaujimavost (nieje to cely kod takze trebaho potom dorobit)

Vytvorime si addins addin1 = offline a addin2 = sietovi

Addin1 (Offline): bude len kontrolovat ci je pocitac pripojeny k internej sieti a ci je verzia addinsu aktualna ked nieje pusti sa z jeho pocitaca
Addin2 (sietovi): je hlavne jadro programu

Addin1:
Sub Auto_Open()
If aDetectStatus(Version) Then
If aDelectVersion(aVersion) Then
Call aOnline
Else
Call aRefreshFolderFile
Call aOnline
End If
Else
Call aOffline
End If
End Sub

Sub Auto_Close()
If aDetectStatus(Version) Then
Call aUnloadOnline
Else
Call aUnloadOffline
End If
End Sub

nechcelo sa mi to cele rozpisovat ale ide o to:
Sub Auto_Open(): event sa zapne pri otvoreni excelu
Sub Auto_Close(): event sa zapne pri zatvoreni excelu

aDetectStatus: funkcia na zistovanie ci dana sietova cesta existuje ... vracia true/false
aDetectStatus existuje: tak skontroluje aDelectVersion ci verzia je ta ista ako sietova verzia porovna napr. textak v internom pc ktory je vytvoreny alebo nieje vytvoreny s textakom na sieti ..... (pozn. nieje vytvoreny ... moze sa jednat o noveho uzivatela)
aDetectStatus neexistuje: nainstaluje Addins2 offline

aDelectVersion: funkcia na zistovanie aktualnosti addins2 ... vracia true/false
aDelectVersion nezhoduje sa alebo nieje textak: tak skopiruje Addins2 do uzivatelskeho pocitaca. Potom nainstaluje Addins2 Online/offline
aDelectVersion ta ista verzia: nainstaluje Addins2 Online/offline

.... Addins Online/offline ci: zapnut to z miesneho pc alebo z sietoveho adresara to uz je na vas ... zalezi aky je to addin

a na zaver sa pri ukonceni excelu addins2 online/offline sam oddinstaluje

Vyhody:
- Instalacia u uzivatela je velmo jednoducha staci len nainstalovat addins1 ... s zapisom na disk
- kedze addins2 sa nachadza na sieti tak je dost jednoduche taketo nieco manazaovat/upravovat/menit
- pomocne subory k addinsu sa musia ukladat cez prikaz cesty Environ("APPDATA") .... funguje aj v win xp/ milenium/7/8 atd. .... takze na uzivatelskom pocitaci nebude problem s vytvorenim zlozky pre addin

viem ze som to napisal dost v skratkach ale tato tema je podla mna dosttt na dlho

Al: Ja to riesim inac ... ja davam uzivatelom Addins ... a ten zistuje aktualnu verziu podla toho ked je neaktualna tak nahra nove subory k nemu do PC

...... tj. moze pracovat aj Offline

Al: ked to je tak ako hovoris ... tak to potom robi zle ... mal by vsetkych uzivatrelou orientovat do jedneho adresara s makrami a odtial by ich nacitavali ... a tam by si ich uz potom jednoducho updatoval .... ci to tam bude mat formou makra alebo addinsu to uz neham nanho

.... ale takto updatovat makra je dost neprofesionalne

ano da:
Private xl As Excel.Application
Private W As Workbook

Sub aAddWorkbooks()
'Set xl = CreateObject("Excel.Application")
'xl.Visible = True
'Set W = xl.Workbooks.Add

Set W = Workbooks.Add
End Sub

jeden je v novom exceli a druhy je v povodnom exceli

nebude vam stacit Pivot Tabulka vytvorena s pomocnym stlpcom???

Vestica Teodora urcite vie s ktorymi suborami klient robil :)) a kam si ich dal.

Toto urcite nepojde .... jedine co sa moze spravit tak nove makro co by upravilo vystup z nejakeho makra

aha mate pravdu :) ... vobec ma nenapadla funkcia ... uz som asi zdeformovany povolanim

... zistoval som aj ci funkcie su rychlejsie ako eventy pri otvoreni dokumentu. A ano su rychlejsie takze staci dat event Open a tam Save:
Private Sub Workbook_Open()
ThisWorkbook.Save
End Sub

no asi ste prilozili zlu prilohu

ale asi v spravnej prilohe mate event pri otvoreni dokumentu ze ma urobit nejaku zmenu .... tak potom na konci toho makra doplnte saveas .... a nebude sa vas to pytat

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje