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

• #50299 Mutt senior tag sniphoe #50296

  Új Válasz 2023-01-22 15:19:31 #50299

  Ú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

  

  Mutt

  senior tag

  válasz sniphoe #50296 üzenetére

  Szia,

  Segédoszlopban az alábbi képlettel, ahol az érték 2 ott van két mássalhangzó (mivel a képletben a magánhangzókat soroltam fel):
  =SZORZATÖSSZEG(--HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2;{2;4};1);"aáeéiíoóöőuúüű")))

  Microsoft365 verzió esetén pedig a SZŰRŐ (FILTER) függvény tud segíteni.
  =SZŰRŐ(A2:A21;HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2:A21;2;1);"aáeéiíoóöőuúüű"))*HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2:A21;4;1);"aáeéiíoóöőuúüű")))

  

  üdv

• #50297 TheSaint aktív tag sniphoe #50296

  Új Válasz 2023-01-22 12:20:47 #50297

  Ú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

  

  TheSaint

  aktív tag

  válasz sniphoe #50296 üzenetére

  Az alábbi kód segítségével leszűrhetőek azok a 4 betűs szavak, amelyek első és második karaktere is mássalhangzó:
  Sub FilterWords()
    Dim r As Long
    Dim c As Long
    Dim vowels As String
    vowels = "aeiou"
    c = 1 ' az oszlop száma
    For r = 1 To ActiveSheet.UsedRange.Rows.Count
        If InStr(vowels, LCase(Left(Cells(r, c).Value, 1))) = 0 And InStr(vowels, LCase(Mid(Cells(r, c).Value, 2, 1))) = 0 Then
            Cells(r, c).Interior.Color = vbGreen
        Else
            Cells(r, c).Interior.Color = vbRed
        End If
    Next r
End Sub
  Be kell állítani az oszlop számát (c), amelyet ellenőrizni szeretnél. Ha a szó első és második karaktere is mássalhangzó, akkor zöldre festi a cellát, egyébként pirosra.
  Utána mehet sima színszűrő akár.

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