Ú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

• #53940 jerry311 nagyúr andreas49 #53939

  Új Válasz 2025-01-28 12:11:08 #53940

  Ú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

  

  jerry311

  nagyúr

  válasz andreas49 #53939 üzenetére

  Megteheted azt is, hogy nincs cellahoz rendelve a makro.

  Tehat a ...Sheets("Munka2").Range("A1").Value... helyere beirod a fix erteket, amivel novelni szeretned az oszlopok szelesseget. Ebben annyi a kenyelmeten, hogy a makron kell valtoztatni minden alkalommal, amikor masik ertekkel akarod novelni az oszlopok szelessebget. Viszont nincs se masodik munkalap, se gomb, se beviteli mezo egyik munkalapon se.

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