Příspěvky uživatele

Třeba rozkopírováním hlavičky, není to moc optimální, ale je to použitelný, jinak pak asi jedině vlastní funkcí což už by muselo být makrem.

M@

Moc tomu nerozumím, ale nějak to vyšlo :-))

Když nevím vezmu to oklikou :-)
Nejprve načíst celý text do proměnné, do jiné si vložit nový řádek a pak komplet texťák přepsat spojením těchto dvou proměnných ve zvoleném pořadí (Print #1, temp1 & vbNewLine & temp2)

Public Sub pok()
Dim temp1, temp2 As String

Open "D:\text.txt" For Input As #1
temp2 = Input$(LOF(1), 1)
Close #1

temp1 = Left(temp2, InStr(1, temp2, ".", vbTextCompare) - 1) + 1 & ". řádek textu"

Open "D:\text.txt" For Output As #1
Print #1, temp1 & vbNewLine & temp2
Close #1

End Sub

M@

a co třeba jen:

module1.makro1

přičemž modul a makro dle použitých názvů.

M@

Dva příklady v příloze.

M@

Jen takový pokus s DB funkcema, bez maticových vzorců a bez maker :-)

M@

Mě to nepřijde jako aktivace buňky, ale jako zápis hodnoty 970100 do aktivní buňky, jelikož formula nezačíná "=", tak to není vlastně vzorec není.
Řekl bych že zápis Activecell = "970100" udělá totéž.

Výběr buňky / aktivace jde přes Select, nebo Activate
Cells(1,1).select / range("A1").select
Cells(1,1).activate / range("A1").activate

převést výsledek na hodnotu lze makrem a to dvěmi způsoby, buď si v buňce provedeš výpočet a pak ji přepíšeš, anebo si výpočet uděláš přímo v makru a do buňky zapíšeš pouze hodnotu.

activecell.formula = "=1+1"
activecell = activecell.value (stačilo by i jen activecell = activecell)

M@

Je-li to to co myslím, tak
- absolutní odkaz je směřován vždy na stejné místo
- relativní odkaz je směřován na konkrétní místo, ale vzhledem vlastní pozici.
- smíšené to bude kombinace obou :-).

absolutní odkaz znamená že je fixovaný jak sloupec, tak řádek, přičemž fixace se provádí znakem $, např. =$A$1 ať tento vzorec zkopíruji kamkoliv bude se odkazovat do buňky A1.

relativní že fixovaný není a tudíž se s jeho kopírováním jinak o stejný počet řádků a sloupců změní i adresování např. =A1 umístěný v buňce A3 zkopíruju o dva sloupce dál a o řádek níž, do buňky C4, čímž se mi vzhledem k pozici změní i relativní odkaz na =C2

smíšený znamená že fixovaný je buď jen sloupec (fixovací znak pouze před sloupcem) =$A1, nebo jen řádek =A$1. S kopírováním se relativně k vlastní pozici mění jen nefixovaná část.

Stejně tak si lze představ i hypertextový odkaz, kdy ve složce C:\Dokumenty\ mám soubor index.htm a chci se odkázat na soubor C:\Dokumenty\Obrázky\Obrázek1.jpg
Absolutní odkaz = celá adresa: C:\Dokumenty\Obrázky\Obrázek1.jpg
Relativní odkaz = jen část adresy od vlastního umístění, tudíž:
\Obrázky\Obrázek1.jpg

M@

4 příklady v příloze k prozkoumání :-)

M@

=Když(A1=něco;"text";1)
když bude podmínka pravda zapíše se text v uvozovkách, když nebude pravda zapíše se čílo 1 (číslo bez uvozovek).

Kde je problém?
M@

Ahoj,

jde to, popisovat to nebudu, ale odkážu tě :-)
http://spreadsheetpage.com/index.php/tip/a_vba_function_to_get_a_value_from_a_closed_file/

Sám jsem to asi tak před rokem používal, ale jelikož jsem potřeboval těch hodnot až moc, tak jsem nakonec šel cestou že jsem pomocí makra daný soubor otevřel, vzal jsem si co jsem potřeboval a soubor zase zavřel - je to o hodně rychlejší (teda záleží kolik hodnot potřebuješ).

M@

Zas takovej expert nejsem, ale VBA = Visual Basic for Applications, takže bude spustitelnej jen z jiné aplikace.
Tak asi nezbývá, než si exe soubor vytvořit v plnokrevným VB.
http://www.microsoft.com/express/Downloads/#2010-Visual-Basic
sám teda pořád dělám ve VB6, nějak si na ten novej nemůžu zvyknout :-/.

Asi taky záleží co ten project dělá - jestli by to nešlo třeba jen VBS (scriptem)

M@

vzorec mě nenapadá a tak je snažší vytvořit si funkci vlastní :-).

viz. příloha

M@

Mě nějak nejde do hlavy, proč všechny podmínky v jedný procedůře jsou s checkboxem číslo 8 a ne těma konkrétníma?
If CheckBox8.Value = True Then...

Tady si nějak nejsem jistej co to vlastně má dělat - proč jednu konkrétní buňku načítat SQL dotazem.

Nešlo by třeba
stSQL = "SELECT * FROM [1# strana$U1:U2]
nebo něco jako
stSQL = "SELECT * FROM [1# strana$U1:U1] UNION ALL SELECT * FROM [1# strana$U2:U2]

Jen tipy, ale nevím, nemám na čem odzkoušet :-)

M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje