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

• #46004 Delila_1 veterán Weareus #45999

  Új Válasz 2021-02-10 08:22:24 #46004

  Ú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 Weareus #45999 üzenetére

  Nem tudom, hogy OO-ben mit lehet, de Excelben egy felhasználói függvénnyel meg lehet oldani.
  Modulba tedd a makrót.
  Function FKover(cella)
For b = 1 To Len(cella)
If cella.Characters(b, 1).Font.FontStyle = "Félkövér" Then
szoveg = szoveg & Mid(cella, b, 1)
End If
Next
If Len(szoveg) > 0 Then FKover = szoveg Else FKover = ""
End Function

  A füzetben így adod meg a függvényt: =FKover(A1) – ha a kérdéses cella az A1.
  Mikor minden sorra beírtad a függvényt, jelöld ki az oszlopot, másolás, ugyanoda érték beillesztése. Ezután az eredeti oszlopot törölheted.

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