Sumowanie wartości komórek przez kopiowanie, excel


Sumowanie wartości komórek przez kopiowanie

Zaznaczenie kilku komórek zawierających wartości powoduje wyświetlenie ich sumy w pasku stanu. Ale jak sprawić by excel pamiętał tę sumę i pozwalał ją wkleić do komórki? Byłem kiedyś w takiej potrzebie i napisałem następujący kod:

Public suma


Sub licz_sume()
    suma = 0
    Dim mrange As Range
    Set mrange = Selection
    For Each komorka In mrange
        If IsNumeric(komorka.Value) = True Then
            suma = suma + komorka.Value
        End If
    Next
    Application.OnKey "^z", "zwroc_sume"
    Application.StatusBar = "Suma wynosi: " & suma
End Sub
 

Sub zwroc_sume()
    Selection.Value = suma
    Application.OnKey "^z", "licz_sume"
    Application.StatusBar = False

End Sub
 

Sub auto_open()
    Application.OnKey "^z", "licz_sume"
End Sub
 

Działa to w następujący sposób: zaznaczamy interesujący nas obszar, naciskamy "ctrl+z", przechodzimy do komórki, w którą chcemy wkleić sumę i ponownie naciskamy "ctrl+z".

Jeżeli chcemy by był to inny klawisz w linii Application.OnKey "^z", "licz_sume" zamieńmy literę "z" na inną.



Wyszukiwarka

Podobne podstrony:
Wartości-które wartości proponowane przez literaturę polską należy przenieść w XXI wiek, WYPRACOWANI
Które wartości proponowane przez literaturę polską należy pr
sposoby adresowania komórek w arkuszu kalkulacyjnym, excel-lekcje
Szybka zmiana wartości bez użycia formuł, excel
Wartości cenione przez współczesną młodzież , Obrona - Pedagogika ogólna
Sprawne wprowadzanie do komórek długich tekstów, excel
Wartości-które wartości proponowane przez literaturę polską należy przenieść w XXI wiek, WYPRACOWANI
Małgorzata Jóźwik, Katarzyna Kiraga Wpływ wartości kreowanych przez reklamy na zachowania dzieci
Szymański Wartości preferowane przez młodzież i ich wzajemne związki Młodzież wobec wartości opra
Szymański Wartości preferowane przez młodzież i ich wzajemne związki Młodzież wobec wartości duże
Wartości preferowane przez studentów uczelni niepublicznej
Wartosci Uniwersalne, zamiawiane przez chomików
Suma wartości czasu przekraczająca 24 godziny, excel
zarządzanie przez wartość, Zarządzanie(1)
Rachunkowość - wykłady - 04, Zdarzenia gospodarcze w jednostkach pieniężnych (wartość zdarzeń) podle
Socrealizm odwrócony czyli źródła niepokoju i poszukiwanie wartości przez Marka Hłaskę w wybranych o
Wartość prądu płynącego przez kolektor może być regulowana przez zmianę wysokości?riery złącza emite
Funkcje, przekazywanie przez wartość

więcej podobnych podstron