Kā reizināt visas diapazona šūnas ar konstanti
Vai vēlaties nodrošināt, lai visas diapazona konstantes tiktu reizinātas ar koeficientu? To var panākt, gudri izmantojot funkciju EDIT - INSERT CONTENT.
Tas ir vieglāk, ja izmantojat šādu makro:
Izmantot apakšfaktoru ()
Dim šūna kā diapazons
Dim ieejas vērtība As Long
Ievades vērtība = InputBox ("Lūdzu, ievadiet koeficientu (piemēram, 100)")
Katrai atlasītajai šūnai
Ja nē (Cell.HasFormula) Tad
Cell.Formula = "=" & Cell.Value & "*" & Val (ievades vērtība)
Beigas Ja
Nākamā šūna
Beigt apakš
Pirmajā solī tabulā atlasiet šūnu diapazonu. Nākamajā attēlā parādīts izcelta apgabala piemērs.
Pēc tam izsauciet makro. Excel tagad logā jautā, kādu faktoru vēlaties izmantot. Šis logs parāda šo attēlu:
Apstipriniet faktora definīciju ar pogu OK.
Tagad programma Excel pārvietojas pa visām atlasītajām šūnām. Tiek mainītas tikai tās šūnas, kurās nav formulas. Tos reizina ar ievadīto koeficientu. Excel šūnā ievada jauno vērtību kā formulu. Sekojošais attēls parāda, kā var izskatīties rezultāts:
Ja vēlaties ievadīt skaitļus kā konstantes, nomainiet rindu "Cell.Formula" ar šādu izteiksmi:
Cell.Value = Cell.Value * Val (ievades vērtība)
Ievadot koeficientu, kas mazāks par vienu, jūs varat arī sadalīt šūnas ar konstanti.
Formulas pārveidošana par konstanti, izmantojot makro: Kā aprēķinu, izmantojot VBA, pārvērst absolūtā vērtībā
Jūs vēlaties pārvērst diapazona šūnas absolūtās vērtībās. To var izdarīt interaktīvi, kopējot apgabalu un pēc tam ielīmējot to kā vērtības. Atbilstošās komandas nosaukums ir "Rediģēt - ielīmēt speciāli" programmā Excel līdz 2003. gada versijai un "Sākt - ielīmēt - ielīmēt speciāli" programmā Excel no 2007. gada versijas.
Ja vēlaties konvertēt atsevišķas makro šūnas, jums palīdzēs šāds programmas kods:
SubValueConvert ()
Ar ActiveSheet.Range ("a1")
. Formula =. Vērtība
Beigt ar
Beigt apakš
Makro pārveido pašreizējās šūnas A1 saturu aktīvajā tabulā par absolūtu vērtību.