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

• #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