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

• #48190 Pakliman tag BEndre34 #48188

  Új Válasz 2022-01-05 21:46:34 #48190

  Ú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 #48188 üzenetére

  Szia!

  Egy lehetőség:
  

  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(s = "", "", ";") & IIf(IsEmpty(c), Chr(1), c.Value)
Next c
s = Replace(s, "1;1", "")

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

  Csak azokat az 1-eseket számolja, amelyik mellett nincs 1-es
  (hiba: 3 egymás mellettit viszont már 1-nek számol!!).

  Ha jól értelmeztem a feladatot...

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