Ú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

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