, de volgende code zal je helpen een keuze die in de tabel van de formule of werk, alsjeblieft, doe het als volgt:,,, 1.Op het Alt+F11, sleutels, het openstellen van Microsoft de visuele van toepassing.,,,,, 2.- steek, >, modules en gebruik de volgende codes, module.,,,,, de VBA code: lijst van alle formules werken, zoon, tabel, listformulas () de bijwerking van de 20141027 schemering workrng rng toepassingsgebied Fuzzy xsheet als donkere xrow. Tabel xtitleid = "kutoolsforexcel" set workrng = toepassing. - workrng = toepassing. Inputbox ("Werkingssfeer", xtitleid, workrng. Adres: = 8) tot vaststelling van workrng = workrng. Specialcells (xlformulas, 23) als wat workrng dan uit de application.screenupdating = hypothese xsheet = application.activeworkbook.worksheets.add xsheet. ("A1:C1") = array ("pakken", "de waarde van de formule", "xsheet"). ("A1:C1"). Font.bold = echte xrow = 2 gerandomiseerde workrng xsheet. Cellen (xrow, 1) = rNg. Adres (rowabsolute:= vals, columnabsolute:= valse) xsheet. Cellen (xrow, 2) = "& rng. De formule xsheet. Cellen (xrow, 3) = rng. Waarde xrow = xrow + 1 xsheet. Kolommen (" "), en de automatische aanpassing van de application.screenupdating = echt,,, 3.En de pers F5, exploitatie van de code, en zal er een doos om u te herinneren aan de omvang van de werkzaamheden van de keuze van een tabel op te stellen of de formule, cellen, zie schoten:,,,,,, 4.En daarna, oké, je kiest, zijn opgenomen in de in de formule eens in je werk in de tabel voor de informatie van de cel het adres van een nieuwe lijst de volgende screenshot formules en waarde:,,,,,,,