Elektroda.pl
Elektroda.pl
X

Wyszukiwarki naszych partnerów

Kategoria: Kamery IP / Alarmy / Automatyka Bram
Montersi
Kategoria: Akumulatorki / Baterie / Ładowarki
  • #1 11 Gru 2010 19:48
    jurik11
    Poziom 2  

    Mam pytanie - Jak obliczyć sumę cyfr w komórce?

  • #3 11 Gru 2010 21:16
    Efyr
    Poziom 10  

    wpisujesz cyfry które chcesz zsumować, najczęściej się to robi jedna pod drugą. Następnie zaznaczasz je i wybierasz funkcję sumuj
    Ewentualnie możesz w jednej komórce wpisać w formułce poprzedzając znakiem =
    Np = 5+3 a excel sam wykona działanie i wyświetli w tej samej komórce wynik

  • Pomocny post
    #4 11 Gru 2010 23:11
    riodoro1
    Poziom 22  

    Jeżeli chodzi o sumowanie cyfr w liczbie to zostaje tylko makro, moge troszkę podpowiedzieć:

    Code:

    Sub main()

    Dim c, x As Integer

    x = InputBox("")

    While x <> 0
    c = c + x Mod 10
    x = x \ 10
    Wend

    MsgBox(c)
    End Sub

  • #5 12 Gru 2010 13:40
    marek003
    Poziom 39  

    Jeżeli jest stała i niezmienna liczba cyfr można zrezygnować z makra wykorzystując funkcję fragment.tekstu
    Np. dla pięciu cyfr gdy liczba jest w A1:
    =FRAGMENT.TEKSTU(A1;1;1)+FRAGMENT.TEKSTU(A1;2;1)+FRAGMENT.TEKSTU(A1;3;1)+FRAGMENT.TEKSTU(A1;4;1)+FRAGMENT.TEKSTU(A1;5;1)

    Jeżeli jest zmienna ilość cyfr w liczbie to trzeba by było do powyższych funkcji dodać funkcje jeżeli() (nawet parokrotnie) by funkcja fragment.tekstu() nie próbowała wyciągać kolejnej cyfry z "krótszej" liczby bo inaczej będzie błąd.

  • #6 12 Gru 2010 18:17
    jurik11
    Poziom 2  

    Dzięki za podpowiedź, oczywiście chodziło o sumowanie cyfr w liczbie.
    Mam jeszcze jedno pytanie: W kolejnych komórkach są podane 9-cyfrowe nr telefonów, numery powtarzają się po kilka razy. Jak obliczyć ile numerów występuje?

  • #7 12 Gru 2010 18:55
    riodoro1
    Poziom 22  

    "W kolejnych komórkach" - to znaczy w tej samej kolumnie, czy w tym samym wierszu ?

  • #8 12 Gru 2010 19:05
    fascynat
    Poziom 24  

    Jak sądzę wypadałoby także odpowiedzieć na zadane przeze mnie pytanie.

    fascynat napisał:
    W jednej komórce?

    Do tej pory nie wiadomo, czego tak naprawdę chciałeś się dowiedzieć. Szczególnie, że następne pytanie także nie należy do kategorii jasno sformułowanych.
    Proponowałbym poświęcić trochę więcej czasu na sformułowanie zapytania i starać się zadać je jak najbardziej konkretnie - zaoszczędzi to wszystkim czasu i z pewnością przyspieszy odpowiedź.

  • #9 13 Gru 2010 08:15
    jurik11
    Poziom 2  

    Przepraszam za nieścisłość - chodzi o liczby zapisane w tej samej kolumnie.

  • Pomocny post
    #10 13 Gru 2010 09:46
    walek33
    Poziom 28  

    To ja też się tu dotknę.

    Cytat:
    Jeżeli chodzi o sumowanie cyfr w liczbie to zostaje tylko makro

    Myślę, że funkcja użytkownika jest wygodniejsza.
    Może wyglądać tak:
    Code:

    Function CyfrySuma(Dana As String) As Integer
        CyfrySuma = 0
        For i = 1 To Len(Dana)
            CyfrySuma = CyfrySuma + Val(Mid(Dana, i, 1))
        Next
    End Function

  • #11 13 Gru 2010 13:56
    jurik11
    Poziom 2  

    Dzięki, a myślałem, że uda się obejść makro

  Szukaj w 4mln produktów
Przeglądaj produkty