< návrat zpět

MS Excel


Téma: VBA pro kombinaci textu a datumu rss

Zaslal/a 3.4.2015 23:03

Ahoj,

potřeboval bych pomoct s vytvořením funkce nebo makra.

Na listu Sešit1 mám ve sloupci A datumy. Potřeboval bych vzorec nebo makro, který by mě do stejného řádku v sloupci C na list Sešit2 překopíroval datum ve formátu bez teček nebo lomítek a přidal před datum text.

Sešit1, bunka A2 = 13.4.2015 a do Sešit2, bunka C2 by se natáhlo "CARDS_13042015"

díky předem 1

Zaslat odpověď >

#024387
elninoslov
Asi takto...
Příloha: rar24387_kombinaciadatumu.rar (7kB, staženo 32x)
citovat
#024399
avatar
Jedna z mnoho možností

=HODNOTA.NA.TEXT(A2;"""CARDS_""ddmmrrrr")citovat
#024403
avatar
Díky moc lubo. Presne toto som chcel, len ako mám par tyzdnov excel v anglictine tak si s niektorymi banalitami neviem poradit 9 dikycitovat
#024404
elninoslov
Sakra, až teraz som si náhodou všimol, že v tom mojom vzorci som dal o jedno "y" v rýchlosti menej 5

Takže oprava z
"=CARDS_"&TEXT(Sešit1!A2;"ddmmyyy")
na
="CARDS_"&TEXT(Sešit1!A2;"ddmmyyyy")
ale funguje tak či tak.
V CZ sa "yyyy" zamieňa na "rrrr" tak ako píše "lubo".citovat
#024406
avatar
Ešte dotaz chalani, keď ste tak šikovný.

Cells(i, 14).Value = Sheets("data").Cells(y, 2).Text

Mám tento kód v makru, (i je čítač riadkov), ktorý mi kopíruje do Sheetu1 stlpca 14 údaje zo sheetu "data" zo stlpca 2. Lenže v sheetu data v stlpci 2 (stlpec B) mam uložené hodnoty ako text, ktorým sú 4 čísla. Urobil som to preto, aby sa mi zobrazovali aj nuly na začiatku, napr 0019 a neufikly sa nuly na začiatku, čo na sheetu data je, ale keď sa kopírujú informácie na Sheet1, kopírujú sa hodnoty a tie dve nuly na začiatku sa ufiknú a zkopíruje sa mi 19 miesto OO19.

Moc nepomože, ani keď dám do kódu .text miesto .value. Máte nápad ako to poriešit?

díkycitovat
#024407
elninoslov
Tak aj cieľ naformátuj ako text.
1. metóda cyklus - netreba cieľ formátovať vopred ako text
2. metóda treba vopred cieľ formátovať ako text, pri množstve hodnôt je rýchlejšia, ako prístup po jednom.
Příloha: rar24407_cisloakotextcopy.rar (15kB, staženo 35x)
citovat
#024409
avatar
Pokud jsou v buňce 4 číslice a mají být vidět i nuly před číslem, tak to také řeší formát 0000
(4 nuly)

Tj. můžeš kopírovat celé buňky (buď po jedné nebo použít metodu range.copy) nebo jen obsah pomocí .value a samostatně zkopírovat nebo doplnit formát.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Jak odstraním duplicitní údaje

elninoslov • 24.4. 8:57

Vyhledej

PavDD • 24.4. 8:56

Vyhledej

elninoslov • 24.4. 8:47

Vyhledej

PavDD • 24.4. 8:29

Jak odstraním duplicitní údaje

Mirek8 • 24.4. 8:20

Jak odstraním duplicitní údaje

Mirek8 • 24.4. 8:00

Relativní cesta - zdroje Power Query

Alfan • 24.4. 7:44