Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Microsoft Excel - wcale nie takie banały...

03 Lis 2007 23:40 1752 2
  • Poziom 31  
    Witam!
    Mam 3 kartki z zadaniami [dla niektórych prostymi zadaniami] do zrobienia w Excelu. Jest to poziom pierwszego roku studiów na kierunku informatyka.
    Ja i mój kolega nie potrafimy rozwiązać tych zadań. Mam nadzieję, że znajdzie się tu ktoś, kto jest rozwiąże i powie nam jakie formuły wpisał :-)
    Będziemy bardzo wdzięczni bo kolokwium już jutro :-)

    Z góry bardzo dziękuję za pomoc!

    Kartka 1: http://img260.imageshack.us/img260/1836/excel1ow1.jpg
    Kartka 2: http://img507.imageshack.us/img507/6483/excel2px5.jpg
    Kartka 3: http://img149.imageshack.us/img149/1384/excel3ht4.jpg


    Pozdrawiam.

    Dodano po 6 [minuty]:

    Proszę nie przenosić do Początkujący, Laborki, Teoria, Referaty.

    Przenoszę do Komputery Software ponieważ rozwiązywano tam podobne problemy, a z Programowaniem Ogólnym mają one niewiele wspólnego. Swoją drogą, nie myśli kolega że rozpoczęcie nauki na dzień przed kolokwium to nienajlepszy pomysł ? - krzychoocpp
  • Pomocny post
    Poziom 17  
    Rozwiązanie od zadania pierwszego z pierwszej kartki.
    1. W 'A1' wpisać: =MROUND(RANDBETWEEN(0;100);5)
    jeśli pojawi się błąd-załadować dodatek Analysis ToolPak: # Narzędzia >> Dodatki >> Dostępne dodatki >> Analysis ToolPak >> OK
    2. Przekopiować formułę do 'A50'
    3. Zaznaczyć całość
    4. Skopiować
    5. Kliknąć na 'B1' Edycja >> Wklejanie specjalne >> Wklej >> Wartość
    6. Zaznaczyć nowo powstałe wartości ('B1:B50')
    7. Wstaw >> Nazwa >> Definiuj >> (Wpisać nazwisko) >> OK
    8. Napisać makro:
    Code:


    Sub praca_domowa2()
    Dim suma As Integer, liczba    As Integer, ile As Integer
    Dim kom As Range

    ile = 0
    '======================================
    For Each kom In Range("bbxb")   'nazwisko to bbxb
        With kom
            .Value = .Value
           
            If .Value > 30 And .Value < 70 Or _
               .Value Mod 10 = 0 Then
               
               liczba = .Value
               suma = suma + liczba
               '.Interior.Color = vbGreen   'dla sprawdzenie poprawnosci
               ile = ile + 1                'pokolorowalem komórki
            Else                            'w ostatecznym uruchomieniu
               '.Interior.Color = vbYellow  'nalezy to pominac
            End If
        End With
    Next

    MsgBox "Suma jest równa " & suma & ". Tych liczb jest: " & ile
    '======================================

    End Sub


    9*. Ewentualnie dopisać funkcjie która "odświeża" dane w przedziale "bbxb" czyli w zdefiniowanej nazwie-nie ma tego w poleceniu.

    Niestety na resztę nie mam czasu.... :( bo zajęcia jest na całe popołudnie ale fajne ćwiczonka :)

    Pozdrawiam
    mariusz
  • Poziom 31  
    Dzięki serdeczne ale to trzeba zrobić bez makr i na jedna taką kartkę mamy 60 minut :-)

    Dziękuję za przeniesienie.


    Pozdrawiam.