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

• #3411 Delila_1 veterán mimi_bacsi #3409

  Új Válasz 2008-03-30 15:12:23 #3411

  Ú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 mimi_bacsi #3409 üzenetére

  Ez meg megadja a mentett fájlnál az útvonalat, a füzet és a lap nevét.
  A még nem mentettnél a két utolsó adatot.
  Csak ennyit kell írni-> =fájlnév() – ha ezt a kis scriptet bővítményként mentetted, és a bővítménykezelőben bejelölted.

  Function fájlnév()
  If ActiveWorkbook.Path > "" Then utvonal = ActiveWorkbook.Path & "\"
  füzet = ActiveWorkbook.Name & "\"
  lap = ActiveSheet.Name
  fájlnév = utvonal & füzet & lap
  End Function

• #3410 kraftxld félisten mimi_bacsi #3409

  Új Válasz 2008-03-30 13:10:47 #3410

  Ú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

  

  kraftxld

  félisten

  válasz mimi_bacsi #3409 üzenetére

  a vbeditorba írd be ezt:

  Function Count_Sheets() As Long
  Application.Volatile
  Count_Sheets = ThisWorkbook. Sheets.Count
  End Function

  majd bármelyik cellába ha ezt írod:

  =Count_Sheets()

  Akkor visszaadja a munkalapok számát.

  Forrás: [link]

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