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

• #37756 Delila_1 veterán MinekMentOda #37754

  Új Válasz 2018-04-10 15:13:05 #37756

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

  Írtam hozzá egy saját függvényt, amit modulba kell tenned (lásd a Téma összefoglalót). Ha több füzetben is szeretnéd alkalmazni, akkor a personal-ba tedd.

  Function Van_Benne(mitkeres As String, mibenkeres As String)
Dim b As Integer, f As Boolean

For b = 1 To Len(mitkeres)
If InStr(mibenkeres, Mid(mitkeres, b, 1)) > 0 Then
f = True
Else
f = False: Exit For
End If
Next

If f Then Van_Benne = 1 Else Van_Benne = 0
End Function

  A cellába, ahol az eredményt szeretnéd megkapni, írd be

  =van_benne(A2;A1)

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