Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
ошибка ComboBox Change
 
#1
24.09.2012 18:45:29
Всем добрый день!  
Пожалуйста, ткните меня в ошибку в данном коде?  
Выдает сообщение "Метод AutoFit из класса Range завершен неверно"  
 
Private Sub ComboBox1_Change()  
   Rows("15:16").EntireRow.AutoFit  
   Rows("30:30").EntireRow.AutoFit  
   Range("D7").Select  
         
End Sub  
 
Заранее благодарю за пояснения.
 
 
 
#2
24.09.2012 18:59:54
1. В данном случае EntireRow можно опустить - Вы уже итак с рядами работаете.  
2. Код абсолютно нормальный - у меня отрабатывает без ошибок => значит ошибка кроется в Вашем листе. Возможно требуется указать конкретный лист.  
________________________  
khafizovtt@gmail.com
Учимся сами и помогаем другим...
 
 
 
#3
24.09.2012 23:37:47
Люди! ну помогите решить проблему!  
Почему первый код работает отлично, второй на изменение ComboBox не работает?  
 
 
Private Sub Worksheet_Change(ByVal Target As Range)  
 
If Target.Address <> [D3].Address Then Exit Sub
On Error Resume Next  
     
Rows("15:16").EntireRow.AutoFit  
Rows("30:30").EntireRow.AutoFit  
   Range("D7").Select  
   With Selection.Interior  
       .Pattern = xlSolid  
       .PatternColorIndex = xlAutomatic  
       .Color = 65535  
       .TintAndShade = 0  
       .PatternTintAndShade = 0  
   End With  
End Sub  
 
 
Private Sub ComboBox1_Change()  
Sheets("наряд").Select  
   Rows("15:16").AutoFit  
   Rows("30:30").AutoFit  
Range("D7").Select  
With Selection.Interior  
       .Pattern = xlSolid  
       .PatternColorIndex = xlAutomatic  
       .Color = 65535  
       .TintAndShade = 0  
       .PatternTintAndShade = 0  
   End With  
End Sub  
 
делать список через проверку данных не хочу, т.к. в нем ограниченное кол-во строк. а привязать событие в комбобоксу не могу(
 
 
 
#4
24.09.2012 23:41:03
Лучше бы файл...
 
 
 
#5
25.09.2012 01:14:54
У меня сейчас будет истерика! Почему такое может быть? Сделала файлик для образца, там все работает. а в исходном ни фига. Упорно выделяет строку  
Rows("15:16").AutoFit и выдает MsgBox"Метод AutoFit из класса Range завершен неверно" Почему? В исходнике все совершенно аналогично!  
Спасибо если кто сможет помочь. Хотя... Исходник весит 17 МБ...
 
 
 
#6
25.09.2012 01:16:47
Пардон, не вложила файл. На помощь конечно не надеюсь. в рабочем файле сложно понять почему не работает другой. Но тем не менее может кому пригодиться как образец.
 
 
 
#7
25.09.2012 01:31:56
Может в исходном варианте лист защищен?  
 
Тогда первой строкой в процедуре ComboBox1_Change напишите вот это:  
Me.Protect UserInterfaceOnly:=True  
 
Это для случая без пароля.  
 
А если используется пароль, например, "123", тогда так:  
Me.Protect "123", UserInterfaceOnly:=True
 
 
 
#8
25.09.2012 01:35:50
Обратите еще внимание на то, что в процедуре Worksheet_Change в начале стоит    
On Error Resume Next  
то есть, ошибка там тоже могла случаться, но игнорировалась.  
 
А в коде ComboBox1_Change нет On Error Resume Next, поэтому ошибка останавливала код.
 
 
 
#9
25.09.2012 01:46:22
Все заработало!!!  
Спасибо Вам огромное!  
Теперь буду спать спокойно)
 
 
 
#10
25.09.2012 01:52:14
Вот и хорошо, доброй Вам ночи! :-)
 
 
 
#11
25.09.2012 02:00:06
Спс :-) Без Вас мне еще долго уснуть не пришлось бы)
 
 
 
Страницы: 1
Читают тему
Наверх