ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Новая
5 сообщений из 5, страница 1 из 1
Новая
    #34315842
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Есть такая фигня. Помогите пожалуйста разобраться. Вставил целиком на всякий случай.
А так важно только то чтобы окончание цикла было переменной величиной. Сейчас он заканчивается на 196 строке, как присвоено в начале, потом переменная m меняется, как сделать чтобы окончание цикла тоже передвинулось?
Заранее спасибо

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
Sub Подбор_очерёдности_ВХО_корректировок()
'
' Макрос1 Макрос
' Макрос записан 08.02.2007 (degtyarev)
'
 Dim m As Integer
  
  m =  196 
 
 For n =  7  To m

    Sheets("Кор_ВХО_2").Select
    Range(Cells(n,  1 ), Cells(n,  9 )).Select
    Selection.Copy
          
     Sheets("Кор_ВХО").Select
    Range(Cells(n,  1 ), Cells(n,  9 )).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
     Range("B2").Select
     sad = Cells( 2 ,  2 ).Value

     If sad >  0  Then
       
       Range(Cells(n,  1 ), Cells(n,  9 )).Select
        Selection.ClearContents
           With Selection.Interior
            .ColorIndex =  34 
            .Pattern = xlSolid
           End With
           
       Rows(m).Select
       Selection.Insert Shift:=xlDown
       
       Sheets("Кор_ВХО_2").Select
       
       Range(Cells(n,  1 ), Cells(n,  9 )).Select
        Selection.Copy
       
       Range(Cells(m,  1 ), Cells(m,  9 )).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
       
       Range(Cells(n,  1 ), Cells(n,  9 )).Select
        Selection.ClearContents
           With Selection.Interior
            .ColorIndex =  34 
            .Pattern = xlSolid
           End With
       
       m = m +  1 
     End If
  
 Next n
 
End Sub
...
Рейтинг: 0 / 0
08.02.2007, 14:03:09
| Ответить | Цитировать | Написать  
Новая
    #34315909
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Sub Ïîäáîð_î÷åð¸äíîñòè_ÂÕÎ_êîððåêòèðîâîê()
Dim m As Integer

m = 196

n = 7
Do While n <= m

Sheets("Êîð_ÂÕÎ_2").Select
Range(Cells(n, 1), Cells(n, 9)).Select
Selection.Copy

Sheets("Êîð_ÂÕÎ").Select
Range(Cells(n, 1), Cells(n, 9)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B2").Select
sad = Cells(2, 2).Value

If sad > 0 Then

Range(Cells(n, 1), Cells(n, 9)).Select
Selection.ClearContents

With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With

Rows(m).Select
Selection.Insert Shift:=xlDown

Sheets("Êîð_ÂÕÎ_2").Select

Range(Cells(n, 1), Cells(n, 9)).Select
Selection.Copy

Range(Cells(m, 1), Cells(m, 9)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range(Cells(n, 1), Cells(n, 9)).Select
Selection.ClearContents

With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With

m = m + 1
End If

n = n + 1
Loop

End Sub
...
Рейтинг: 0 / 0
08.02.2007, 14:15:38
| Ответить | Цитировать | Написать  
Новая
    #34315911
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
Sub Подбор_очерёдности_ВХО_корректировок()
Dim m As Integer
  
    m =  196 
 
    n =  7 
    Do While n <= m
    
        Sheets("Кор_ВХО_2").Select
        Range(Cells(n,  1 ), Cells(n,  9 )).Select
        Selection.Copy
              
        Sheets("Кор_ВХО").Select
        Range(Cells(n,  1 ), Cells(n,  9 )).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
       
        Range("B2").Select
        sad = Cells( 2 ,  2 ).Value
    
        If sad >  0  Then
           
            Range(Cells(n,  1 ), Cells(n,  9 )).Select
            Selection.ClearContents
            
            With Selection.Interior
                .ColorIndex =  34 
                .Pattern = xlSolid
            End With
               
            Rows(m).Select
            Selection.Insert Shift:=xlDown
           
            Sheets("Кор_ВХО_2").Select
           
            Range(Cells(n,  1 ), Cells(n,  9 )).Select
            Selection.Copy
           
            Range(Cells(m,  1 ), Cells(m,  9 )).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
           
            Range(Cells(n,  1 ), Cells(n,  9 )).Select
            Selection.ClearContents
            
            With Selection.Interior
                .ColorIndex =  34 
                .Pattern = xlSolid
            End With
           
            m = m +  1 
        End If
         
        n = n +  1 
    Loop
 
End Sub
...
Рейтинг: 0 / 0
08.02.2007, 14:16:06
| Ответить | Цитировать | Написать  
Новая
    #34316005
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Спасибо, щас попробую
...
Рейтинг: 0 / 0
08.02.2007, 14:33:43
| Ответить | Цитировать | Написать  
Новая
    #34316368
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Спасибо, помогло!
...
Рейтинг: 0 / 0
08.02.2007, 15:47:28
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Новая
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=295&tid=2183477]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 13ms
get forum data:
 4ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 240ms
total:  385ms
созд. / загр.: 385ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]