| Вопрос: Помогите переделать макрос Эксэля | Добавлено: 11.02.11 13:12 |
Автор вопроса:  KorvinDeSon
|
|
Есть код
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1 Option Explicit Dim J1, J1K, J2, J2K, s1, nl Sub ФормированиеЗаявлений() J1 = 1 J1K = 20 s1 = "**" Do While J1 < J1K J1 = J1 + 1 J2 = 7 J2K = 300 Open "C:\RAB\" & Cells(4, J1) & ".DOC" For Output As #1 Print #1, "<HTML>" Print #1, "<meta http-equiv=Content-Type content=""text/html; charset=windows-1251"">" Print #1, "<style type='text/css'>" Print #1, "p{font-family:arial;font-size:14pt;}" Print #1, "h2{font-family:arial;font-size:14pt;}" Print #1, "</style>" Print #1, "<body>" nl = 0 Do While J2 < J2K J2 = J2 + 1 'Debug.Print J1, Excel.ActiveSheet.Cells(J2, J1).Value; If Cells(J2, J1).Value > 0 Then If Cells(J2, 1).Value Like "Профорг*" Then s1 = Cells(J2, 1).Value Else Debug.Print s1, Cells(4, J1), Cells(J2, 1), Cells(J2, J1) nl = nl + 1 If nl > 1 Then Print #1, "<br>"; Chr(12); "-" End If Print #1, "<P ALIGN=RIGHT>"; "В Ростовский областной профессиональный союз" Print #1, "<br>"; "работников сферы услуг ""Рособлсервиспроф""" Print #1, "<br>"; "От "; Cells(J2, 1); "," Print #1, "<br>"; "Работника """; s1; "" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>"; "<H2 align=center>"; "Заявление"; "</h2>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>"; Cells(4, J1) Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>" Print #1, "<br>"; "10.01.11"; "<P align=right>"; "(______)______________" 'Print #1, "</html>" End If End If Loop Close #1 Loop End Sub Он анализирует таблицу эксэля вида _________Тип начисления1______2___3___ Профорг1 Фио1 Профорг2 Фио2 Фио3 Если пересечение, тип начисления фио не пустое (то есть цифры) формирует заявления. Суть в том что заявления тут формируются по типу начислений, что было удобно, но возникла новая потребность. Нужно чтобы заявления формировались по профоргам. То есть не как сейчас, создался файлик Тип начисления 1 и там все люди, у которых это начисление. А чтобы создавались файлы Профорг 1 и там люди со всеми видами начислений у этого профорга. Пробовал сам, ничего дельного не вышло, подскажите пожалуйста хоть с какой стороны подступиться |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  KorvinDeSon Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 11.02.11 13:21 |
| О, чтот тут кнопки изменить не видно. Ещё такая штука. Как думаете может проще сделать програмку, которая готовые уже док файлы пересортирует. Типа поиск профорг 1, если найден, перенести лист с ним в Файл профорг 1 и так по всем файлам в папке. Беда в том что я почти совсем чайник и это у мя и такое не вышло( | ||
|
Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 12.02.11 02:24 |
|
На этот Ваш вопрос я уже ответил здесь:
http://www.cyberforum.ru/vba/thread241222.html Все сделано. Проверяйте, так ли Вы хотели видеть? О, чтот тут кнопки изменить не видно.
Тут её не было никогда по определению 
|
||
Страница: 1 |