MS Excel

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

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)citovat#009125

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

Margo(28.7.2012 18:24)citovat#009127

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: rar

9127_pic1.rar (59kB, staženo 31x)

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje