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

Příspěvky uživatele

Objevil se mi v kódu zcela neočekávaně Sheet8 viz obr. v příloze. Nevím jak ktomu došlo tento element se v části kódu horních comboboxech chová jako This Workbook, obsahuje kód listu nedá se smazat ani zviditelnit. Bál jsem se toho, že by to mohla být časovaná bomba. Zatím jsem to řešil tím, že jsem vytvořil nový sešit a do něj zkopíroval všechny listy kromě Sheet8 a mopduly. Funguje to dobře. Přesto by mě zajímalo, co je tajemný Sheet8.

Jo díky jedno řešení mám přes cyklus for each převést vzorce na hodnoty. To je ale hrozně pomalé. Kopírovat, vložit jinak hodnoty použít nemůžu, protože to kolabuje na sloučených buňkách.

Někdy se najde elegantní řešení na věc, s kterou se hodně pachtím, to asi nebude tento případ.

Dík

funguje to bezvadně, akorát to hlásí chybu při zamčeném sešitu, nevím proč, když do něj nezapisuje, ale to se dá obejít pomocí

activesheet.protect userinterfaceonly:=true

Dobrý den,

potřeboval jsem zjistit adresu poslední obsazené buňky v listu. Funkce specialcells(xlCellTypeLastCell)
mi ukazuje následující.

? activesheet.cells.specialcells(xlCellTypeLastCell).address
$AZ$518

ačkjoliv správná hodnota je

AE54

Abych vyloučil možnost, že nám v některých buňkách jakýsi obsah odstranil jsem řádky od 55 až do konce a sloupce od AF až do konce. Opět jsem obdržel stejný výsledek.

Zjistil jsem, že když buňku jednou obsadím a pak její obsah smažu, zústavá hodnota lastcell stejná a může se tedy tato adresa pouze zvyšovat. Nelze hodnotu lastcell nějak vynulovat ?

Zdánlivě jednoduchá odpověď SAVE AS EXCEL WORKBOOK.
Toto uloží sešit bez maker, ale v sešitu zůstanou uživatelem definované funkce a při přepočtu sešitu zde naskáčou chybové hodnoty.

Donré ráno,

je li sešit uložen bez maker, je uložen bez modulů, ale uživatelem definované funkce v sešitu zůstanou. Jak odlišit to, že je v buňce uživatelem definovaná funkce, aby mohla být převedena na hodnotu.

A co tohle?

Function Por_cis(Nr As Integer) As String
Por_cis = "000" & Nr
If Nr > 10 Then Por_cis = "00" & Nr
If Nr > 100 Then Por_cis = "0" & Nr
If Nr > 1000 Then Por_cis = Nr
End Function

Dík, to je přesně ono.

Dobrý večer

Mám textový soubor, který je určen pouze pro čtení, potřeboval bych k souboru připojit další text. Se zápisem do souboru nemám problém. Potřeboval bych pouze před zápisem odstranit atribut readonly a po zápisu jej vrátit zpět.

Z otázky není zcela jasné, co je to druhý program. Je-li to exe soubor, či jiný sešit excel. Jde-li o dva sešity excel, lze to udělat následovně

ActiveWorkbook.Close

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Open Filename:="C:\DruhySesit.xlsx"
end sub

psal jsi,že to chceš dělat ve VBA, pokud ti stačí přiřadit pouze hodnoty, nikoliv formáty, je nejjednodušší tohle

sheets("List1").range("B5")=sheets("List1").range("A1")

X0,Y0 - souřadnice středu
r = poloměr
fi - úhel
X,Y - souřadnice bodu
úhel se měří od kladné osy x proti směru hodinových ručiček
X=X0+r*cos(fi)
Y=Y0+r*sin(fi)

Dík, funguje to perfektně.

Dobrý den,

je možné provést makrem přepnutí klávesnice cz/en, případně testovat, která klávesnice je aktuálně nastavena?

Tak zkouším natáhnout vlastnosti prvků formuláře ze sešitu jednotlivě. Ale když to zadávám spouštejí se mi události. Příkaz Application.Enable events= false zakazuje události v listu. Neexistuje podobný příkaz pro události ve formuláři?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje