Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Значение из Ячейки в Label - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Значение из Ячейки в Label (Макросы Sub)
Значение из Ячейки в Label
Stormy Дата: Суббота, 01.02.2014, 13:38 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Доброго времени суток.
На Лист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

Что неправильно делаю?

Место для рекламы.

Сообщение отредактировал Stormy - Суббота, 01.02.2014, 13:39
 
Ответить
СообщениеДоброго времени суток.
На Лист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

Что неправильно делаю?
Автор - Stormy
Дата добавления - 01.02.2014 в 13:38
Serge_007 Дата: Суббота, 01.02.2014, 13:47 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Лейбл находится на форме
При инициализации формы с мультипейджем:
[vba]
Код
Private Sub UserForm_Initialize()
      Me.Label1 = Worksheets("Лист1").Range("C19").Value
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЛейбл находится на форме
При инициализации формы с мультипейджем:
[vba]
Код
Private Sub UserForm_Initialize()
      Me.Label1 = Worksheets("Лист1").Range("C19").Value
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 01.02.2014 в 13:47
Stormy Дата: Суббота, 01.02.2014, 13:53 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Цитата Serge_007, 01.02.2014 в 13:47, в сообщении № 2
При инициализации формы с мультипейджем

Благодарю за ответ. Теперь возник вопрос иначе. А как заставить лейбл менять после того как было произведена смена значения в С10?

Место для рекламы.
 
Ответить
Сообщение
Цитата Serge_007, 01.02.2014 в 13:47, в сообщении № 2
При инициализации формы с мультипейджем

Благодарю за ответ. Теперь возник вопрос иначе. А как заставить лейбл менять после того как было произведена смена значения в С10?
Автор - Stormy
Дата добавления - 01.02.2014 в 13:53
Serge_007 Дата: Суббота, 01.02.2014, 13:59 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Надо запоминать value С10 в переменную и сравнивать её с текущим value C10
При несовпадении менять на текущее
Определитесь с событиями для изменения

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНадо запоминать value С10 в переменную и сравнивать её с текущим value C10
При несовпадении менять на текущее
Определитесь с событиями для изменения
Автор - Serge_007
Дата добавления - 01.02.2014 в 13:59
Stormy Дата: Суббота, 01.02.2014, 14:58 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
К сожалению файл весит больше чем можно по условиям форума.
Вот ссылка Тетрадь.
В текстбокс Sifarish ввожу номер , дальше по формуле ВПР отображаю его в таблице ниже . Например 17375 , отобразится Gilan. Мне необходимо, чтобы Gilan отобразился и лейбле ( в данный момент он пуст) .

Место для рекламы.
 
Ответить
СообщениеК сожалению файл весит больше чем можно по условиям форума.
Вот ссылка Тетрадь.
В текстбокс Sifarish ввожу номер , дальше по формуле ВПР отображаю его в таблице ниже . Например 17375 , отобразится Gilan. Мне необходимо, чтобы Gilan отобразился и лейбле ( в данный момент он пуст) .
Автор - Stormy
Дата добавления - 01.02.2014 в 14:58
Serge_007 Дата: Суббота, 01.02.2014, 15:06 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата Stormy, 01.02.2014 в 14:58, в сообщении № 5
файл весит больше чем можно по условиям форума
Значит уменьшите его

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата Stormy, 01.02.2014 в 14:58, в сообщении № 5
файл весит больше чем можно по условиям форума
Значит уменьшите его
Автор - Serge_007
Дата добавления - 01.02.2014 в 15:06
Stormy Дата: Суббота, 01.02.2014, 15:13 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Изначально файл весил 4 мб, после уменьшения стал 1. Если удалить формы, которые и утяжелили его, то наглядность примера пропадет. Поэтому и воспользовался хость слил.ру. Буду признателен за совет, как еще можно уменьшить файл, оставив формы.

Место для рекламы.
 
