hackman
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Ребята помогите почему в цикле For не меняєтся значение Код: ttribute VB_Name = "Module30" Sub kulik_clear() Sheets("КУЛ").Select For i = 1 To 256 If Cells(21, i).Value = "slojka" Then slojka = i Next i Range(Cells(6, 5), Cells(6, slojka - 1)).ClearContents For i = 1 To 256 If Cells(21, i).Value = "tisto" Then tisto = i Next i Range(Cells(6, slojka + 1), Cells(6, tisto - 1)).ClearContents Range(Cells(6, tisto + 1), Cells(6, tisto + 5)).ClearContents For i = 1 To 256 If Cells(21, i).Value = "slinz" Then slinz = i Next i Range(Cells(6, tisto + 6), Cells(6, slinz - 1)).ClearContents End Sub Sub analiz_vyrobn_rentab() Attribute analiz_vyrobn_rentab.VB_Description = "Макрос записан 10.04.2007 (Dkorkuna)" Attribute analiz_vyrobn_rentab.VB_ProcData.VB_Invoke_Func = " \n14" Application.ScreenUpdating = False Dim Month As String 'Dim data As Integer For data = 105 To 134 For fnum = 1 To 31 'data = data + 1 Sheets("ВХ").Select Month = "04" If Len(fnum) = 1 Then t = "0" & CStr(fnum): GoTo 5 Else GoTo 10 10 t = CStr(fnum) 5 Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C4" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C4" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C4" Sheets("ЛХЗ №5").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C5" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C5" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C5" Sheets("ГХ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C7" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C7" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C7" Sheets("БХ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C8" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C8" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C8" Sheets("МП").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C9" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C9" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C9" Sheets("ЧГ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C10" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C10" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C10" Sheets("КХ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C11" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C11" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C11" Sheets("СХ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C12" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C12" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C12" Sheets("РХ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C13" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C13" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C13" Sheets("ЖШ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C14" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C14" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C14" Sheets("КМХ").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C15" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C15" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C15" Sheets("ШП").Select Cells(data, 2).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R5C16" Cells(data, 3).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R34C16" Cells(data, 4).FormulaR1C1 = _ "='\\hlibprom\fs\Documents\FAU\ANALYTICS\RENTABEL\2007\2007" & (Month) & "\Розсилка\[Рентабельність " & (t) & "_" & (Month) & "_07.xls]ХЗ'!R33C16" ' If fnum = 17 Then Exit Sub Next fnum: Next data End Sub |
| Всего записей: 185 | Зарегистр. 22-09-2003 | Отправлено: 13:23 20-04-2007 | Исправлено: hackman, 17:11 20-04-2007 |
|