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

• #43630 Fferi50 Topikgazda botond187 #43628

  Új Válasz 2020-04-17 10:11:26 #43630

  Ú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

  

  Fferi50

  Topikgazda

  válasz botond187 #43628 üzenetére

  Szia!
  Nem olyan egyszerű ez a dolog, hiszen több körülményt is figyelembe kell venni. Csak egyéni függvényekkel lehet megoldani. Ezeket másold be egy modulba. (Alt + F11, Insert - Module)
  Function nemegyezo(mit As Range, mivel As Range) As Boolean
Dim erteke1 As Long, erteke2
erteke1 = osszeado(LCase(mit.Value))
erteke2 = osszeado(LCase(mivel.Value))
nemegyezo = erteke1 <> erteke2
End Function
Function osszeado(mit As String) As Long
Dim ckar As String * 1, x As Integer, erteke As Long
For x = 1 To Len(mit)
ckar = Mid(mit, x, 1)
    Select Case ckar
       Case "á"
           erteke = erteke + Asc("a")
       Case "é"
           erteke = erteke + Asc("e")
       Case "í"
           erteke = erteke + Asc("i")
       Case "ó", "ö", "ő"
           erteke = erteke + Asc("o")
       Case "ú", "ü", "ű"
           erteke = erteke + Asc("u")
       Case " "
       Case Else
           erteke = erteke + Asc(ckar)
    End Select
Next
osszeado = erteke
End Function
  A következőket a magyar Excel szerint írom, gondolom nem okoz problémát:
  Kijelölöd a formázni kívánt cellákat.
  Ezután a feltételes formázás - a formázandó cellák kijelölése képlettel a képlet pedig:
  =nemegyezo($A1;$B1)
  Ha nem ebben a két oszlopban vannak a nevek, akkor annak a két oszlopnak a címét írd ide. Az elválasztójelet is az Excelednek megfelelően írd be.
  Ezután kiválasztod a formátumot, majd ok.
  A szabályok kezelése menüben módosíthatod az érvényességi területet.
  Figyelem: Ha nagyszámú neved van, akkor lassan fog érvényesülni a feltételes formázás, mert betűről-betűre hasonlít össze két oszlopot a függvény. Tehát légy türelmes.
  Remélem sikerül.
  A munkafüzetet makróbarátként vagy binárisként kell elmentened!!!
  Üdv.

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