Makro do Excelu

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
mmmartin
Moderátor
Master Level 8.5
Master Level 8.5
Příspěvky: 7532
Registrován: srpen 04
Bydliště: Praha
Pohlaví: Muž

Makro do Excelu

Příspěvekod mmmartin » 28 srp 2017 21:47

V excelu ukládám sešity do několika adresářů, uložených asi na páté úrovni pod c:\. Když dám Uložit jako, musím se po vyplnění jména souboru proklikat k adresáři a dát Uložit. Předpokládám, že by šlo pro každý adresář vytvořit makro, které by po spuštění otevřelo okno Uložit jako s už předvyplněnou cestou k cílovému adresáři, kde by stačilo vyplnit jméno souboru a dát Uložit. Problém je v tom, že moje znalosti v oboru makra končí u klávesového makra a jeho drobných úprav. Poradí někdo? Děkuju.



Reklama
Denis V.
Level 3.5
Level 3.5
Příspěvky: 980
Registrován: květen 13
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod Denis V. » 28 srp 2017 22:03


Uživatelský avatar
mmmartin
Moderátor
Master Level 8.5
Master Level 8.5
Příspěvky: 7532
Registrován: srpen 04
Bydliště: Praha
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod mmmartin » 28 srp 2017 22:19

To vypadá nadějně, vyzkouším a dám vědět jak to dopadlo. Děkuju

xlnc
Level 3.5
Level 3.5
Příspěvky: 715
Registrován: červenec 11
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod xlnc » 29 srp 2017 08:49

Application.FileDialog(msoFileDialogFolderPicker)
Application.FileDialog(msoFileDialogFilePicker)

a vlastnost InitialFileName
administrátor ProExcel.cz | lektor | vývojář | léčitel pro Microsoft Excel

Uživatelský avatar
mmmartin
Moderátor
Master Level 8.5
Master Level 8.5
Příspěvky: 7532
Registrován: srpen 04
Bydliště: Praha
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod mmmartin » 29 srp 2017 18:35

Denis V.: Jeden návod vypadal nadějně, ale v podstatě dělá to, co menu Uložit jako: otevře okno, ve kterém se musí zadat cíl i jméno souboru.
xlnc: Pokusím se s tím poprat, v případě, že si s tím neporadím, ozvu se. Zatím to konzultuju s Googlem.
Děkuju. Zatím nechávám otevřené. :?

Uživatelský avatar
atari
Level 4
Level 4
Příspěvky: 1282
Registrován: říjen 08
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod atari » 30 srp 2017 15:37

Makro je sice ideální, ale u nových souborů není vždy po ruce. Takže já to řeším tak, že si od oblíbených položek uložím ten daný adresář a pak ho zvolím na jedno kliknutí. U starších vezí Office se to jde také.

Uživatelský avatar
X
Tvůrce článků
Elite Level 12.5
Elite Level 12.5
Příspěvky: 18708
Registrován: květen 07
Bydliště: ČR: Vysočina: Havlíčkův Brod
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod X » 30 srp 2017 15:59

Můžeš si poupravit pro své potřeby můj kód, který používám. Pověs si ho na tlačítko. Cestu vidíš, zadej si svou, soubor dostane i svou verzi (automaticky), ale jen při současném stisku jisté (hledej :lol: ) shiftovací klávesy - já pro verzování používám ten nejpřirozenější formát, tedy datum a čas ;) Při nepodržení této shiftovací klávesy dojde k neautorizovanému uložení bez času, ale s přidáním: NoAuthor ...

P.S.: Řádek: Unload UserForm1 - můžeš zanedbat (smazat).

Kód: Vybrat vše

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
        Dim Location As String, ThisFile As String
        Location = "C:\TEXT\# DOKUMENT\# SEZNAM\LEXIKON\LEXIKON " & Format(Now(), "yyyy/mm/dd ")
        If Shift = 2 Then ThisFile = Format(Time(), "hh-mm-ss") Else ThisFile = "NoAuthor"
        ThisFile = Location + ThisFile & ".xls"
        Unload UserForm1
        Cells(1, 1).Select
        ActiveWorkbook.SaveAs Filename:=ThisFile
    End If
