Excel - Poslať hodnotu bunky na cieľ

V spoločnosti Microsoft, robiť výpočty a vyrovnávanie pravidelné záznamy možno vykonať pomocou vzorcov v softvéri Office Excel. Hodnoty odosielania bunky v programe Excel na cieľovú hodnotu možno vykonať pomocou hodnoty stĺpca, ktorá sa má kopírovať a vložiť do cieľovej bunky. V stĺpci A, ak je hodnota nula, a v stĺpci K je hodnota väčšia ako nula, skopírujte hodnotu stĺpca "A" a vložte ju do stĺpca "K". Hodnota stĺpca je riadená jednoduchými funkciami vkladania kópií v systéme Windows. Ak chcete pridať viac stĺpcov, vytvorte vzorec ako "C: K". Výpočet sa vykoná pre nasledujúci stĺpec, kým sa nedosiahne posledný stĺpec a hodnota sa skopíruje a vloží do cieľového stĺpca.

Problém

Je možné poslať hodnotu bunky (skopírovať a prilepiť špeciálne) do inej bunky, kde by hodnota nebola narušená, keď sa hodnota zdroja zmení na hodnotu 0?

Môj súhrnný pracovný list kalkulačky miezd dostane informácie z iných pracovných hárkov každý týždeň v rámci súboru programu Excel a vypočíta mzdy aktuálneho týždňa. V predchádzajúcom týždni boli hodnoty, ale teraz, počas aktuálneho týždňa, bunky pre predchádzajúci týždeň sú 0.

Mojím cieľom je zachovať hodnoty predchádzajúceho týždňa v inom poli buniek, aby som mohol mať bežiaci celkový počet za mesiac.

Príklad:

A3 má vzorec:

 = IF (A3 = 'Mzdová kalkulačka'! M2, VLOOKUP (H1, 'Mzdová kalkulačka'! $ B $ 3: $ M $ 28, 8, FALSE), 0) 

Táto hodnota musí byť zaúčtovaná do K3, ale len ak je viac ako „0“.

Ak A3 vráti hodnotu '0', potom akákoľvek hodnota väčšia ako '0', ktorá bola predtým uverejnená v K3, bude ponechaná samostatne.

Jednoducho to robím ručne jednoduchým kopírovaním hodnôt, ktoré chcem uložiť, potom pomocou príkazu „Vložiť špeciálny“ a zvolením „hodnôt“ vložených do cieľa. 'Skip blanks' nerobí nič. Makro:

Sub Macro1 ()

'

Macro1 Makro

'

'

Range ( "C3"). Vyberte

ActiveWindow.ScrollRow = 10

Range ( "C3: I52") Zvoľte.

Selection.Copy

Range ( "K3"). Vyberte

Selection.PasteSpecial Paste: = xlValues, Operácia: = xlNone, SkipBlanks: = _

Pravda, Transponovať: = False

Range ( "K3"). Vyberte

Application.CutCopyMode = False

End Sub

Prepíše hodnoty predchádzajúcich týždňov nulami bez ohľadu na to, či som vybral preskočenie alebo nie (pravdepodobne preto, že bunky sú nuly, nie prázdne).

Pracujem s radom A3: I54 a chcem skopírovať a prilepiť akékoľvek hodnoty väčšie ako „0“ až K3: Q54, pričom si ponechám všetky hodnoty, ktoré boli predtým uverejnené v K3: Q54, ktoré sú väčšie ako „0“.

Riešenie

Možno to môže dostať správnym smerom, ak je moja interpretácia správna.

Toto bude porovnávať stĺpec A s tým, čo je v súčasnosti v stĺpci K ........

A1 porovnáva hodnotu v K1

A2 porovnáva hodnotu v K2

atď....

Ak je stĺpec A nula a stĺpec K je väčší ako nula, potom ponechajte hodnotu v stĺpci K. Inak skopírujte hodnotu v stĺpci A do stĺpca K.

 Sub Macro1 () Dim jj = 3 Do rozsahu ("A" & j) = "" Ak je rozsah ("A" a j) = 0, potom rozsah ("K" a j) = rozsah ("K" a j) Else Range ("K" a j) = Rozsah ("A" a j) Koniec Ak j = j + 1 Koniec Sub Loop 

Ak chcete pridať viacero stĺpcov, urobte makro ako „C: K“

 Sub Macro1 () Dim jj = 3 Do rozsahu ("C" & j) = "" Ak je rozsah ("C" a j) = 0, potom rozsah ("K" & j) = rozsah ("K" & j) Else Range ("K" & j) = Rozsah ("C" a j) Koniec If If Range ("D" & j) = 0 Potom Rozsah ("L" & j) = Rozsah ("L" a j) Else Rozsah ("L" & j) = Rozsah ("D" a j) Koniec Ak Ak Rozsah ("E" & j) = 0 Potom Rozsah ("M" & j) = Rozsah ("M" & j) Else Range ("M" & j) = Rozsah ("E" a j) Koniec Ak Ak Rozsah ("F" & j) = 0 Potom Rozsah ("N" & j) = Rozsah ("N" a j) Else Range ( "N" & j) = Rozsah ("F" a j) Koniec Ak Ak Rozsah ("G" & j) = 0 Potom Rozsah ("O" & j) = Rozsah ("O" & j) Else Range (" O "& j) = Rozsah (" G "a j) Koniec Ak Ak Rozsah (" H "a j) = 0 Potom Rozsah (" P "& j) = Rozsah (" P "a j) Else Range (" P "& j) = Rozsah (" H "a j) Koniec Ak Ak Rozsah (" I "& j) = 0 Potom Rozsah (" Q "& j) = Rozsah (" Q "a j) Else Range (" Q ") & j) = Rozsah ("I" a j) Koniec Ak j = j + 1 Koniec Sub Loop 

Poznač si to

Vďaka WutUp WutUp za tento tip na fóre.

Predchádzajúci Článok Nasledujúci Článok

Najlepšie Tipy