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

• #24935 Delila_1 veterán biker #24933

  Új Válasz 2015-01-09 08:26:01 #24935

  Ú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 biker #24933 üzenetére

  A laphoz kell rendelned a makrót. Feltételeztem, hogy az első oszlopban vannak a szavak. Ha nem, akkor az

  If Target.Column = 1 And Not IsEmpty(Target) Then

  sorban az 1-et írd át a formázandó oszlop sorszámára.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim kezd As Integer
  If Target.Column = 1 And Not IsEmpty(Target) Then
  kezd = InStr(Target, " ") + 1
  Range(Target.Address).Characters(Start:=kezd, Length:=Len(Target)).Font.FontStyle = "Italic"
  End If
  End Sub

  Ez a makró az újonnan bevitt magyar-angol szöveg második részét alakítja dőlt betűssé.
  Az angol szavakat a =KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;80) képlettel kapod meg egy üres oszlopban.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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