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

Příspěvky uživatele

Těžko radit, informací je málo

pražské počítače jsou KO / brněnské OK
v praze jsou jiné verze excelu (2007) než v brně?

děje se jen v excel 2007
zkoušeli jste to i na 2007 mimo firmu?
V jaké verzi se to neděje?

ovládací panel vlevo nahoře je zneaktivněný (zašedlý)
myslíte Ribbon (pás karet)? - pomohl by alespoň PrintScreen
Zašedlý je před spuštěním kódu nebo až po spuštění
Ten kód obsahuje jen ten 1 řádek nebo více - pokud více - krokujte a zjistěte kdy zašedne.

Ještě mě napadá - zkuste překopírovat kód do úplně nového souboru a tam jej spustit.

Takhle nějak bych na to šel ;)
tedy 1. nástřel

Místo OnTime zkuste použít Timer (viz nápověda VBA)

něco jako
Sub subTimer(ByVal nEndPause As Single)
nEndPause = Timer + nEndPause
Do While Timer < nEndPause
Loop
End Sub

Inspiroval jste mně
zkusím svoji verzi ;)

Ty dva sloupce DD lze nahradit jedním a to použít ALův

a věřte - 24 pomocných sloupců není vůbec moc - rád bych řekl něco jiného, ale v tomto případě asi ne

Mno - ráno se mi to sice povedlo, jenže ten vzorek nebyl reprezentativní a už tak to byl "veselý" vzořešek (jsem si našel maximum a od něj hledal minimum a pak je odečetl - jenže to nemusí být pravda - v jednom vzorci MAX, MIN, POSUN, POZVYHLEDAT ;) )

teď když vím o co jde, myslím, že ani tak to bez pomocného sloupce nepůjde - a kdyby tak rozhodně to bude složitý vzorec

proč nelze použít ten pomocný sloupec?

@AL
.Copy
.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

ale fuj ;))

@Paloo
nejde napisat c(0 to 200) = a(0 to 200) & " " & b(0 to 200)

Taky se mi to moc nechce studovat, ale řekl bych že jde

Sub test2()
Dim rData As Range
Set rData = Sheets("concatenate").Cells(1, 1).CurrentRegion
Set rData = rData.Resize(rData.Rows.Count, rData.Columns.Count - 1)
Set rData = Sheets("Output").Range(rData.Address)

Dim lCalc As Long
rData.FormulaR1C1 = "=concatenate!RC1&""_""&concatenate!RC[1]"
rData.Value = rData.Value

Set rData = Nothing
End Sub

jen dodám, že jsem si stáhl poslední přílohu a dosáhl stejného výsledku jako v listu Output (jestli to je na zadání, to nevím ;) )

Mno ráno (hned jaxem to pochopil ;) ) jsem to zkoušel bez pomocného sloupce - přišlo mi to zajímavé

ono by to možná šlo, kdyby tam byl fyzický stav prostředků a ne pohyb

takto to půjde asi jen s pomocným sloupcem nebo přes VBA (a to bych řekl, že není třeba psát, na webu už něco bude)

Člověče - nebylo by jednodušší se zaregistrovat a dát sem tu přílohu ;))
Takhle jenom střílím a soubor si vytvářet nebudu, ale řekl bych že do listu vám to skočí quli tomuhle

ActiveSheet.Select
zkuste to zakomentovat (nebo smazat), jestli to nepomůže

ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(1, 0).Select
by mělo jít nahradit
ActiveCell.Offset(1, 1).Select

Omlouvat se nemusíte - kdybychom se nechtěli chlubit tím, jaxme chytří, tak neodpovíme ;))
---
edit:
vlastně těch selectů je tam tolik, že to do toh listu asi skočí stejně :(

Největší pokles ve sloupci je o 3 body(-1-1+1-2=-3)

Tady tomu nerozumím a nestydím se za to ;))

edit:
Tak změna - už rozumím ;)

Mno - bez VBA (a tady je fakt zbytečné) to nejde fyzicky

Nicméně od excelu 2007 to lze alespoň vizuálně pomocí podmíněného formátování, protože v něm lze nastavit formát čísla. Takže můžete použít
Když hodnota buňky XY=0, tak v této buňce nastav formát na "0"
Obsahem buňky bude pořád nějaké číslo, ale zobrazena bude 0

Toto téma nemá chybu

název: nahrazení znaků ve funkci

paxe najednou mluví o filtraci
potreboval bych je filtrovat podle první cifry.

Zástupný znak pro 1 znak je ?
Pokud chcete filtrovat (automatický filtr?) a chcete "vytáhnout" vše začínající 1, použijte vlastní filtr a dejte do něj má na začátku 1
pokud chcete vše co nezačíná 1 dejte překvapivě nemá na začátku 1

nebo uprostřed obsahuje atp.

a nebo lépe vysvětlete, co chcete

ikdyž koukám, že ostatní docela baví spekulovat, co tím chtěl básník říci ;)

Mno bez přílohy absolutně netuším, co tam vymýšlíte za bláznoviny...

TextBox1.SetFocus
vymažte, to je tam na nic

u toho tlačítka nastavte TabStop na False
a Focus vám tam neskočí

@marjankaj
To je jen reakce na tento blábol
25% z čeho? Pokud z prvního čísla, tak výsledek bude vždy 4.
Docela by mě zajímalo, jak k tomu dospěl ;)

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
Call Zapis
End If
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse