Вставить данные из ячейки одной книги в textbox формы другой книги - Microsoft Office Excel - Страница 2

ac1-caesar · 31.03.2016, 15:21

Не могу понять почему ошибка.

IgorGO · 31.03.2016, 16:16

аналогично.
понять не могу, могу только догадываться

ac1-caesar · 31.03.2016, 16:29

Я по поводу конкретной ошибки - "object doesn't support this property or method".
К сожалению никак не представляется возможным вложить файлы, так как размеры большие и очень много связей внутри.

ac1-caesar · 31.03.2016, 16:50

Вложил для примера две книги.

IgorGO · 31.03.2016, 17:37

в файле с формой Sub UserformOpen переписана так:

Код:

Sub UserformOpen(txt As String)
  UserForm1.TextBox1 = txt
  UserForm1.Show
End Sub

в файле с листбоксом Sub test() переписана так

Код:

Sub test()
  Dim Wb As Workbook
  Set Wb = Workbooks.Open(ThisWorkbook.Path & "\Книга с формой.xlsm")
  Application.Run "'Книга с формой.xlsm'!Module1.UserformOpen", MyListBox.Value
End Sub

(оба файла положите в одну (любую) папку)

ac1-caesar · 01.04.2016, 10:35

IgorGO, спасибо! Ваши ответы и советы всегда очень эффективны.
У меня дополнительный вопрос, можно ли теперь вернуться к listbox, выбрать другое значение и вставить в textbox уже открытой формы? Свойство формы ShowModal установлено в false.

IgorGO · 01.04.2016, 11:03

в файле с формой добавьте

Код:

Sub SetTextBox(txt As String)
  UserForm1.TextBox1 = txt
End Sub

в ListBox перехватите событие Change
в процедуре обработки события внесите в TextBox новое значение ListBox

Код:

Application.Run "'Книга с формой.xlsm'!Module1.SetTextBox", MyListBox.Value

ac1-caesar · 01.04.2016, 12:25

IgorGO, спасибо. То что надо!

ac1-caesar · 06.04.2016, 15:06

IgorGO, я извиняюсь за настойчивость. У меня еще попутный вопрос, как из Listbox (выбрано несколько значений) этой книги вставить в Listbox на форме другой книги?

Пробую в примере ...

ac1-caesar · 07.04.2016, 12:18

Может кто поможет?

31.03.2016, 16:16	#12
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	аналогично. понять не могу, могу только догадываться Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

31.03.2016, 17:37	#15
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	в файле с формой Sub UserformOpen переписана так: Код: `Sub UserformOpen(txt As String) UserForm1.TextBox1 = txt UserForm1.Show End Sub` в файле с листбоксом Sub test() переписана так Код: `Sub test() Dim Wb As Workbook Set Wb = Workbooks.Open(ThisWorkbook.Path & "\Книга с формой.xlsm") Application.Run "'Книга с формой.xlsm'!Module1.UserformOpen", MyListBox.Value End Sub` (оба файла положите в одну (любую) папку) Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

01.04.2016, 11:03	#17
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	в файле с формой добавьте Код: `Sub SetTextBox(txt As String) UserForm1.TextBox1 = txt End Sub` в ListBox перехватите событие Change в процедуре обработки события внесите в TextBox новое значение ListBox Код: `Application.Run "'Книга с формой.xlsm'!Module1.SetTextBox", MyListBox.Value` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как мне изменять данные в одной книги а они отображаются в другой	rewer22	Microsoft Office Excel	1	10.08.2014 23:59
копировать ячейки из другой книги	Magnetic Air	Microsoft Office Excel	5	17.02.2011 01:16
Скопировать данные из некоторых ячеек одной книги в другие книги	fcunited	Microsoft Office Excel	8	09.06.2010 12:14
Как связать поле одной книги с другой	siriusdesign	Microsoft Office Excel	1	30.03.2010 17:20
как из одного одной книги экспортировать данные на другой лист	mabru	Microsoft Office Excel	11	07.01.2009 10:20

31.03.2016, 15:21	#11
ac1-caesar Форумчанин Регистрация: 26.07.2013 Сообщений: 134	Не могу понять почему ошибка.

31.03.2016, 16:29	#13
ac1-caesar Форумчанин Регистрация: 26.07.2013 Сообщений: 134	Я по поводу конкретной ошибки - "object doesn't support this property or method". К сожалению никак не представляется возможным вложить файлы, так как размеры большие и очень много связей внутри.

01.04.2016, 10:35	#16
ac1-caesar Форумчанин Регистрация: 26.07.2013 Сообщений: 134	IgorGO, спасибо! Ваши ответы и советы всегда очень эффективны. У меня дополнительный вопрос, можно ли теперь вернуться к listbox, выбрать другое значение и вставить в textbox уже открытой формы? Свойство формы ShowModal установлено в false.

01.04.2016, 12:25	#18
ac1-caesar Форумчанин Регистрация: 26.07.2013 Сообщений: 134	IgorGO, спасибо. То что надо!

07.04.2016, 12:18	#20
ac1-caesar Форумчанин Регистрация: 26.07.2013 Сообщений: 134	Может кто поможет?