< návrat zpět

MS Excel

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

Zaslal/a fenix.one 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ěď >
kp57(28.7.2012 14:37)#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
Margo(28.7.2012 18:24)#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 31x)
citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje