Помогите с текстбоксами

[SIV84]

У меня вопрос. В VBA форме создано 450 текстбоксов. Код работы постоянно повторяется с определенной последовательностью. Возможен ли вариант написание какого-то макроса чтоб не повтараять код n-ое количество раз?

[EducatedFool]

Если Ваши текстбоксы формируются программно (надеюсь, что Вы не вручную рисовали 450 текстбоксов), то можно попробовать сразу же программно записывать для них обработчики событий.
Пример можно посмотреть в этом сообщении.

Возможен ли вариант написание какого-то макроса чтоб не повтараять код n-ое количество раз?

В большинстве случаев это возможно. Но надо хотя бы знать, что Вы хотите получить от этих текстбоксов...

Опишите свою задачу подробнее.

[SIV84]

Вы знаете, чем больше я посещаю форумы по вба, тем больле расстраиваюсь глубиной своих знаний в этой теме. Может это и смешно, но явсе 450 рисовал вручную. Я для своей фирмы пишу программу по бухучету. Переделываю программу, чтобы она максимально напоминала 1-С. На формк я создал 40 строк по 9 текстбоксов в каждом. Стандартный набот: № п/п, код товара, характеристика, едю издерения, кол-во, цена и сумма. Заполнение идет по коду товара, с определенными условиями и лошикой заполнения. Алгоритм заполнения стандартный. 10 строк я набил. Потратил на это пол дня. Отсюда и задался вопросом об автоматизации такого процесса.

[SIV84]

Вы знаете, чем больше я посещаю форумы по вба, тем больле расстраиваюсь глубиной своих знаний в этой теме. Может это и смешно, но явсе 450 рисовал вручную. Я для своей фирмы пишу программу по бухучету. Переделываю программу, чтобы она максимально напоминала 1-С. На формк я создал 40 строк по 9 текстбоксов в каждом. Стандартный набот: № п/п, код товара, характеристика, едю издерения, кол-во, цена и сумма. Заполнение идет по коду товара, с определенными условиями и лошикой заполнения. Алгоритм заполнения стандартный. 10 строк я набил. Потратил на это пол дня. Отсюда и задался вопросом об автоматизации такого процесса.

[EducatedFool]

На форме я создал 40 строк по 9 текстбоксов в каждом

Я бы такого не смог. Честно
Специально сейчас попробовал засунуть на форму текстбоксы по 40 штук в столбце. Не получилось
Вроде и монитор 19", и форма получилась на весь экран, а влезло всего лишь 36...

Ну, можно, конечно, их ещё уменьшить, и они влезут, но как читать-то потом, что в них написано?

Так что, создав форму с 360-ю текстбоксами, Вы сделали невозможное

Скриншот формы в студию, если можно


А автоматизировать всё это, конечно, можно.
Но нужно смотреть Ваш код. Иначе посоветовать что-либо дельное весьма сложно.

[SIV84]

Куда я могу сбросить код программы?

[EducatedFool]

Прикрепите к сообщению Ваш файл.

Просто "сбросить код" будет недостаточно - воссоздать форму мне не по силам.

В расширенном режиме (кнопка под полем для ввода сообщения) к сообщению можно прикрепить файл.

Код вставляется прямо в сообщение, оформляется тегом [CОDE] код [/CОDE] (значок # над полем сообщения)

[tolikman]

вот здесь очень много полезной информации.
см.вложение : создаешь модуль - insert - class module
называешь как нравиться например MyTextBox
в нем пишеш:

public withEvents tb as MSForms.TextBox
private sub tb_Change()
   'пишеш то что должны делать все твои текстбоксы
end sub

создаешь обычный модуль и назови его например vars
в нем пишеш:

public arrOfTextBox() as New MyTextBox

в нужной форме (в которой надо со всеми текст боксами замутить) пишеш в какой-нибудь процедуре(лучше в UserForm_Initialize():

ReDim vars.arrOfTextBox(0)
for each i in controls
  if TypeName(i) = "TextBox" then
    ReDim Preserve vars.arrOfTextBox(Ubound(arrOfTextBox,1)+1)
    set vars.arrOfTextBox(Ubound(vars.arrOfTextBox,1)).tb = i
  end if
next i

и всем текстбоксам в товей форме будут присвоены одинаковые события
Стоит заметить, что если у тебя на форме есть Frame, MultiPage и т.д., то последний код стоит заменить на:

ReDim vars.arrOfTextBox(0)
for each i in controls
  if TypeName(i) = "TextBox" then
    ReDim Preserve vars.arrOfTextBox(Ubound(arrOfTextBox,1)+1)
    set vars.arrOfTextBox(Ubound(vars.arrOfTextBox,1)).tb = i
  elseif TypeName(i) = "Frame" or TypeName(i) = "MultiPage" then
    for each a in i.controls
      if TypeName(a) = "TextBox" then
        ReDim Preserve vars.arrOfTextBox(Ubound(arrOfTextBox,1)+1)
        set vars.arrOfTextBox(Ubound(vars.arrOfTextBox,1)).tb = i
      end if
    next a
  end if
next i

[SIV84]

Я бадаюсь на 27формой. Нашел вариант решения с помощью модуля класса. Но что с ним делать я не знаю. Может вы что-то подскажете.

[SIV84]

По идее в приложении прога