Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: 2 tabelki + excel + pomoc
anonim




Typ: Nie zarejestrowany
2 tabelki + excel + pomoc

Mam następujące dane:
I tabela zawiera:
ImięKolorWiek
Alażółty1
Belaczerwony2
Celazielony5
Helaczerwon3
Felazielony4
Gieniabiały2

II tabela:
ImięDługość ogonka
Bela15
Cela10
Ala7
Hela3
Fela10
Gienia8

Na zajęciach zostało zrobione:
Sub Makro1()
Dim i As Integer
Dim j As Integer
Dim nrw2 As Integer


For i = 2 To 7
    For j = 2 To 7
    If Cells(j, 5) = Cells(i, 1) Then
    nrw2 = j
    End If
    Next j
    Cells(i, 8) = Cells(i, 1)
    Cells(i, 9) = Cells(i, 2)
    Cells(i, 10) = Cells(i, 3)
    Cells(i, 11) = Cells(nrw2, 6)
    Next i



End Sub

Czyli powstała taka tabela:
Alażółty17
Belaczerwony215
Celazielony510
Helaczerwony33
Felazielony410
Gieniabiały28

A moje potrzeby to:
1.warunek ograniczający
2. wypisać średnią długość ogonków ryb
3. wypisać ryby o ogonkach większych od np. 9
4. koniec tabeli program powinien sam rozpoznawać

Proszę o pomoc e-mail:
Dzięki

14-06-2004 22:30
  
anonim




Typ: Nie zarejestrowany

To jest moje zadanie zaliczeniowe z VB. Ponownie proszę o pomoc.
Dzięki

20-06-2004 22:02
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
LUDZIE!!!

Ludzie, czemu nie chodzicie na zajęcia???

Gdybyś chodził na zajęcia, nie miał byś takich problemów.

Wykorzystaj pętlę
Do While ... Loop
lub
Do ... Loop Until

Option Explicit

Sub Porownaj()
Dim i As Long, j As Long
Dim srednia As Long

i = 2
j = i

Do While Cells(i, 1) <> ""
    Do While Cells(j, 5) <> ""
        'wypisz wszystko
        If Cells(j, 5) = Cells(i, 1) Then
            Cells(i, 8) = Cells(i, 1)
            Cells(i, 9) = Cells(i, 2)
            Cells(i, 10) = Cells(i, 3)
            Cells(i, 11) = Cells(j, 6)
        End If
        'wypisz tylko > 9
        If Cells(j, 6) > 9 Then
            Cells(j, 13) = Cells(j, 1)
        End If
        j = j + 1
    Loop
    srednia = srednia + Cells(i, 6)
    j = 2 'zresetuj j, by mógł szukać od początku
    i = i + 1 'kolejne i
    Cells(i, 10) = "Średnia:"
    Cells(i, 11) = srednia / (i - 2)
Loop

End Sub


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

20-06-2004 23:33
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
anonim




Typ: Nie zarejestrowany

Wielkie dzięki. Działa

21-06-2004 22:17
  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1