Skocz do zawartości


Close Open
Close Open
Zdjęcie
- - - - -

Visual Basic zapętlanie


  • Please log in to reply
No replies to this topic

#1 Vian.ne

Vian.ne

    Adept

  • Forumowicze
  • Pip
  • 1 Postów:

Napisany 25 czerwiec 2017 - 19:56

Hej jestem początkującym "programistą vba". 

 

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.
Bardzo dziękuję za pomoc! :)





0 Użytkowników czyta ten temat

0 użytkowników, 0 gości, 0 anonimowych użytkowników