Доброго времени суток. На Лист1 в Excel вставлена MultiPage на первой странице есть лейбл в который нужно вставить значения из ячейки С19 в Лист1. Пытаюсь сделать так
[vba]
Код
Private Sub MultiPage_Change() Worksheets("Proqram").Cells(17, 2) = MultiPage.Value MultiPage.Label1 = Range("C19").Value End Sub
[/vba] Но VBA ругается Object doesn't support this property or method
Что неправильно делаю?
Доброго времени суток. На Лист1 в Excel вставлена MultiPage на первой странице есть лейбл в который нужно вставить значения из ячейки С19 в Лист1. Пытаюсь сделать так
[vba]
Код
Private Sub MultiPage_Change() Worksheets("Proqram").Cells(17, 2) = MultiPage.Value MultiPage.Label1 = Range("C19").Value End Sub
[/vba] Но VBA ругается Object doesn't support this property or method
Надо запоминать value С10 в переменную и сравнивать её с текущим value C10 При несовпадении менять на текущее Определитесь с событиями для изменения
Надо запоминать value С10 в переменную и сравнивать её с текущим value C10 При несовпадении менять на текущее Определитесь с событиями для измененияSerge_007
К сожалению файл весит больше чем можно по условиям форума. Вот ссылка Тетрадь. В текстбокс Sifarish ввожу номер , дальше по формуле ВПР отображаю его в таблице ниже . Например 17375 , отобразится Gilan. Мне необходимо, чтобы Gilan отобразился и лейбле ( в данный момент он пуст) .
К сожалению файл весит больше чем можно по условиям форума. Вот ссылка Тетрадь. В текстбокс Sifarish ввожу номер , дальше по формуле ВПР отображаю его в таблице ниже . Например 17375 , отобразится Gilan. Мне необходимо, чтобы Gilan отобразился и лейбле ( в данный момент он пуст) .Stormy
Изначально файл весил 4 мб, после уменьшения стал 1. Если удалить формы, которые и утяжелили его, то наглядность примера пропадет. Поэтому и воспользовался хость слил.ру. Буду признателен за совет, как еще можно уменьшить файл, оставив формы.
Изначально файл весил 4 мб, после уменьшения стал 1. Если удалить формы, которые и утяжелили его, то наглядность примера пропадет. Поэтому и воспользовался хость слил.ру. Буду признателен за совет, как еще можно уменьшить файл, оставив формы.Stormy
Работает, спасибо большое. Только вот как повесить изменение лейбла на событие в ячейки или переход с текстбокса? Перепрыгивание с листа на лист в мультипейдж не совсем верно (( Заметил одну странность в текстбоксе. Для ввода цифр или редактирования необходим дабл-клик по полю. Это можно исправить в свойствах ?
Работает, спасибо большое. Только вот как повесить изменение лейбла на событие в ячейки или переход с текстбокса? Перепрыгивание с листа на лист в мультипейдж не совсем верно (( Заметил одну странность в текстбоксе. Для ввода цифр или редактирования необходим дабл-клик по полю. Это можно исправить в свойствах ?Stormy
Место для рекламы.
Сообщение отредактировал Stormy - Суббота, 01.02.2014, 17:07
Не нашел, как напрямую связать лейбл и текстбокс. Но у Вас Текстбокс7 связан с яч. F17, и можно попробовать так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address(0, 0) <> "F17" Then Exit Sub With Range("G19") Me.Multipage.Pages(0).label1.Caption = IIf(IsError(.Value), "no data", .Value) End With End Sub
[/vba]
Не нашел, как напрямую связать лейбл и текстбокс. Но у Вас Текстбокс7 связан с яч. F17, и можно попробовать так: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address(0, 0) <> "F17" Then Exit Sub With Range("G19") Me.Multipage.Pages(0).label1.Caption = IIf(IsError(.Value), "no data", .Value) End With End Sub
Нет, как раз таки по другому. Первый клик, очистил текстбокс, цифры добавлять не желает. Второй клик добавляю цифры. Пытаюсь прикрепить всплывающий календарь, но пока одна морока. Может у кого завалялся пример простого решения с датой для текстбокса?
Нет, как раз таки по другому. Первый клик, очистил текстбокс, цифры добавлять не желает. Второй клик добавляю цифры. Пытаюсь прикрепить всплывающий календарь, но пока одна морока. Может у кого завалялся пример простого решения с датой для текстбокса?Stormy