Stránka 1 z 2
Excel: Prosím o vytvoření makra
Napsal: 06 kvě 2009 14:15
od Palino
Zdravím pánové, potřeboval bych prosím makro aby umělo že když označím určité buňky, aby je to prohledalo a pokud by v nich našlo hodnoty větší než 0,2. Aby to do určité buňky napsalo danou větu...
Děkuju
Re: Prosím-makro
Napsal: 06 kvě 2009 15:26
od navstevnik
Procedura VBA - na aktivnim listu pro vybranou oblast (selection) vyhleda hodnoty >=0,2 a vlozi text:
Kód: Vybrat vše
Option Explicit
Sub ProhledatVlozit()
Dim Blok As Range, c As Range
' co hledat
Const Co As Double = 0.2
Set Blok = Application.Selection
For Each c In Blok.Cells
'zde zadat offset nebo adresu bunky (Worksheets("listxx").Range("a1").Value) pro vlozeni textu
If IsNumeric(c.Value) And c.Value >= Co Then c.Offset(5, 5).Value = "nejaky text"
Next c
End Sub
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 06:32
od Palino
Super díky moc. Jsem v tomhle amatér, ještě bych chtěl poprosit jak udělat aby mi to ten text dalo jen jednou a do buňky třeba T36?
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 07:08
od navstevnik
Jak to udelat mas napsano v poznamce v procedure:
"...adresu bunky (Worksheets("listxx").Range("a1").Value)..."Abys nerekl, ze ti nechci pomoci, tak zde je upravena procedura:
Kód: Vybrat vše
Option Explicit
Sub ProhledatVlozit()
Dim Blok As Range, c As Range
' co hledat, kam vysledek a vlozeny text
Const Co As Double = 0.2
Const Kam As String = "T36"
Const VlozText As String = "najaky text"
Set Blok = Application.Selection
For Each c In Blok.Cells
If IsNumeric(c.Value) And c.Value >= Co Then ActiveSheet.Range(Kam).Value = VlozText
Next c
End Sub
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 08:09
od Palino
Díky moc. Super. Ještě jeden dotaz? dá se nějak to makro uložit aby se dalo použít i v jiných excelovských souborech? Nebo musím pokaždé makro zkopírovat?
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 09:38
od mike007
Ulož si ho do PERSONAL.xls a bude dostupné ve všech dokumentech.
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 09:45
od Palino
Normálně dám uložit jako... a pojmenuju to PERSONAL.xls? Protože když to uložím, tak jakmile otevřu zvolený soubor a spustím makro, tak to sice vyhledá ve zvoleném souboru xls, ale napíše to text do toho personal.xls
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 09:56
od mike007
Ne, takto určitě ne
V příloze je speciální dokument pro začátečníky, který za ně vytvoří PERSONAL. Pomocí tohoto dokumentu můžeš do vytvořeného PERSONALu vložit i makra. Velice jednoduché.
Instrukce:1) spusť xls dokument
skript.xls2) zkontroluj, zda máš povoleno importování VB :
Nástroje -->
Makro -->
Zabezpečení --> záložka
Důvěryhodný vydavatel --> zaškrtnout obě níže uvedené položky -->
OK3) Spusť makro (
Alt+F8)
AddPersonal4) Dále se drž instrukcí makra.
Kde se
PERSONAL.xls nachází zjistíš pomocí jednoduchého příkazu, který zadej ve VBA do okna Immediate
?application.StartupPath , potvrď ENTERem. To jen pro tvou informaci, abys věděl kde musí být dokument s makry uložen, aby to všechno fungovalo jak má
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 10:09
od Palino
Jsem teda úplnej idiot
, ale kde najdu okno immediate? A jak to makro pak spustím v jiném souboru? Pořád se mi tam nechce objevit?
Takže spustím script.xls, povolím zabezpečení, vytvoří se personal.xls, zeptá se mi to jestli chci vložit nějaké makro (tady dám ano) ale dál už nevím.
Jsem asi fakt nějakej zabržděnej, omlouvám se.
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 10:25
od mike007
Makro od navstevnika si ulož třeba do poznámkového bloku. Otevři skript.xls, spusť makro AddPersonal. Nyní ti to jistě napíše, že máš PERSONAL již vytvořený a zda chceš do něj vložit makra. Odklikni že ano, najdi txt soubor s makrem a vlož. Makro od navstevnika se ti implementuje do PERSONALu. Teď aby se ti PERSONAL otevřel bude pravděpodobně potřeba zavřít všechny Excelové dokumenty a znovu otevřít Excel. PERSONAL se ti otevře taky a zůstane skrytý. Makra v něm budou dostupná pro všechny dokumenty.
Okno Immediate otevřeš ve VBA. VBA otevřeš pomocí zkratky Alt+F11
Pokud tam okno Immediate nevidíš, tak si ho aktivuj pomocí zkratky Ctrl+G nebo v menu View --> Immediate Window
Krok s Immediate oknem můžeš klidně vynechat. To není součástí spuštění PERSONALu. Já ti chtěl jen ukázat jakým způsobem si zjistíš, kam se ti PERSONAL uložil - je to pouze informativní záležitost.
Re: Excel: Prosím o vytvoření makra Vyřešeno
Napsal: 07 kvě 2009 10:38
od Palino
Jo už to mám všechno ready. I s tím oknem Immediate.
Strašně moc děkuju, makra jsou pro mě zakletý, vůbec tomu nerozumím.
Díky díky díky
Re: Excel: Prosím o vytvoření makra
Napsal: 07 kvě 2009 10:39
od mike007
No jo, nikdo nemůže rozumět všemu, že?