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

Příspěvky uživatele

Tak jsem na to přišel, jak to udělat

=CONCATENATE("RC";ČÁST($F$1;1;6-DÉLKA(ŘÁDEK(A1)));ŘÁDEK(A1)), kde F1 je 000000 formát text.

Ale přesto - jde zapsat formát buňky přímo v buňce?

Zdravím, jde formátovat buňku přímo v buňce?
Požadavek :
v A1 zápis =CONCATENATE("RC";ŘÁDEK(A1)), výsledek zápisu by měl být RC000001. To samé třeba pro 1000 řádků. Pokud nejde, tak jak bude vypadat makro?

Díky za rady M.

Funguje suprově, ladění dokončeno:-). Moc díky M.

Zasílám přílohu xls, list jiný měsíc - nefunguje při změně měsíce, to by mi tak nevadilo, dny měsíců už mi fungují a spolehlivě, akorát jsem zjistil, že je rozdíl mezi prázdnou buňkou a buňkou vyplněnou ="", to bych viděl jako vyřešené. List maximální počet hodnot (i když se to asi nestane, ale pracovní dny by mohly být všechny, proto jenom simulace s čísly 1-31) - nikdy to nehodí náhodné číslo 31 při jakémkoliv zadání a při maximálním počtu 31 to začne přemýšlet a přemýšlí a přemýšlí. Ale už se blížíme ideálu. Díky za čas, kdybych já to tak uměl:-).

Posílám xls. Už teď při otevření je špatně, že to vypsalo náhodně 30., když je vedle prázdná buňka a pak zkus dosadit do C2 hodnotu 15 - mně to vynuluje B1. Počet dnů v měsící řešit nemusíme, to mám zpracované, ale pole výběru čísel bude vždy A2:A32 a bude tam různý počet prázdných buněk.

Díky za makro. Funguje ale jen do určitého počtu náhodných výběrů. Pak to vynuluje buňku měsíce (B1). A v měsíci únoru při 28 dnech to nestydatě vypíše číslo třeba 30. Jinak mám definováno =KDYŽ(DENTÝDNE(DATUM($C$1;$B$1;ŘÁDEK(A2)-1);2)>5;"";ŘÁDEK(A2)-1).Takže by to chtělo vynechávat veškeré prázdné prázdné buňky ve sloupci A. Dík za případné další rady.

Jaksi to nemůžu otevřít. Prosím o xls nebo sem hodit VBA kód. Díky

Co zkusit změnit požadované buňky na nezamčené (formát- buňky-zámek) a pak zamknout list (nástroje-zámek-zamknout list) s tím, že povolená akce je jen vybrat odemknuté buňky?

Ahoj, potřeboval bych pomoct s výběrem několika čísel z jednoho sloupce. Ve sloupci např.A jsou čísla pracovních dní příslušného měsíce s mezerou pro víkendové dny, tedy např.1,2,3,4,"mezera","mezera"7,8,9,10,11,"mezera","mezera" atd.(max.31 řádků). Z tohoto sloupce bych potřeboval např. do sloupce B vybrat náhodně např. 5 čísel definovaných v buňce např. C1 s vynecháním mezer. Čísla by se měla vypsat ve stejném řádku. Poradí někdo? Výsledek by měl vypadat např. takto. Díky M.

AltF11 vložit do list code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value > "1" Then
Application.ScreenUpdating = False
Range("B9").Select
ActiveSheet.Pictures.Insert( _
"C:\1.jpg").Select
Selection.Name = "C:\1.jpg"
Range("A2").Select
Application.ScreenUpdating = True
Else
On Error Resume Next
ActiveSheet.Shapes("C:\1.jpg").Delete
End If
End Sub

Prosím ještě o doplnění :
Makro běhá dobře, jen bych ještě potřeboval radu, jak toto makro doplnit o další buňky, aby když se změní buňka T33 se zkopírovala tato buňka do T34 jako hodnota a když se změní S15, tak se zkopíruje jako hodnota z S 15 do S16. Díky

Ale trvalo to, než jsme se k tomu dopracovali. Pak už by to jelo - to je můj komentář. Suma zkopíruju, vložím a jede, maximum zkopíruju, vložím a nejede. A já tam bohužel chybu nenajdu.Až ja budem VBA majstrom.....Dík

Suma přes listy normálně skvěle funguje, ale upravené maximum přes listy ne - hází error.

Děkuji moc. Funguje to vůbec - přeložím - nefunguje to vůbec v EX2000,2003.

Kód, který nechápu, je mi k tomu, aby počítal, to co potřebuji. Díky

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje