< návrat zpět

MS Excel


Téma: Přidání sloupce datumů rss

Zaslal/a 26.7.2012 22:14

Ahoj,prosím o pomoc s makrem.Nemusí mě ho nikdo přímo dělat, jen bych potřeboval vysvětlit jak to funguje.Znalosti mám zatím omezené.Je sloupec dat,ten je nepravidelně dlouhý,podle naměřených údajů.A k němu bych do každého řádku potřeboval aktuální datum.Jde mě i to abych pochopil princip a mohl ho používat v budoucnu.Díky moc za každou trpělivou radu

Zaslat odpověď >

#009125
avatar
Jak to funguje? Pochopit princip? Ideálně John Walkenbach - Microsoft Office Excel Programování ve VBA!
A jinak:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rdW As Long, slW As Byte
slW = Target.Column
'kdyz sloupec dat = 1
If slW = 1 Then
Application.EnableEvents = False
'kdyby bylo vice radku
For rdW = Target.Row To Target.Row + Target.Rows.Count - 1
'je prazdna nebo neni cislo
If IsEmpty(Cells(rdW, slW)) Or Not IsNumeric(Cells(rdW, slW)) Then
MsgBox "Nepovolena hodnota !"
Range(Cells(rdW, slW + 1), Cells(rdW, slW + 2)).ClearContents
Else
'vlozi aktualni datum
Cells(rdW, slW + 1) = Date
'vlozi aktualni datum i cas
Cells(rdW, slW + 2) = Now
End If
Next rdW
Application.EnableEvents = True
End If
End Sub
citovat
#009127
avatar
Kod je správný. Ale je třeba připominout, že nováček může špatně jeho rozmístit. Podívejte se na obrázek.
Příloha: rar9127_pic1.rar (59kB, staženo 22x)
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

Sumar nakupov

Pavlus • 22.1. 13:05

VBA - načtení dat ze souboru s proměnným názvem

Fantasyk • 22.1. 9:12

Sumar nakupov

Robo11 • 21.1. 21:23

VBA - načtení dat ze souboru s proměnným názvem

€Ł мσşqμΐτσ • 21.1. 12:21

Tělo emailu ve VBA - formát

Fantasyk • 20.1. 20:47

odstranenie opakujucich sa udajov v riadkoch

frantilopa • 20.1. 18:12

odstranenie opakujucich sa udajov v riadkoch

marjankaj • 20.1. 18:01