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

• #6993 Delila_1 veterán ALbeeeee #6990

  Új Válasz 2010-04-27 15:57:26 #6993

  Ú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

  

  Delila_1

  veterán

  válasz ALbeeeee #6990 üzenetére

  Szerintem 1-gyel több név van a cellában, mint vessző.
  Józsi, Béla, Ancsa, Lujza -> 3 vessző, 4 név. Ha mégis azonos a nevek és a vesszők száma, a Vesszo=v+1 sorból töröld ki a +1-et.

  Írtam egy függvényt rá.

  Function Vesszo(Cella As String) As Integer
  Dim i As Integer, v As Integer
  For i = 1 To Len(Cella)
  If Mid(Cella, i, 1) = "," Then v = v + 1
  Next
  Vesszo = v + 1
  End Function

  Ezt bemásolod a fájlod VB szerkesztőjébe.
  Alkalmazása: =Vesszo(A1) [ha a nevet tartalmazó cellád az A1]
  Ugyanúgy másolható, mint a többi függvény.

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