Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Выделение области
 
#1
25.07.2011 08:47:58
Вроде бы выделил область, а чему формула не вставляется не пойму и тоже самое с выделением колонок. Я понимаю, что код не работает из-за неправильного выделение, но как выделить правильно в этих двух вариантах не знаю.    
Будьте добры помочь. (Если информации недостаточно, то скажите)  
 
Косяк№1  
On Error Resume Next  
Cells.Find(What:="Код", LookAt:=xlPart).Select  
ColumnFind = Selection.Column  
RowFind = Selection.Row  
Cells.Find(What:="Ответственная служба", LookAt:=xlPart).Select  
ColumnFind_ll = Selection.Column  
RowFind_ll = Selection.Row  
If Not Cells(RowFind + 1, ColumnFind) = 0 Then Cells(RowFind_ll, ColumnFind_ll + 8).FormulaR1C1 = "=RC[-8] & "": П.:"" & RC[-7] & ""; К.:"" & RC[-4]"
Cells(RowFind_ll, ColumnFind_ll + 8).Copy  
Range(Cells(RowFind_ll + 1, ColumnFind_ll + 8), Cells(RowFind_ll + 400, ColumnFind_ll + 8)).Paste 'косяк  
 
Косяк№2  
With Wb_NED.ActiveSheet  
.Range(ColumnFind + 1, ColumnFind_ll + 7).Delete Shift:=xlToLeft 'косяк  
.Columns("A:A").Delete Shift:=xlToLeft
 
 
 
#2
25.07.2011 08:56:52
Вопрос про второй косяк снимается - сам вижу почему.
 
 
 
#3
25.07.2011 10:49:11
Sub test()  
   On Error Resume Next  
   Dim Код As Range, Служба As Range  
   Set Код = Cells.Find(What:="Код", LookAt:=xlPart)  
   Set Служба = Cells.Find(What:="Ответственная служба", LookAt:=xlPart)  
 
   If Код.Next = 0 Then Служба.Offset(, 8).FormulaR1C1 = "=RC[-8] & "": П.:"" & RC[-7] & ""; К.:"" & RC[-4]"
   Служба.Offset(, 8).AutoFill Служба.Offset(, 8).Resize(400)  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#4
25.07.2011 10:50:25
Немного ошибся - правильно будет так:  
 
Sub test()  
   Dim Код As Range, Служба As Range  
   Set Код = Cells.Find(What:="Код", LookAt:=xlPart)  
   Set Служба = Cells.Find(What:="Ответственная служба", LookAt:=xlPart)  
 
   If Код.Offset(1, 0) = 0 Then Служба.Offset(, 8).FormulaR1C1 = "=RC[-8] & "": П.:"" & RC[-7] & ""; К.:"" & RC[-4]"
   Служба.Offset(, 8).AutoFill Служба.Offset(, 8).Resize(400)  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
25.07.2011 11:37:04
If Not Cells(RowFind + 1, ColumnFind) = 0  
-->  
If Код.Offset(1, 0) = 0  
 
Может всё таки нужно прописать так:  
If Not Код.Offset(1, 0) = 0  
Я прав или я что-то недогоняю в твоем коде?
 
 
 
#6
25.07.2011 11:50:15
> Может всё таки нужно прописать так:  
 
да, так и нужно.  
Проглядел я слово Not
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#7
25.07.2011 22:30:00
Всем спасибо! Код по большему счету был рабочий. Просто я хотел прокопировать ячейку с формулой, которую сам же и запретил ставить (If Not).
 
 
 
Страницы: 1
Читают тему
Наверх