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

• #54690 Fferi50 Topikgazda 3DFan #54689

  Új Válasz 2025-10-17 21:01:43 #54690

  Ú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 3DFan #54689 üzenetére

  Szia!
  Szerintem szöveges cellára sajnos nem lehet ilyen formátumot. Makróval megoldható:
  Sub idezojelo()
Dim cl As Range
For Each cl In Selection
If TypeName(cl.Value) = "String" Then
If Left(cl.Value, 1) <> Chr(34) Then
cl.Value = Chr(34) & cl.Value & Chr(34)
End If
End If
Next
End Sub
  Kijelölöd a cellákat és elindítod a makrót. A szöveg tartalmú cellákba elhelyezi az idézőjeleket, ha már van benne, akkor nem változtatja.
  A makrót elhelyezheted egyéni makró füzetben (Personal.xlsb), így minden munkafüzetben használható. Rendelhetsz hozzá gyorsbillentyű kombinációt is.
  Ha csak ebben a munkafüzetben használod, a munkafüzetet makróbarátként kell elmentened.
  Üdv.

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