Makro do Excelu
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9505
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Makro do Excelu
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.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
Re: Makro do Excelu
Ahoj, tohle by mohlo pomoct:
https://analysistabs.com/excel-vba/save ... ic-folder/
https://analysistabs.com/excel-vba/save ... ic-folder/
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9505
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Makro do Excelu
To vypadá nadějně, vyzkouším a dám vědět jak to dopadlo. Děkuju
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
-
- Pohlaví:
Re: Makro do Excelu
Application.FileDialog(msoFileDialogFolderPicker)
Application.FileDialog(msoFileDialogFilePicker)
a vlastnost InitialFileName
Application.FileDialog(msoFileDialogFilePicker)
a vlastnost InitialFileName
- mmmartin
- Moderátor
-
Elite Level 10
- Příspěvky: 9505
- Registrován: srpen 04
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Makro do Excelu
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é.
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é.
ASUS Prime Z390-P / Hexa Core Intel core i5 Coffee Lake-S / Gigabyte GeForce GTX 650 Ti / FORTRON BlueStorm Bronze 80PLUS / W 11
Re: Makro do Excelu
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é.
Re: Makro do Excelu
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 ) 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).
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
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Makro do Excelu
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
-š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
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
- Přílohy
-
- SaveAsPath.zip
- (43.32 KiB) Staženo 34 x
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Makro do Excelu
Tak čo, doplnok nevyhovuje ?
Re: Makro do Excelu
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.
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.
Re: Makro do Excelu
IvanH: 1) přečti si pravidla fóra!
Re: Makro do Excelu
IvanH
Vyzkoušej makro v modulu Listu1.
Vyzkoušej makro v modulu Listu1.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 18
- 3677
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 9
- 1207
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 0
- 915
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
-
- 2
- 1350
-
od X
Zobrazit poslední příspěvek
02 čer 2023 18:06
-
-
Graf v Excelu ukazuje chybné hodnoty. Příloha(y)
od atari » 25 dub 2024 08:42 » v Kancelářské balíky - 4
- 222
-
od atari
Zobrazit poslední příspěvek
25 dub 2024 13:28
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 34 hostů