Доброго времени суток уважаемые форумчане. Прошу вас подсказать довольно простую (как мне кажется с вашей точки зрения) информацию. У меня есть 3 кода: InsPic - это шаблон для копирования любой области рабочего листа в указанное место в виде картинки (код не мой - я его на просторах интернета нашёл и немного переделал под свои нужды) PicCop - это, собственно, код, который задаёт нужные для копирования диапазоны и использует для копирования InsPic (я этот код "в комплексе" с вышеуказанным "позаимствовал" и попытался адаптировать) Hide - код, с помощью которого скрываются строки по определённому критерию.
Проблема в том, что если запускать последние 2 кода не с того листа, в котором необходимо получить конечные результат, то приходится добавлять в код .Select (например, если лист конечного результата Final, то Sheets("Final").Select). Как переделать коды так, чтобы не было этих не нужных переходов, я не знаю (недостаток теории, очевидно)
Прошу вас помочь мне с этим вопросом разобраться. Файл-пример во вложении. Заранее благодарю всех, кто откликнется.
Доброго времени суток уважаемые форумчане. Прошу вас подсказать довольно простую (как мне кажется с вашей точки зрения) информацию. У меня есть 3 кода: InsPic - это шаблон для копирования любой области рабочего листа в указанное место в виде картинки (код не мой - я его на просторах интернета нашёл и немного переделал под свои нужды) PicCop - это, собственно, код, который задаёт нужные для копирования диапазоны и использует для копирования InsPic (я этот код "в комплексе" с вышеуказанным "позаимствовал" и попытался адаптировать) Hide - код, с помощью которого скрываются строки по определённому критерию.
Проблема в том, что если запускать последние 2 кода не с того листа, в котором необходимо получить конечные результат, то приходится добавлять в код .Select (например, если лист конечного результата Final, то Sheets("Final").Select). Как переделать коды так, чтобы не было этих не нужных переходов, я не знаю (недостаток теории, очевидно)
Прошу вас помочь мне с этим вопросом разобраться. Файл-пример во вложении. Заранее благодарю всех, кто откликнется.master-dd
Sub PicCop() Sheets("Source").Range("A1:E4").Copy 'Sheets("Final").Select ' подправить, чтобы не было переходов InsPic Sheets("Final").Range("B2:H9"), True, False Application.CutCopyMode = False End Sub
Sub Hide() With Sheets("Final") '.Select ' подправить, чтобы не было переходов For i = 14 To 73 If .Range("D" & i).Value = 0 Then .Rows(i).EntireRow.Hidden = True Next End With End Sub
[/vba]
master-dd, привет попробуйте [vba]
Код
Sub PicCop() Sheets("Source").Range("A1:E4").Copy 'Sheets("Final").Select ' подправить, чтобы не было переходов InsPic Sheets("Final").Range("B2:H9"), True, False Application.CutCopyMode = False End Sub
Sub Hide() With Sheets("Final") '.Select ' подправить, чтобы не было переходов For i = 14 To 73 If .Range("D" & i).Value = 0 Then .Rows(i).EntireRow.Hidden = True Next End With End Sub
Доброго. PicCop и без селекта у меня отработал. А по второму так: [vba]
Код
Sub Hide() Dim i As Long With Sheets("Final") For i = 14 To 73 If .Range("D" & i).Value = 0 Then .Rows(i).EntireRow.Hidden = True Next End With End Sub
[/vba]
Доброго. PicCop и без селекта у меня отработал. А по второму так: [vba]
Код
Sub Hide() Dim i As Long With Sheets("Final") For i = 14 To 73 If .Range("D" & i).Value = 0 Then .Rows(i).EntireRow.Hidden = True Next End With End Sub
nilem, Hugo, Спасибо за помощь. По поводу Hide - это я признаю детскую ошибку. Я написал всё то же , что и вы (т.е. через With), но перед Range не поставил точку... Всё оказалось элементарно. А вот с PicCop всё намного интереснее. Hugo, без Select он не отрабатывает так, как нужно - картинка выходит за пределы заданной целевой области. nilem, таким же образом я прописывал код в изначальном файле и также отработка идёт не корректно - всё вставляется куда попало. А в файле примере - почему-то всё корректно вставляется. Попытаюсь ещё раз сам разобраться и если не получится - выложу оригинальный файл для разбора.
nilem, Hugo, Спасибо за помощь. По поводу Hide - это я признаю детскую ошибку. Я написал всё то же , что и вы (т.е. через With), но перед Range не поставил точку... Всё оказалось элементарно. А вот с PicCop всё намного интереснее. Hugo, без Select он не отрабатывает так, как нужно - картинка выходит за пределы заданной целевой области. nilem, таким же образом я прописывал код в изначальном файле и также отработка идёт не корректно - всё вставляется куда попало. А в файле примере - почему-то всё корректно вставляется. Попытаюсь ещё раз сам разобраться и если не получится - выложу оригинальный файл для разбора.master-dd