< 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 29x)
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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09