< návrat zpět

MS Excel


Téma: Vlastní číselný formát buněk dle zapsané hodnoty rss

Zaslal/a 30.10.2016 0:13

Ahojky.
Potřeboval bych poradit jak opravit nahrané makro, které má určit vlastní formát buněk ve sloupci D2-1000
v závislosti na hodnotě buňky S1. Když zadám do buňky S1 "19" tak aby byl formát buněk D2-D1000 " 19-00-0000 " atd..Hodnoty ve sloupci D2-1000 musí být zadávány tak jak je uvedeno v příloze. Děkuji za každou odpověď.
Používám Excel 2007. 6

Příloha: rar33237_pokus.rar (15kB, staženo 20x)
Zaslat odpověď >

#033238
avatar
No, zkuste nasledujici kod vlozit do objektu List1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("S1") Then
If IsEmpty(Range("D2")) Then
Range("D2:D1000").NumberFormat = Target.Value & "-00-0000"
Else
Range(Range("D2").End(xlDown)(2), Range("D1000")).NumberFormat = Target.Value & "-00-0000"
End If
End If
End Sub

Pro stavajici data zustane format zachovan a novy se nastavi od prvni prazdne bunky do D1000.
sydcitovat
#033244
avatar
Děkuji syd za rychlou odpověď. Špatně jsem popsal co potřebuji.Tvoje procedůra je OK, ale potřebuji, aby se spouštěla pouze , když budu požadovat a ne automaticky při změně hodnoty buňky S1. A dále aby se přepsaly i formáty, které byly zadané ve sloupci D2-1000.
Děkuji za odpověď.
Pepča 7citovat
#033245
avatar
Ja vedel, ze to bude jinak..
Tak mozna:

Sub Pepca()
With ActiveSheet
.Range("D2:D1000").NumberFormat = .Range("S1").Value & "-00-0000"
End With
End Sub
citovat
#033246
avatar
Díky moc syd.
Je to přesně co jsem potřeboval.
Ještě jednou díky. 9citovat

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

Makro na opakovanou změnu barvy tlačítka

Jiří497 • 26.1. 20:31

Pozvyhledat s vnořeným COUNTIF

Jiří497 • 26.1. 19:36

Makro na opakovanou změnu barvy tlačítka

alois1111 • 26.1. 13:24

Pozvyhledat s vnořeným COUNTIF

majovy-bycek • 26.1. 12:45

Makro na opakovanou změnu barvy tlačítka

alois1111 • 26.1. 12:32

Makro na výmaz hodnoty pouze v modře podbarvené

Anonym • 26.1. 11:29

SVYHLEDAT (generovaná cesta oblasti vyhledávaní)

eLCHa • 26.1. 10:05