Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Автозаполнения форм внутри книги, с последующей выгрузкой
 
#1
03.09.2015 17:18:02
Доброго времени суток, уважаемые знатоки Excel и кодинга VB. Ситуация следующая:

Существует журнал регистрации, внутри которого находятся формы(журнал регистрации 1 лист, остальные листы - формы).
Необходимо чтобы значения активной ячейки и соответствующего столбца копировались в формы, и, в идеале, хотелось бы чтобы эти формы автоматически сохранялись в определенной папке. "Теги" в формах расставлены в рандомном порядке( [1],[2],[3],[4]. Для меня сейчас самое главное это алгоритм(кое-какое понимание конечно есть) и по-максимуму вникнуть в синтаксис.

Алгоритм практически идентичен плагину Filldocuments.
Надеюсь объяснил понятно. Файл прикрепляю во вложение.
Спасибо заранее, надеюсь на вашу помощь!
 
 
 
#2
03.09.2015 18:26:27
к сожалению, ничего не понял...
"значения активной ячейки и соответствующего столбца копировались в формы"
вот я выбрал ячейку B2, она стала активной. В ней - "Куприянова Л.А.", и столбец соответствующий выходит что второй
Куда должна скопироваться Куприянова, в какую форму и по какому принципу? а со столбцом вообще в растерянности...
Покажите на примере, что Вы хотите получить. Выбрали вот эту ячейку, получили вот в этой форме вот это.
 
 
 
#3
04.09.2015 07:49:16
В качестве примера можно использовать плагин Filldocuments. Если на словах:

1) Мы встаем на ячейку в столбце "№" - так мы определим строку из которой будут браться данные.
2) В формах расставлены  "тэги" в квадратных скобках - [ ], по этим тэгам мы определим столбец с данными

Строка(активная ячейка в столбце "№") + столбец(по тэгу) = значение ячейки, которое необходимо подставить в соответствующую форму(опять же по "тэгу").
 
 
 
#4
04.09.2015 09:57:30
Код
Sub test()
rw = ActiveCell.Row
ar = Application.Transpose(Application.Transpose(Range(Cells(rw, 1), Cells(rw, 154))))
For Each x In ThisWorkbook.Worksheets
If Left(x.Name, 5) = "Форма" Then
    For i = 1 To 9
        For j = 1 To 39
            If x.Cells(j, i).Value <> "" Then
            x.Cells(j, i).Value = ar(Mid(x.Cells(j, i).Value, 2, Len(x.Cells(j, i).Value) - 2))
            End If
        Next
    Next
End If
Next x
End Sub

а сохранение форм в отдельные файлы - посмотрите, недавно была вроде тема сохранения листа в отдельный файл
Изменено: yoozhik - 04.09.2015 10:03:04
 
 
 
#5
04.09.2015 10:40:59
Цитата
CrazyKingKong написал: плагин Filldocuments
просто любопытно - я один такой тёмный и не знаю, что это такое? :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#6
04.09.2015 11:07:56
ikki, Вы что?! Это же продукт от гуру экселя с аватарой по мотивам звёздных войн. :)

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#7
04.09.2015 11:15:19
FillDocuments - надстройка, которая предназначена для формирования (подготовки) документов по шаблонам, с заполнением созданных файлов данными из текущей книги Excel, с возможностью отправки писем. В качестве шаблонов могут выступать следующие типы файлов: ......
Статус Условно-бесплатная, Разработчик ExcelVBA.ru .

Цитата
ikki написал: просто любопытно - я один такой тёмный и не знаю, что это такое?
Вам знать про такой продукт необязательно, Ваших знаний в этой области хватит, чтобы написать собственный код для любого шаблона.  :)
Изменено: TSN - 04.09.2015 12:04:06
 
 
 
Страницы: 1
Наверх