Új hozzászólás Aktív témák

• #10536 ArchElf addikt DopeBob #10531

  Új Válasz 2011-06-17 10:23:30 #10536

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ArchElf

  addikt

  válasz DopeBob #10531 üzenetére

  Alapból nem eszi meg, mert a vesszó az tizedesjegy (tehát a bevitelt számként értelmezi - a dátumot pedig az excel úgy tárolja (egyész szám - dátum; törtszám - óra-perc-másodperc-töredék). Pl ha 12,30-at írsz be, aakorazt automatikusan 1900.01.12 07:12-re konvertálja - de ahogy előttem leírták, két oszloppal már megoldható (vagy esetleg makróval, ami az összes bevitel után lefut az oszlopra).

  Esetleg makróból:
  Private Sub Worksheet_Change(ByVal Target As Range)
  '+ jelre átalakít dátummá
  'a 3. oszlopban
  Dim OSZLOPSZÁM As Integer
  OSZLOPSZÁM = 3
  
  Dim c As Range
  Dim dt As Date
  If (Target.Columns.Count = 1 And Target.Column = OSZLOPSZÁM) Then
  For Each c In Target.Cells
  If InStr(c.Value, "+") > 0 Then
  dt = CDate(Replace(c.Value, "+", ":", 1, 2))
  c.Value = dt
  End If
  Next
  End If
  End Sub

  AE

Új hozzászólás Aktív témák