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

• #48196 Pakliman tag BEndre34 #48192

  Új Válasz 2022-01-06 11:28:56 #48196

  Ú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

  

  Pakliman

  tag

  válasz BEndre34 #48192 üzenetére

  Szia!

  Módosítás:
  

  Public Function xDB(r As Range) As Long
Dim c As Range
Dim s As String

For Each c In r.Cells
s = s & IIf(IsEmpty(c), Chr(1), c.Value)
Next c

Do While InStr(1, s, "11") > 0
s = Replace(s, "11", "1")
Loop

xDB = Len(s) - Len(Replace(s, "1", ""))
End Function

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