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

• #53941 Delila_1 veterán andreas49 #53939

  Új Válasz 2025-01-28 12:19:17 #53941

  Ú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 andreas49 #53939 üzenetére

  Sub Szelesseg_igazitas_1()
    Dim i As Integer, plusz As Integer
    
  plusz = Application.InputBox("Hány ponttal legyen szélesebb az oszlop?", Type:=1)
    ActiveSheet.UsedRange.Columns.AutoFit
    
    For i = 1 To ActiveSheet.UsedRange.Columns.Count
        Columns(i).ColumnWidth = ActiveSheet.Columns(i).ColumnWidth + plusz
    Next
    MsgBox "Kész"
End Sub

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