|
|
| Тема |
 цикли с for... next... |
|
| Автор |
vector_m (непознат
) |
|
| Публикувано | 11.08.11 17:00 |
|
|
|
Здравейте !
Ще погледнете ли сорса:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For j = 12 To 100
If (Sheets("Януари").Cells(j, 1)) = (Sheets("База").Cells(j, 1)) Then
Sheets("База").Cells(j, 4) = Sheets("Януари").Range("AM" & j)
Sheets("База").Cells(j, 5) = Sheets("Януари").Range("AK" & j)
End If
Next j
End Sub
Защо се цикъла се завърта само два пъти , тоест отпечатва стойности само в 12 и 13 ред .
Пробвах да използвам две променливи: J- за sheets(Януари) и N- за sheets(База)
и докато не се завъртят и двата цикъла не мога да въвеждам данни ,тоест програмата забива !
Ето сорса с две променливи
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For j = 12 To 100
For N = 12 To 100
If (Sheets("Януари").Cells(j, 1)) = (Sheets("База").Cells(N, 1)) Then
Sheets("База").Cells(N, 4) = Sheets("Януари").Range("AM" & j)
Sheets("База").Cells(N, 5) = Sheets("Януари").Range("AK" & j)
End If
Next N
Next j
End Sub
А ако използвам само една променлива и за sheets(Януари) и sheets(База) тоест използвам само един цикъл то той се завърта само 2 пъти .
Каде бъркам?
<P ID="edit"><FONT class="small"><EM>Редактирано от vector_m на 11.08.11 17:04.</EM></FONT></P>Редактирано от vector_m на 11.08.11 17:09.
| |
| |
| 
|
|
