Stránka 1 z 2
Re: Makro do Excelu
Napsal: 30 srp 2017 15:59
od X
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).
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
Re: Makro do Excelu
Napsal: 30 srp 2017 16:42
od elninoslov
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
Re: Makro do Excelu
Napsal: 31 srp 2017 19:05
od elninoslov
Tak čo, doplnok nevyhovuje ?
Re: Makro do Excelu
Napsal: 17 říj 2017 16:14
od IvanH
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.
Re: Makro do Excelu
Napsal: 17 říj 2017 16:44
od X
IvanH: 1) přečti si pravidla fóra!
Re: Makro do Excelu
Napsal: 17 říj 2017 21:46
od Grimm
IvanH
Vyzkoušej makro v modulu Listu1.
Re: Makro do Excelu
Napsal: 18 říj 2017 13:13
od IvanH
Grimm ďakujem Ti. Pravdepodobne som porušil pravidlá fóra nakoľko ma pán X s Havlíčkovho Brodu na to s výkričníkom upozornil :). Snáď som náčelníka vesmíru neurazil :) Cez to všetko Grimm ešte raz vďaka - funguje to. Prajem pekný deň.
Re: Makro do Excelu
Napsal: 18 říj 2017 20:23
od X
Takovým lidem patrí dát po papolu, opravdu jak somár vlezu do cizího vlákna místo aby si založili vlastné. Tím jen ukazoju že pohrdajú pravidly a ostatne jich asi ani nečítali. Ach bačo bačo ...