Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
TextBox не отображает записи
 
#1
29.03.2015 09:33:42
помогите пожалуйста!! сломал мозг, не пойму почему в последних текстбоксах (после Т34) не отображаются записи?  
 
 
 
#2
29.03.2015 09:56:12
На Вашей форме отсутствует TextBox с именем T35, при попытке вставить в него данные возникает ошибка и, в соответствии с инструкцией On Error GoTo ERRR, выход из процедуры. А если это поправить (закомментировать строку для T35, их там у Вас почему-то две), то для TextBox-ов T36-T43 в Вашей таблице нет значений, поэтому их просто нечем заполнить
Изменено: Sanja - 29.03.2015 10:10:37
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
29.03.2015 11:16:14
хм.. не досмотрел, спасибо! попутно, можно ли уменьшить код (вставку в ячейки листа и опрос ячеек текстбоксами) к примеру циклом?
 
 
 
#4
29.03.2015 11:46:41
Цитата
bus12 написал: к примеру циклом?
т.к. Ваши TextBox-ы расположены не по порядку, можно попробовать привязаться к их именам (но тут внимательнее со злополучным 35-м, и 45-м)
Код
Set Acl = ActiveSheet.Columns("C:C").Find(What:=ComboBox1, lookat:=xlWhole)
For Each Tb In Me.Controls
    If TypeName(Tb) = "TextBox" Then
        If Tb.Name Like "*45*" Then
            Tb.Value = Acl.Offset(0, 1)
            Exit For
        End If
        Tb.Value = Acl.Offset(0, Val(Right(Tb.Name, Len(Tb.Name) - 1)) + 24)
    End If
Next
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх