Данные из одной формы в другую

[Thez]

Здравствуйте,

Ситуация следующая:
На Форме1 есть КомбоБокс1 и Кнопка1. По нажатию на Кнопку1 запускается код:

Private Sub CommandButton1_Click()
For i = 0 To ComboBox1.ListCount - 1
    If (ComboBox1.ListIndex = i) Then
    UserForm2.Show
    UserForm2.Label1.Caption = UserForm1.ComboBox1.List(i)
    UserForm2.TextBox1.Value = s(i)    's(i) - глобальная переменная типа String в модуле Формы1
    End If
Next i
End Sub

Открывается Форма2;
ТекстБокс1 из Формы2 получает значение хранящееся в s(i);
Далее мы редактируем ТестБокс1;
Как сделать так чтобы по нажатию Кнопки1 из Формы2, значение s(i) менялось на значение ТекстБокса1?

[Казанский]

Наверно написать обработчик нажатия Кнопки1 из Формы2? (Ваш К.О.)
А зачем в этом коде цикл, вроде можно

Private Sub CommandButton1_Click()
  If ComboBox1.ListIndex >= 0 Then
    UserForm2.Show
    UserForm2.Label1.Caption = UserForm1.ComboBox1.Value
    UserForm2.TextBox1.Value = s(ComboBox1.ListIndex)    's(i) - глобальная переменная типа String в модуле Формы1
  End If
End Sub

[Thez]

Смысл в том, что s(ComboBox1.ListIndex) должен перезаписаться на значение из ТекстБокса1 Формы2. А из модуля Формы2 нельзя присвоить значение переменной из Формы1 (ну или я просто не знаю как это сделать).

А про то что цикл можно заменить этим не знал, спасибо

[pashulka]

Thez, Модуль формы не поддерживает глобальных переменных

Однако, если под этим термином подразумевается переменная, об'явленная на уровне модуля, то можно просто об'явить её в любом стандартном модуле, т.е.

Public S() As String 'Или Global S() As String

[Казанский]

Сообщение от pashulka

Модуль формы не поддерживает глобальных переменных

Не совсем так. Глобальную переменную объявить можно, но это не должен быть массив (и еще кое-какие типы, попробуйте и увидите). Простой Variant - можно, а Variant может содержать массив
Пример

'код UserForm1, на которой есть CommandButton1

Option Explicit

Public s

Private Sub CommandButton1_Click()
  UserForm2.Show
End Sub

Private Sub UserForm_Initialize()
  s = Split("мама мыла раму") 'Variant/String(0 to 2)
End Sub

'код UserForm2, на которой есть ListBox1

Option Explicit

Private Sub UserForm_Initialize()
  ListBox1.List = UserForm1.s
End Sub

[pashulka]

Зачем скрещивать мои слова с Вашим видением терминов ?

Глобальная переменная, в самом прямом смысле этого слова, это Global S As String

[Казанский]

А зачем Вы вообще заговорили о глобальных переменных? Вопрос был - как из модуля одной формы обратиться к массиву в модуле другой формы. Вы заявили, что это невозможно, а я показал, как это сделать.

[pashulka]

Затем, что глобальных (Global) переменных в модуле формы быть не может

Это Вы восприняли мои слова как отрицание такой возможности, а я просто предложил ещё один вариант, хотя и предполагающий наличие стандартного модуля, но зато не требующий изменения типа переменной.