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

• #12927 Delila_1 Topikgazda Zenebohoc #12924

  Új Válasz 2012-02-19 10:54:18 #12927

  Ú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

  Topikgazda

  válasz Zenebohoc #12924 üzenetére

  A Tartalomjegyzék legyen az első lap. Ezen az első makró létrehozza a tartalomjegyzéket.

  Sub Tartalom()
  Dim lap%, nev$, sor%
  
  Cells(2, 2) = "TARTALOMJEGYZÉK"
  sor% = 4
  For lap% = 2 To Worksheets.Count
  nev$ = Worksheets(lap%).Name
  Cells(sor%, 2).Select
  Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
  "'" & nev$ & "'!A1", TextToDisplay:=nev$ & " A1 cella"
  sor% = sor% + 1
  Next
  Cells(2, 2).Select
  End Sub

  A következő makrót a Tartalomjegyzék laphoz rendeld, ez figyeli a G1 cella változását.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$1" Then Rejt Target.Value
  End Sub

  A 3. makró modulba kerül, mint az első.
  A Tartalomjegyzék lap G1 cellájába írd a karaktert, amit ha tartalmaz a felsorolás valamelyik tagja, az annak megfelelő fül elérhető-, a többi lap rejtett lesz. Az összes lap felfedéséhez töröld a G1 tartalmát.

  Sub Rejt(keres)
  Dim lap%, lel, sor%
  
  If Cells(1, 7) = "" Then
  For lap% = 2 To Worksheets.Count
  Sheets(lap%).Visible = True
  Next
  Else
  keres = "*" & keres & "*"
  For sor% = 4 To Cells(Rows.Count, "B").End(xlUp).Row
  With Cells(sor%, 2)
  Set lel = .Find(keres, LookIn:=xlValues)
  If Not lel Is Nothing Then
  Sheets(sor% - 2).Visible = True
  Else
  Sheets(sor% - 2).Visible = False
  End If
  lel = False
  End With
  Next
  End If
  End Sub

  [ 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