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

• #18405 Delila_1 veterán swoody #18402

  Új Válasz 2013-07-01 08:29:54 #18405

  Ú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 swoody #18402 üzenetére

  A makró bekéri a területet, ahol a cseréket végre akarod hajtani, majd elvégzi a 3 cserét. Nem tesz különbséget a kis- és nagybetűk között. A területet beírhatod, vagy egérrel is kijelölheted. A cserék számát tetszés szerint bővítheted.

  Sub Csere()
  Dim ter As Range
  Set ter = Application.InputBox(prompt:="Jelöld ki a tartományt", Type:=8)
  
  ter.Replace What:="a", Replacement:="1"
  ter.Replace What:="l", Replacement:="2"
  ter.Replace What:="m", Replacement:="3"
  End Sub

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