Я имела в виду расположение ячейки AL12 на самом дипломе,
Ну так тоже ж есть: [vba]
Код
adr = "al12" 'Cells(c.Row, "t") ' Адрес ячейки изменения
[/vba] Или будет меняться только для одного документа? Если только для одного тогда проще всего сделать то что мы уже проходили: Либо отдельный столбец с адресами ячеек(как в 15-м посте), Либо на всех листах проставьте эту цифру в одном и том же адресе(далека за пределами страницы) а в нужных ячейках пропишите формулу
Код
= al11
как в 17-м посте.
Либо прописывать эти условия прямо в макросе, что для Вас, пока, сложно.
Я имела в виду расположение ячейки AL12 на самом дипломе,
Ну так тоже ж есть: [vba]
Код
adr = "al12" 'Cells(c.Row, "t") ' Адрес ячейки изменения
[/vba] Или будет меняться только для одного документа? Если только для одного тогда проще всего сделать то что мы уже проходили: Либо отдельный столбец с адресами ячеек(как в 15-м посте), Либо на всех листах проставьте эту цифру в одном и том же адресе(далека за пределами страницы) а в нужных ячейках пропишите формулу
Код
= al11
как в 17-м посте.
Либо прописывать эти условия прямо в макросе, что для Вас, пока, сложно.SLAVICK
SLAVICK, Здравствуйте! В прошлый раз вы мне очень помогли! Спасибо!!! Возникла необходимость внести кое-какие изменения, после которых макрос перестал работать Помогите, пожалуйста И еще вопросик: возможно ли создать "плавающую" кнопку (при прокрутке страницы остается в поле зрения) с функцией одновременного открывания нескольких файлов пдф (выбрав несколько ячеек с столбце "сохранить документ" и последующим нажатием этой кнопки)???
Таблица во вложении
Заранее спасибо
SLAVICK, Здравствуйте! В прошлый раз вы мне очень помогли! Спасибо!!! Возникла необходимость внести кое-какие изменения, после которых макрос перестал работать Помогите, пожалуйста И еще вопросик: возможно ли создать "плавающую" кнопку (при прокрутке страницы остается в поле зрения) с функцией одновременного открывания нескольких файлов пдф (выбрав несколько ячеек с столбце "сохранить документ" и последующим нажатием этой кнопки)???
SLAVICK, я посмотрела. В БП реально был косяк, я не заметила, сейчас исправила. Еще момент... документ БП должен формироваться в случае, если в этой строке заполнен столбец "I" с педагогом. А по поводу плавающей кнопки вы здорово придумали, она теперь всегда будет на виду. Мне нужны оба варианта открытия ПДФ, потому что иногда проще двойным щелчком открыть один файл, а когда их 20 проще будет с этой кнопкой спасибо
SLAVICK, я посмотрела. В БП реально был косяк, я не заметила, сейчас исправила. Еще момент... документ БП должен формироваться в случае, если в этой строке заполнен столбец "I" с педагогом. А по поводу плавающей кнопки вы здорово придумали, она теперь всегда будет на виду. Мне нужны оба варианта открытия ПДФ, потому что иногда проще двойным щелчком открыть один файл, а когда их 20 проще будет с этой кнопкой спасибо Katerinka_2016
Sub d() Dim shN$, i&, n$, c As Range, adr$ Application.ScreenUpdating = False For Each c In Selection.Rows ' ЕСЛИ НЕ пустая ячейка в столбце i If Len(Cells(c.Row, "i")) > 0 Then shN = Cells(c.Row, "p") ' имя листа i = Cells(c.Row, "a") ' Номер документа adr = "al12" 'Cells(c.Row, "t") ' Адрес ячейки изменения n = ActiveWorkbook.Path & "\" & i & "_" & shN & ".pdf" ' имя документа With Sheets(shN) .Range(adr) = i .Calculate .ExportAsFixedFormat Type:=xlTypePDF, Filename:=n, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=1 End With If Len(Cells(c.Row, "j")) Then ' блок проверки преподавателя With Sheets("БП") n = ActiveWorkbook.Path & "\" & i & "_" & "БП" & ".pdf" ' имя документа .Range("y15") = i .Calculate .ExportAsFixedFormat Type:=xlTypePDF, Filename:=n, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=1 End With End If End If Next Application.ScreenUpdating = True End Sub
[/vba]
так?: [vba]
Код
Sub d() Dim shN$, i&, n$, c As Range, adr$ Application.ScreenUpdating = False For Each c In Selection.Rows ' ЕСЛИ НЕ пустая ячейка в столбце i If Len(Cells(c.Row, "i")) > 0 Then shN = Cells(c.Row, "p") ' имя листа i = Cells(c.Row, "a") ' Номер документа adr = "al12" 'Cells(c.Row, "t") ' Адрес ячейки изменения n = ActiveWorkbook.Path & "\" & i & "_" & shN & ".pdf" ' имя документа With Sheets(shN) .Range(adr) = i .Calculate .ExportAsFixedFormat Type:=xlTypePDF, Filename:=n, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=1 End With If Len(Cells(c.Row, "j")) Then ' блок проверки преподавателя With Sheets("БП") n = ActiveWorkbook.Path & "\" & i & "_" & "БП" & ".pdf" ' имя документа .Range("y15") = i .Calculate .ExportAsFixedFormat Type:=xlTypePDF, Filename:=n, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=1 End With End If End If Next Application.ScreenUpdating = True End Sub
SLAVICK, при выделении трех ячеек сохранить документ и нажатии кнопки "сохранить документЫ" почему то формирует только 2 документа из первой строки, а должно получиться 2 документа из первой строки и два документа из 2ой и 3ей строчки, итого 4 шт
SLAVICK, при выделении трех ячеек сохранить документ и нажатии кнопки "сохранить документЫ" почему то формирует только 2 документа из первой строки, а должно получиться 2 документа из первой строки и два документа из 2ой и 3ей строчки, итого 4 штKaterinka_2016
Сообщение отредактировал Katerinka_2016 - Вторник, 31.05.2016, 10:53
должен формироваться в случае, если в этой строке заполнен столбец "I" с педагогом
Применил для всех документов, а для БП- в коде уже была проверка, просто Вы файл поменяли. Код же я писал давно - уже все забыл. Смотрите. ЗЫ и не забудьте про правильные названия листов - последняя колонка.
должен формироваться в случае, если в этой строке заполнен столбец "I" с педагогом
Применил для всех документов, а для БП- в коде уже была проверка, просто Вы файл поменяли. Код же я писал давно - уже все забыл. Смотрите. ЗЫ и не забудьте про правильные названия листов - последняя колонка.SLAVICK
SLAVICK, еще вопросик про ПДФ... можно ли настроить Акробат, чтобы открывался пдфный файл с масштабом не по ширине страницы, а по высоте?
SLAVICK, еще вопросик про ПДФ... можно ли настроить Акробат, чтобы открывался пдфный файл с масштабом не по ширине страницы, а по высоте?Katerinka_2016
[offtop]Вопрос не по теме. Не знаю, я акробатом не пользуюсь. использую бесплатную программу - она намного шустрее, и мне нравится больше.[/offtop]
[offtop]Вопрос не по теме. Не знаю, я акробатом не пользуюсь. использую бесплатную программу - она намного шустрее, и мне нравится больше.[/offtop]SLAVICK
SLAVICK, еще вопросик не по теме :girl_curtsey: как настроить Суматру, чтобы открывал несколько ПДФных файлов по порядку (файл называется порядковым номером), а не в разноброс? [moder]Нарушение п.4 и п.5q Правил форума. Замечание.[/moder]
SLAVICK, еще вопросик не по теме :girl_curtsey: как настроить Суматру, чтобы открывал несколько ПДФных файлов по порядку (файл называется порядковым номером), а не в разноброс? [moder]Нарушение п.4 и п.5q Правил форума. Замечание.[/moder]Katerinka_2016
Сообщение отредактировал _Boroda_ - Среда, 02.11.2016, 19:26