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

• #24037 slashing senior tag

  Új Válasz 2014-11-02 04:56:58 #24037

  Ú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

  

  slashing

  senior tag

  http://stackoverflow.com/questions/21918166/excel-vba-for-each-worksheet-loop

  Sub forEachWs()
  Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
  Call resizingColumns(ws)
  Next
  End Sub
  
  Sub resizingColumns(ws As Worksheet)
  With ws
  .Range("A:A").ColumnWidth = 20.14
  .Range("B:B").ColumnWidth = 9.71
  .Range("C:C").ColumnWidth = 35.86
  .Range("D:D").ColumnWidth = 30.57
  .Range("E:E").ColumnWidth = 23.57
  .Range("F:F").ColumnWidth = 21.43
  .Range("G:G").ColumnWidth = 18.43
  .Range("H:H").ColumnWidth = 23.86
  .Range("i:I").ColumnWidth = 27.43
  .Range("J:J").ColumnWidth = 36.71
  .Range("K:K").ColumnWidth = 30.29
  .Range("L:L").ColumnWidth = 31.14
  .Range("M:M").ColumnWidth = 31
  .Range("N:N").ColumnWidth = 41.14
  .Range("O:O").ColumnWidth = 33.86
  End With
  End Sub

  ez alapján szerkeszd át...

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