Skocz do zawartości

  •  
  • Mini kompendium
  • MimeTeX
  • Regulamin

Zdjęcie
        LICEUM        

Visual Basic zapętlanie



  • Nie możesz napisać tematu
  • Zaloguj się aby odpowiedzieć
Brak odpowiedzi do tego tematu

#1 Vianne

Vianne

    Wielki Analityk

  • VIP
  • 826 postów
194
Pomocnik II
  • Płeć:Kobieta

Napisano 26.06.2017 - 05:13

Mam pytanie na temat tego jak zapętlić taki kod:

 

 

Dim i, j As Integer
 
i = 7
j = i - 1
    
    Do Until Cells(i, 3) <> ""
    
        Cells(i, 3) = Cells(j, 3)
        
    i = i + 1
     
    Loop
            
        j = i
        i = i + 1
        
        Do Until Cells(i, 3) <> ""
            
                Cells(i, 3) = Cells(j, 3)
                
            i = i + 1
             
            Loop
 
j = i
        i = i + 1
        
        Do Until Cells(i, 3) <> ""
            
                Cells(i, 3) = Cells(j, 3)
                
            i = i + 1
             
            Loop
j = i
        i = i + 1
        
        Do Until Cells(i, 3) <> ""
            
                Cells(i, 3) = Cells(j, 3)
                
            i = i + 1
             
            Loop
....
 
 
Dodatkowo chciałabym żeby te działania byly wykonywane do momentu, aż Excel wykryje pierwszą niepustą komórkę w kolumnie A, startując od wiersza 7 w tej kolumnie.
 
Do tego ułożyłam sobie pętle if jak poniżej, jednakże chciałabym to wszystko połączyć w całość.
 
Sub pierwsza_niepusta()
 
For p = 7 To 10000
    
    If Cells(p, 1) = "" Then
    
    Else
    'MsgBox "znalazl niepusta i wynosi ona" & " " & p
    Exit For
    
    End If
 
Next p
 
End Sub
 
Z góry dziekuję za pomoc :) !
 
 
 
 
 

  • 0
Jeśli pomogłam kliknij -->Dołączona grafika

"Zobaczyć świat w ziarenku piasku,
Niebiosa w jednym kwiecie lasu.
W ściśniętej dłoni zamknąć bezmiar,
w godzinie - nieskończoność czasu."

Afroman

    Kombinator

  • Użytkownik
3
  • Płeć:Kobieta

Napisano 25.09.2011 - 17:55