Makro do Excelu

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

Moderátor: Mods_senior

Uživatelský avatar
X
Elite Level 12.5
Elite Level 12.5
Příspěvky: 19325
Registrován: květen 07
Pohlaví: Muž
Stav:
Offline
Kontakt:

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

Reklama
Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

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
Přílohy
SaveAsPath.zip
(43.32 KiB) Staženo 34 x

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Makro do Excelu

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

Tak čo, doplnok nevyhovuje ?

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

Re: Makro do Excelu

Příspěvekod IvanH » 17 říj 2017 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
Elite Level 12.5
Elite Level 12.5
Příspěvky: 19325
Registrován: květen 07
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Makro do Excelu

Příspěvekod X » 17 říj 2017 16:44

IvanH: 1) přečti si pravidla fóra!

Uživatelský avatar
Grimm
Level 2
Level 2
Příspěvky: 162
Registrován: září 17
Pohlaví: Muž
Stav:
Offline

Re: Makro do Excelu

Příspěvekod Grimm » 17 říj 2017 21:46

IvanH
Vyzkoušej makro v modulu Listu1.
Zapis_1.xlsm
(14.9 KiB) Staženo 47 x

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

Re: Makro do Excelu

Příspěvekod IvanH » 18 říj 2017 13:13

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ň.

Uživatelský avatar
X
Elite Level 12.5
Elite Level 12.5
Příspěvky: 19325
Registrován: květen 07
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Makro do Excelu

Příspěvekod X » 18 říj 2017 20:23

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 ...


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Import PDF do excelu Příloha(y)
    od luko02420 » 13 kvě 2023 11:29 » v Kancelářské balíky
    18
    3261
    od luko02420 Zobrazit poslední příspěvek
    16 kvě 2023 11:27
  • Poškozený soubor excelu Příloha(y)
    od Jsimi » 06 úno 2024 22:43 » v Kancelářské balíky
    0
    620
    od Jsimi Zobrazit poslední příspěvek
    06 úno 2024 22:43
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47
  • Promítaní excelu a videa zároveň
    od Marw7_ » 02 čer 2023 15:57 » v Vše ostatní (sw)
    2
    1285
    od X Zobrazit poslední příspěvek
    02 čer 2023 18:06
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1657
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08

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

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 5 hostů