Ответить
СообщениеИзначально файл весил 4 мб, после уменьшения стал 1. Если удалить формы, которые и утяжелили его, то наглядность примера пропадет. Поэтому и воспользовался хость слил.ру. Буду признателен за совет, как еще можно уменьшить файл, оставив формы.
Автор - Stormy
Дата добавления - 01.02.2014 в 15:13
nilem Дата: Суббота, 01.02.2014, 16:45 | Сообщение № 8
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
вот так попробуйте (в модуле листа)
[vba]
Код
Private Sub Multipage_Change()
'MsgBox Me.Multipage.Value' means #page
Me.Multipage.Pages(0).label1.Caption = Range("C19").Value
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениевот так попробуйте (в модуле листа)
[vba]
Код
Private Sub Multipage_Change()
'MsgBox Me.Multipage.Value' means #page
Me.Multipage.Pages(0).label1.Caption = Range("C19").Value
End Sub
[/vba]
Автор - nilem
Дата добавления - 01.02.2014 в 16:45
nilem Дата: Суббота, 01.02.2014, 16:48 | Сообщение № 9
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
... а вот файл
К сообщению приложен файл: Yeni.zip (35.9 Kb)

Яндекс.Деньги 4100159601573
 
Ответить
Сообщение... а вот файл
Автор - nilem
Дата добавления - 01.02.2014 в 16:48
Stormy Дата: Суббота, 01.02.2014, 16:59 | Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Цитата nilem, 01.02.2014 в 16:45, в сообщении № 8
Me.Multipage.Pages(0).label1.Caption = Range("C19").Value

Работает, спасибо большое.
Только вот как повесить изменение лейбла на событие в ячейки или переход с текстбокса? Перепрыгивание с листа на лист в мультипейдж не совсем верно ((
Заметил одну странность в текстбоксе. Для ввода цифр или редактирования необходим дабл-клик по полю. Это можно исправить в свойствах ?

Место для рекламы.

Сообщение отредактировал Stormy - Суббота, 01.02.2014, 17:07
 
Ответить
Сообщение
Цитата nilem, 01.02.2014 в 16:45, в сообщении № 8
Me.Multipage.Pages(0).label1.Caption = Range("C19").Value

Работает, спасибо большое.
Только вот как повесить изменение лейбла на событие в ячейки или переход с текстбокса? Перепрыгивание с листа на лист в мультипейдж не совсем верно ((
Заметил одну странность в текстбоксе. Для ввода цифр или редактирования необходим дабл-клик по полю. Это можно исправить в свойствах ?
Автор - Stormy
Дата добавления - 01.02.2014 в 16:59
nilem Дата: Суббота, 01.02.2014, 17:14 | Сообщение № 11
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Не нашел, как напрямую связать лейбл и текстбокс.
Но у Вас Текстбокс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]

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеНе нашел, как напрямую связать лейбл и текстбокс.
Но у Вас Текстбокс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]
Автор - nilem
Дата добавления - 01.02.2014 в 17:14
Stormy Дата: Суббота, 01.02.2014, 17:20 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Отлично. Самое оно. Теперь с текстбоксом разобраться, почему в него с одного клика не введешь.

Место для рекламы.
 
Ответить
СообщениеОтлично. Самое оно. Теперь с текстбоксом разобраться, почему в него с одного клика не введешь.
Автор - Stormy
Дата добавления - 01.02.2014 в 17:20
wild_pig Дата: Суббота, 01.02.2014, 20:17 | Сообщение № 13
Группа: Проверенные
Ранг: Обитатель
Сообщений: 517
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Редактируется и с одного клика, просто курсор пропадает )
 
Ответить
СообщениеРедактируется и с одного клика, просто курсор пропадает )
Автор - wild_pig
Дата добавления - 01.02.2014 в 20:17
Stormy Дата: Понедельник, 03.02.2014, 13:31 | Сообщение № 14
Группа: Проверенные
Ранг: Обитатель
Сообщений: 357
Репутация: 12 ±
Замечаний: 0% ±

Excel 2010
Нет, как раз таки по другому. Первый клик, очистил текстбокс, цифры добавлять не желает. Второй клик добавляю цифры. Пытаюсь прикрепить всплывающий календарь, но пока одна морока.
Может у кого завалялся пример простого решения с датой для текстбокса?

Место для рекламы.
 
Ответить
СообщениеНет, как раз таки по другому. Первый клик, очистил текстбокс, цифры добавлять не желает. Второй клик добавляю цифры. Пытаюсь прикрепить всплывающий календарь, но пока одна морока.
Может у кого завалялся пример простого решения с датой для текстбокса?
Автор - Stormy
Дата добавления - 03.02.2014 в 13:31
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Значение из Ячейки в Label (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!