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

• #4734 Delila_1 veterán ent #4733

  Új Válasz 2009-03-30 15:13:51 #4734

  Ú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 ent #4733 üzenetére

  Ezt a makrót nem a lapfülre kattintással kell beilleszti. A laphoz csak azt a makrót illesztjük, amit ahhoz az egy laphoz akarunk rendelni.

  Eszközök/Makró/Visual Basic (vagy ehelyett Alt+F11). Ezzel beléptél a Visual Basic szerkesztőbe.
  Bal oldalon kiválasztod a füzetedet, Insert/Module.
  A jobb oldalon kapott üres lapra bemásolod a makrót.

  Indítani itt is tudod, az eszköztáron megjelenő ikonnal, ami olyan, mint a magnókon a lejátszás, és Run Sub/UserForm névre hallgat.
  Az Excelből az Eszközök/Makrók (vagy helyette az Alt+F8) kiválasztása után egy ablakban megjelennek a megnyitott füzetek makrói (ill. azoknak nevei), onnan kiválasztod, és indítod.

• #4732 Delila_1 veterán ent #4730

  Új Válasz 2009-03-30 14:03:30 #4732

  Ú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 ent #4730 üzenetére

  Lapok sorba rendezése

  Sub SortWorksheets()
  Dim sCount As Integer, i As Integer, j As Integer
  Application.ScreenUpdating = False
  sCount = Worksheets.Count
  If sCount = 1 Then Exit Sub
  For i = 1 To sCount - 1
  For j = i & 1 To sCount
  If Worksheets(j).Name < Worksheets(i).Name Then
  Worksheets(j).Move Before:=Worksheets(i)
  End If
  Next j
  Next i
  Application.ScreenUpdating = True
  End Sub

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