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

MS Excel

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

Zaslal/a pepč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.

Příloha: 33237_pokus.rar (15kB, staženo 21x)

Zaslat odpověď >

---

syd(30.10.2016 7:49)#033238

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

pepča(30.10.2016 23:12)#033244

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

syd(30.10.2016 23:23)#033245

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

pepča(31.10.2016 18:34)#033246

Díky moc syd.
Je to přesně co jsem potřeboval.
Ještě jednou díky. citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse