Auto HI-FI Club CZ

autohifi,auto hi-fi,auto hifi,autohificlub,auto hi-fi club,club, klub,fórum,autorádio,autozesilovač,autorádio cd,autorádio mp3,autorádio dvd, tuning,srazy,tuningshow,klub,emma,dbdrag,tuning,autotuning,carstyling, tlumeni, Alpine,octavia,Brax,Denon,Clarion,Pioneer,Sony,panasonic,Helix, Dynamat,dego,Hertz,Audison,Fusion,McIntosh,Focal,Rockford Fosgate,Dynaudio,JBL,xenony,becker,jvc,kenwood,ground zero,dietz,morel doorboardy ,zapojeni,felicia,pioneer,peugeot,zastavba,audio,306,repro,golf,instalace,dls,4x100,FELICIE,morpheus,helix,audi(forum)

o

Forum > Ostatní > H: Excel - VBA

 o Navštíveno 1437x o
o 02.08.2013, 14:14 | X-sat (M)
Prosím znalé o radu - VBA v Excelu.

ot. 1

Každý list v Excelu má název - standarně List1. Jak "říct" makru, aby nezohledňovalo název listu, ale pracovalo s listem, který je první v pořadí (zleva)?

ot. 2

Jakou syntaxi použít, aby byl do buňky vložen název souboru?

PS: Jsem neznalý VBA

Děkuji


o 02.08.2013, 18:04 | bassaqq
OT1: můžeš se odkazovat na list pomocí Sheets(index) v tomto případě první má index 0
o 02.08.2013, 20:46 | X-sat (M)
Zkusím, díky
o 03.08.2013, 01:26 | Tomcat.530i
OT2:

Sub vloz_nazev_souboru()
Dim Soubor As String

Soubor = ThisWorkbook.Name
ActiveCell.Value = Soubor
End Sub

Místo Activecellu můžeš napsat konkrétní adresu buňky kam se má název vkládat.
o 04.08.2013, 14:42 | X-sat (M)
Jak přesně má být ta syntaxe, když bude název souboru "AAAAA" a má se objevit na pozici A1. Díky.
o 06.08.2013, 01:17 | Tomcat.530i
Sub vloz_nazev_souboru()

Dim Soubor As String
Soubor = ThisWorkbook.Name
Range("A1") = Soubor

End Sub



Po spuštění makra Excel přečte aktuální název sešitu a zapíše ho do buňky "A1"

o 09.08.2013, 11:07 | X-sat (M)
Díky moc. Ještě jeden dotaz. Mám data ve sloupcích B,C,E. Sloupce s daty až na řádek 220. Rád bych, aby makro doplnilo název sešitu (viz předchozí dotaz) do buněk A1 až A220.

Existuje nějaká automatika doplnění podle vedlejšího sloupce? Díky.
o  Zpět  o  Nahoru
o
 

Vložit nový příspěvek do fóra


  Pro vložení příspěvku musíte být přihlášen/a.
Stránka vygenerována za 0.3122 sekund.