• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Mám pocit, že kraj v datech ARESu (v tomto případě) není.

Docela nejasné zadání. Co máš na mysli "spojením obsahu" jako že A1 = "dům" B1 = "auto" tak C1 = "dům auto"
nebo (asi spíš toto) C1 = "dům", C2 = "auto" ?
... aby se pružně rozšiřoval ??? do šířky nebo co do počtu řádků ?? (asi počtu řádků)

Zadej nějaký vzor.

A kolik tech listů se zdrojovými daty má být? Určitý počet(2,3,4,..) nebo neznámý. Pokud by byl neznámý, tak na listu, kam se bude kopírovat bych udělal součty nahoře a dolu kopíroval data z jiných listů. A navíc bych ten součtový list dal jako list1. Ale samozřejmě záleží na Tvém požadavku.

Mrkni na to, a vygoogli si příklady maker z netu. Jsou jich tam miliony.

Tož jsem to vyzkoušel a došel ke stejnému závěru jako Dingo. Je-li makro v listu, nepokračuje na jiném listu, což je logické. Pokud dáš makro do "module" funguje normálně. Makro spustíš v Module třeba tak:

Private Sub CommandButton1_Click()
Call makro_jmeno
End Sub

Na druhý list stejného listu jsem ještě nikdy nepřepnul. Ať dělám co dělám, nic.

Snad takto ?

opr. 8,30 = 0,354...... atd

Nevím, jestli jsem to pochopil.

A jak rozsáhlé má být zadání? Z popisu není jasné jestli je to jen FO1,FO2 nebo i FO9 (například). Hodnota FOx se bude zapisovat jen do buňky A2 nebo i do A3, A4, tedy hodnota v A2 se vztahuje k řádku 2 nebo i 3,4,5.

To je poněkud obecný dotaz, či požadavek.

Ctrl a středník funguje i Off 2010

A jakou hlášku to píše ? nebo nic a jen nejdou?

Jenom pro upřesnění - dotaz.
máš na mysli, že je třeba nejprve spusit XXX, pak zavřít a v jiném novém sešitě lze makra psát nebo je lze psát a spouštět jen v otevřeném sešitě XXX ???

Není třeba nový sešit otevírán z jiného než "důvěryhodného místa" , tedy adresáře ???

V souboru "použití.log" (vytvoří se automaticky ve stejném adresáři) máš pak přehled kdo a kdy se v tom hrabal

zapiš do Thisworkbook:

Private Sub workbook_open()
čítač = GetSetting("POKUS", "rozpočet", "počet", 0)
otevřenoposledně = GetSetting("POKUS", "rozpočet", "Otevřeno", "")

Msg = " Tento sešit byl zde otevřen " & čítač & " krát."
Msg = Msg & vbCrLf & " Posledně otevřeno: " & otevřenoposledně
MsgBox Msg, vbInformation, ThisWorkbook.Name

čítač = čítač + 1
otevřenoposledně = Date & " " & Time
SaveSetting "POKUS", "rozpočet", "počet", čítač
SaveSetting "POKUS", "rozpočet", "otevřeno", otevřenoposledně

Open ThisWorkbook.Path & "\použiti.log" For Append As #1
Print #1, Application.UserName, Now
Close #1

Application.DisplayFullScreen = False
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse