Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Заполнение спецификации макросом - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 2 из 2«12
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение спецификации макросом (Макросы/Sub)
Заполнение спецификации макросом
HeoH Дата: Вторник, 29.11.2016, 15:12 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
nilem, не пойму где вставить эти строчки
 
Ответить
Сообщениеnilem, не пойму где вставить эти строчки

Автор - HeoH
Дата добавления - 29.11.2016 в 15:12
HeoH Дата: Вторник, 29.11.2016, 15:13 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
SLAVICK, прочитал правила еще 2 раза!!!! там нету запрета на пересылку файла по почте!
 
Ответить
СообщениеSLAVICK, прочитал правила еще 2 раза!!!! там нету запрета на пересылку файла по почте!

Автор - HeoH
Дата добавления - 29.11.2016 в 15:13
HeoH Дата: Вторник, 29.11.2016, 15:15 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
у меня уменьшенный сразу открывается с ошибками
 
Ответить
Сообщениеу меня уменьшенный сразу открывается с ошибками

Автор - HeoH
Дата добавления - 29.11.2016 в 15:15
SLAVICK Дата: Вторник, 29.11.2016, 15:17 | Сообщение № 24
Группа: Модераторы
Ранг: Старожил
Сообщений: 1834
Репутация: 613 ±
Замечаний: 0% ±

2007,2010,2013,2016
[offtop]
прочитал правила еще 2 раза!!!! там нету запрета на пересылку файла по почте!

Вам уже два раза ответили в этой теме:
o - предлагать собеседнику перейти в личные отношения (ЛС, SkyPe, ICQ, Агент и проч...), кроме форума "Фриланс";

Вы меня сейчас просто подставили, потому что в правилах четко сказано, что запрещено переходить в личку в бесплатном разделе форума.
[/offtop]


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение[offtop]
прочитал правила еще 2 раза!!!! там нету запрета на пересылку файла по почте!

Вам уже два раза ответили в этой теме:
o - предлагать собеседнику перейти в личные отношения (ЛС, SkyPe, ICQ, Агент и проч...), кроме форума "Фриланс";

Вы меня сейчас просто подставили, потому что в правилах четко сказано, что запрещено переходить в личку в бесплатном разделе форума.
[/offtop]

Автор - SLAVICK
Дата добавления - 29.11.2016 в 15:17
HeoH Дата: Вторник, 29.11.2016, 15:21 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
nilem, ты наверное имел ввиду в этих строчках -
[vba]
Код

Worksheets(res).Shapes("Group10").Copy
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr10range)
[/vba]
не group10 а group4

не помогло
ошибка снова указывает на -
[vba]
Код
ActiveSheet.Shapes("group4").Select
[/vba]
 
Ответить
Сообщениеnilem, ты наверное имел ввиду в этих строчках -
[vba]
Код

Worksheets(res).Shapes("Group10").Copy
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr10range)
[/vba]
не group10 а group4

не помогло
ошибка снова указывает на -
[vba]
Код
ActiveSheet.Shapes("group4").Select
[/vba]

Автор - HeoH
Дата добавления - 29.11.2016 в 15:21
nilem Дата: Вторник, 29.11.2016, 15:45 | Сообщение № 26
Группа: Авторы
Ранг: Ветеран
Сообщений: 1051
Репутация: 397 ±
Замечаний: 0% ±

Excel 2013
Еще и цикл есть...
Погонял несколько раз - фурычит:
[vba]
Код
Sub Go_1456()
Dim adcc As Integer
Application.ScreenUpdating = False ' *** отключение обновления экрана
.....
'Копируем штамп на 1 лист----------------
Worksheets(res).Shapes("Group10").Copy
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr10range) '***
.......
'копируем данные и штампы на следующие листы ****
Dim l As Long, crow As Long, crowv As Long
crow = 37
crowv = 23
For l = 2 To (npages + 1)
    '-----------------------------------
    Dim p As Long, u As Long
.......
    'добавляем основной штамп   ****
    Worksheets(res).Shapes("group4").Copy
    Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))
.......
'это в самом конце цикла
    crow = crow + 30
    crowv = crowv + slnr
    '------------------------****
    DoEvents
    Application.CutCopyMode = False
Next
.......
Application.ScreenUpdating = True
End Sub
[/vba]
это вот кусочки кода, которые изменил

UPD
DoEvents - чтобы перевести дух, т.к. код.... :)


Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Вторник, 29.11.2016, 15:54
 
Ответить
СообщениеЕще и цикл есть...
Погонял несколько раз - фурычит:
[vba]
Код
Sub Go_1456()
Dim adcc As Integer
Application.ScreenUpdating = False ' *** отключение обновления экрана
.....
'Копируем штамп на 1 лист----------------
Worksheets(res).Shapes("Group10").Copy
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr10range) '***
.......
'копируем данные и штампы на следующие листы ****
Dim l As Long, crow As Long, crowv As Long
crow = 37
crowv = 23
For l = 2 To (npages + 1)
    '-----------------------------------
    Dim p As Long, u As Long
.......
    'добавляем основной штамп   ****
    Worksheets(res).Shapes("group4").Copy
    Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))
.......
'это в самом конце цикла
    crow = crow + 30
    crowv = crowv + slnr
    '------------------------****
    DoEvents
    Application.CutCopyMode = False
Next
.......
Application.ScreenUpdating = True
End Sub
[/vba]
это вот кусочки кода, которые изменил

UPD
DoEvents - чтобы перевести дух, т.к. код.... :)

Автор - nilem
Дата добавления - 29.11.2016 в 15:45
HeoH Дата: Среда, 30.11.2016, 06:50 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
овсе равно ошибка и ссылается на туже строчку -
[vba]
Код
ActiveSheet.Shapes("group4").Select
[/vba]

Заметил такую вещь что утро когда прихожу на работу к 8:30 эта специфа полностью работает
возможно ли что там защита какая нибудь или еще чего?

хотя тоже не понятно
2 раза прошло успешно
3ий раз с ошибкой
[vba]
Код
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))
[/vba]
4 раз успешно
5ый раз с ошибкой
[vba]
Код
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))
[/vba]
6,7 раз успешно
это на том файле который был изначально, без внесения всех здешних изменений

оказывается неправильно сделал вставку
вставил еще раз в код и все работает с утра отлично!
Нилем БЛАГОДАРЮ ТЕБЯ!


Сообщение отредактировал HeoH - Среда, 30.11.2016, 07:16
 
Ответить
Сообщениеовсе равно ошибка и ссылается на туже строчку -
[vba]
Код
ActiveSheet.Shapes("group4").Select
[/vba]

Заметил такую вещь что утро когда прихожу на работу к 8:30 эта специфа полностью работает
возможно ли что там защита какая нибудь или еще чего?

хотя тоже не понятно
2 раза прошло успешно
3ий раз с ошибкой
[vba]
Код
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))
[/vba]
4 раз успешно
5ый раз с ошибкой
[vba]
Код
Worksheets("Печать").Paste Destination:=Worksheets("Печать").Range(gr4range1 + CStr(crow + 28), gr4range2 + CStr(crow + 28))
[/vba]
6,7 раз успешно
это на том файле который был изначально, без внесения всех здешних изменений

оказывается неправильно сделал вставку
вставил еще раз в код и все работает с утра отлично!
Нилем БЛАГОДАРЮ ТЕБЯ!

Автор - HeoH
Дата добавления - 30.11.2016 в 06:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение спецификации макросом (Макросы/Sub)
Страница 2 из 2«12
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!