End Sub
KATEGORIE:​SYSTÉM​NET​DATA​EMULACE​HRY​VIDEO​AUDIO​GRAFIKA​TEXT‌​‌​ ‌​‌​APP‌‌‌‌​Brigády‌​Filmy‌​Firefox​​●‌​FormátHlavolam‌​●‌​Hra‌​●‌​Hry‌​​Ikony‌​Klipy‌​Knihy‌​●‌​KomixyKoš‌​Melodrama‌​NákupyOdkazy‌​OS‌​Plné hry‌​●‌​RubikSam CoupéSoftware‌​●‌​Šedá zónaTV‌​‌​TV‌​Úložiště‌​VideoNovinky‌​Zajímavosti‌​Znaky

elninoslov
nováček
Příspěvky: 23
Registrován: červen 13
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod elninoslov » 30 srp 2017 16:42

Riešením pre nové dokumenty bez makra by možno bolo naprogramovanie vlastného doplnku, ktorý by si pamätal (kľudne vo forme blbého TXT) poslednú/predvolenú cestu a vlastným tlačítkom v nástrojovej lište by volal niektorý z kódov tu uvedených. Ale neskúšal som...

EDIT: Teda napr. (treba ešte dopilovať)
-rozbaliť do adresára

Kód: Vybrat vše

c:\Users\Vaše_Meno\AppData\Roaming\Microsoft\AddIns\

-štartnúť Excel - Súbor - Možnosti - Doplnky - Saveaspath - Spustiť - zakvačiť pole pri Saveaspath - OK - reštart Excel
-pribudne záložka Ulož, kde sa dá nastaviť 6 predvolených zložiek cez "Nastavenie zložiek"
-len popisky tých tlačítok a ikonky treba urobiť na mieru
Nemáte oprávnění prohlížet přiložené soubory.

elninoslov
nováček
Příspěvky: 23
Registrován: červen 13
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod elninoslov » 31 srp 2017 19:05

Tak čo, doplnok nevyhovuje ?

IvanH
nováček
Příspěvky: 1
Registrován: říjen 17
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod IvanH » včera, 16:14

V exceli potrebujem vytvoriť nasledovné makro:
Krok 1: Klik na tlačítko - zápis do bunky "A1" hodnota 1 a aktivuje/prechod na bunku "A2".
Krok 2: Makro by malo byť aktivované opätovným kliknutím na tlačítko. Zápis "1" bude vykonaný v aktívnej bunke "A2" a prechod bude na bunku "A3" .....
Krok n+1...
Vie mi s tým niekto pomôcť? Nie som v oblasti programovania makier znalý problematiky .
Ďakujem.

Uživatelský avatar
X
Tvůrce článků
Elite Level 12.5
Elite Level 12.5
Příspěvky: 18708
Registrován: květen 07
Bydliště: ČR: Vysočina: Havlíčkův Brod
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod X » včera, 16:44

IvanH: 1) přečti si pravidla fóra!
KATEGORIE:​SYSTÉM​NET​DATA​EMULACE​HRY​VIDEO​AUDIO​GRAFIKA​TEXT‌​‌​ ‌​‌​APP‌‌‌‌​Brigády‌​Filmy‌​Firefox​​●‌​FormátHlavolam‌​●‌​Hra‌​●‌​Hry‌​​Ikony‌​Klipy‌​Knihy‌​●‌​KomixyKoš‌​Melodrama‌​NákupyOdkazy‌​OS‌​Plné hry‌​●‌​RubikSam CoupéSoftware‌​●‌​Šedá zónaTV‌​‌​TV‌​Úložiště‌​VideoNovinky‌​Zajímavosti‌​Znaky

Grimm
nováček
Příspěvky: 3
Registrován: září 17
Pohlaví: Muž

Re: Makro do Excelu

Příspěvekod Grimm » včera, 21:46

IvanH
Vyzkoušej makro v modulu Listu1.
Zapis_1.xlsm
Nemáte oprávnění prohlížet přiložené soubory.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Makro v Excelu
    od ondra030 » 27 dub 2017 15:18 » v Kancelářské balíky
    4
    296
    od xlnc
    28 dub 2017 20:38
  • makro v Excelu
    od Ilam » 08 bře 2017 09:18 » v Programování a tvorba webu
    0
    295
    od Ilam
    08 bře 2017 09:18
  • Makro v excelu (VBA)
    od xp3 » 22 bře 2017 17:39 » v Kancelářské balíky
    11
    718
    od xp3
    31 bře 2017 15:46
  • Makro
    od Cris1 » 06 bře 2017 18:05 » v Vše ostatní (hw)
    2
    205
    od Cris1
    07 bře 2017 17:44
  • Tabulka v Excelu
    od Betty80 » 14 srp 2017 20:22 » v Vše ostatní (sw)
    0
    165
    od Betty80
    14 srp 2017 20:22

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů