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

• #22653 Delila_1 veterán slashing #22648

  Új Válasz 2014-07-28 20:12:41 #22653

  Ú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 slashing #22648 üzenetére

  A vezérlők eszköztárából kiteszel a lapra egy listboxot. Tervező üzemmódban a tulajdonságoknál a ColumnCount-ot 2-re állítod (két oszlopot mutasson), a Visible-t pedig False-ra.

  A makródban a státuszsor kiíratása után beteszed a sorszámot és a fájlnevet, mondjuk az AA és AB oszlopokba.

  Cells(loopcount, "AA")=loopcount
  Cells(loopcount, "AB")=Filename

  Kiíratás:

  Sheets("Munka1").ListBox1.ListFillRange = "Munka1!AA1: AB" & loopcount
  Sheets("Munka1").ListBox1.Visible = True

• #22650 Fferi50 Topikgazda slashing #22648

  Új Válasz 2014-07-28 19:20:01 #22650

  Ú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

  

  Fferi50

  Topikgazda

  válasz slashing #22648 üzenetére

  Szia!

  Lehetőségek:

  Userform és textbox megjelenítése a szöveggel.

  Egy munkalapra ráteszed a felsorolást, majd amikor kész vagy munkalap.printpreview. Ez utóbbi előnye, hogy még "pofozhatod" is a kinézetét és ki is lehet nyomtatni - hogy megmaradjon dokumentumnak.

  Üdv.

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