Šajā rakstā mēs uzzināsim, kā mainīt formulas diapazona šūnās uz vērtībām, izmantojot Microsoft Excel VBA.
Neapstrādāti dati šajā piemērā sastāv no pārdošanas datiem. Pārdošanas dati satur informāciju par preču skaitu, ko darbinieki pārdevuši dažādās pilsētās. Pēdējā rindā un kolonnā ir summas formula, lai atrastu kopējo priekšmetu skaitu, ko konkrētā pilsētā pārdevis konkrēts darbinieks.
Mēs vēlētos konvertēt visas aktīvās lapas formulas par vērtībām. Lai visas formulas pārvērstu vērtībās, esam izveidojuši makro “ChangingFormulasToValue”. Šo makro var palaist, noklikšķinot uz pogas “Konvertēt formulas par vērtībām”.
Momentuzņēmumā var redzēt, ka formula H18 šūnā tiek pārveidota par vērtību.
Koda skaidrojums
Iestatīt SourceRng = Diapazons ("A1", Diapazons ("A1"). SpecialCells (xlCellTypeLastCell))
Iepriekš minētais kods tiek izmantots, lai piešķirtu visas šūnas, sākot no šūnas A1, līdz pēdējai darbgrāmatas šūnai kā diapazonu.
SourceRng.Value = SourceRng.Value
Iepriekš minētais kods tiek izmantots, lai piešķirtu šūnas vērtību, izlaižot formulu
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub ChangingFormulasToValue () 'Mainīgo deklarēšana Dim SourceRng As Range' Norādiet visas aktīvās lapas šūnas kā diapazonu Set SourceRng = Range ("A1", Range ("A1"). SpecialCells (xlCellTypeLastCell)) 'Piešķirot tikai vērtību šūnas izlaišanas formula SourceRng.Value = SourceRng.Value End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē