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

Вход

Регистрация

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

 

= Мир MS Excel/Диалоговое окно переместить/скопировать - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Диалоговое окно переместить/скопировать
Диалоговое окно переместить/скопировать
RAN Дата: Четверг, 23.06.2011, 14:03 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Приветствую!
Требуется создавать копию листа в другой открытой книге. Имя книги и расположение копии произвольные.
Подскажите, как кодом открыть окно переместить/скопировать?
Или свою бяку сочинять?
К сообщению приложен файл: 7793365.jpg (19.4 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПриветствую!
Требуется создавать копию листа в другой открытой книге. Имя книги и расположение копии произвольные.
Подскажите, как кодом открыть окно переместить/скопировать?
Или свою бяку сочинять?
Автор - RAN
Дата добавления - 23.06.2011 в 14:03
KuklP Дата: Четверг, 23.06.2011, 14:27 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
RAN, а макрорекордер? Там же ничего сложного, тем более для Вас(это я к тому, что Вы не чайник).

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеRAN, а макрорекордер? Там же ничего сложного, тем более для Вас(это я к тому, что Вы не чайник).
Автор - KuklP
Дата добавления - 23.06.2011 в 14:27
Serge_007 Дата: Четверг, 23.06.2011, 14:28 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Серёг, макрорекордер это не пишет sad

Code
Sub Макрос2()
     Sheets("Лист1").Select
     Sheets("Лист1").Copy Before:=Sheets(1)
End Sub

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеСерёг, макрорекордер это не пишет sad

Code
Sub Макрос2()
     Sheets("Лист1").Select
     Sheets("Лист1").Copy Before:=Sheets(1)
End Sub
Автор - Serge_007
Дата добавления - 23.06.2011 в 14:28
RAN Дата: Четверг, 23.06.2011, 14:32 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Если-бы макрорекордер это писал, стал-бы я такой вопрос задавать! cool
Правда я уже засомневался, если вызвать это окно из формы - отдаст-ли форма управление?

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеЕсли-бы макрорекордер это писал, стал-бы я такой вопрос задавать! cool
Правда я уже засомневался, если вызвать это окно из формы - отдаст-ли форма управление?
Автор - RAN
Дата добавления - 23.06.2011 в 14:32
KuklP Дата: Четверг, 23.06.2011, 14:44 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Мне записал:
Code
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 23.06.2011 (Сергей)
'

'
     Sheets("Лист1").Select
     Sheets("Лист1").Copy
End Sub

Скопировать в новую книгу.
Это небось у вас 2007-ые стоят, там МР калечный, как и справка.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеМне записал:
Code
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 23.06.2011 (Сергей)
'

'
     Sheets("Лист1").Select
     Sheets("Лист1").Copy
End Sub

Скопировать в новую книгу.
Это небось у вас 2007-ые стоят, там МР калечный, как и справка.
Автор - KuklP
Дата добавления - 23.06.2011 в 14:44
Serge_007 Дата: Четверг, 23.06.2011, 14:48 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (KuklP)
небось у вас 2007-ые стоят

У меня 2010.
И записал тоже что и у тебя.
Только вопрос был:
Quote (RAN)
как кодом открыть окно переместить/скопировать?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (KuklP)
небось у вас 2007-ые стоят

У меня 2010.
И записал тоже что и у тебя.
Только вопрос был:
Quote (RAN)
как кодом открыть окно переместить/скопировать?
Автор - Serge_007
Дата добавления - 23.06.2011 в 14:48
KuklP Дата: Четверг, 23.06.2011, 14:49 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Quote (RAN)
Правда я уже засомневался, если вызвать это окно из формы - отдаст-ли форма управление?

Да пофиг, одна строка:
Code
Sheets("Лист1").Copy

скопирует лист в новую книгу. Не забывайте, эта книга становится активной с активным(единственным) листом Лист1. В это время присваиваем переменным книгу, лист, листу имя и т.д.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Четверг, 23.06.2011, 14:51
 
Ответить
Сообщение
Quote (RAN)
Правда я уже засомневался, если вызвать это окно из формы - отдаст-ли форма управление?

Да пофиг, одна строка:
Code
Sheets("Лист1").Copy

скопирует лист в новую книгу. Не забывайте, эта книга становится активной с активным(единственным) листом Лист1. В это время присваиваем переменным книгу, лист, листу имя и т.д.
Автор - KuklP
Дата добавления - 23.06.2011 в 14:49
KuklP Дата: Четверг, 23.06.2011, 14:54 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А зачем его открывать? Чем сложней руками такое окно открыть? Ну если уж очень хотца трусы через голову, то application.dialogs. Номер узнаете перебором.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеА зачем его открывать? Чем сложней руками такое окно открыть? Ну если уж очень хотца трусы через голову, то application.dialogs. Номер узнаете перебором.
Автор - KuklP
Дата добавления - 23.06.2011 в 14:54
RAN Дата: Четверг, 23.06.2011, 14:59 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
В новую книгу
Code
Sheets(1).Copy

я и без рекордера умею. И даже выбор места, куда эту книгу сохранить прописан.
А теперь хочу добавить в форму кнопочку, чтобы копия не сохранялась в новой книге, а скопировать лист в существующюю книгу (выбрать) в определенное место (выбрать).
PS А кода вызова окна все равно нет.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВ новую книгу
Code
Sheets(1).Copy

я и без рекордера умею. И даже выбор места, куда эту книгу сохранить прописан.
А теперь хочу добавить в форму кнопочку, чтобы копия не сохранялась в новой книге, а скопировать лист в существующюю книгу (выбрать) в определенное место (выбрать).
PS А кода вызова окна все равно нет.
Автор - RAN
Дата добавления - 23.06.2011 в 14:59
KuklP Дата: Четверг, 23.06.2011, 15:11 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Code
Public Sub www()
Application.Dialogs(281).Show
End Sub


А на будущее:
Code
Public Sub www()
     Dim d As Object, i&
     On Error Resume Next
     For i = 1 To Application.Dialogs.Count
         [a1] = i
         Application.Dialogs(i).Show
     Next
End Sub

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Code
Public Sub www()
Application.Dialogs(281).Show
End Sub


А на будущее:
Code
Public Sub www()
     Dim d As Object, i&
     On Error Resume Next
     For i = 1 To Application.Dialogs.Count
         [a1] = i
         Application.Dialogs(i).Show
     Next
End Sub
Автор - KuklP
Дата добавления - 23.06.2011 в 15:11
Саня Дата: Четверг, 23.06.2011, 15:18 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
Code
Sub ss()
     On Error Resume Next
     For i = 1 To 1213
         Application.StatusBar = i
         Application.Dialogs(i).Show
     Next
     Application.StatusBar = False
End Sub
 
Ответить
Сообщение
Code
Sub ss()
     On Error Resume Next
     For i = 1 To 1213
         Application.StatusBar = i
         Application.Dialogs(i).Show
     Next
     Application.StatusBar = False
End Sub
Автор - Саня
Дата добавления - 23.06.2011 в 15:18
RAN Дата: Четверг, 23.06.2011, 15:28 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
KuklP, сочинил почти до буквы такой-же макрос, но excel вылетел не добравшись до 2 сотен.

Всем , вопрос снят.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеKuklP, сочинил почти до буквы такой-же макрос, но excel вылетел не добравшись до 2 сотен.

Всем , вопрос снят.
Автор - RAN
Дата добавления - 23.06.2011 в 15:28
KuklP Дата: Четверг, 23.06.2011, 15:32 | Сообщение № 13
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Quote (RAN)
но excel вылетел не добравшись до 2 сотен.
А откуда я Application.Dialogs(281).Show взял? Это смотря как д.окна закрывать smile

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Quote (RAN)
но excel вылетел не добравшись до 2 сотен.
А откуда я Application.Dialogs(281).Show взял? Это смотря как д.окна закрывать smile
Автор - KuklP
Дата добавления - 23.06.2011 в 15:32
RAN Дата: Четверг, 23.06.2011, 15:59 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Так я и понял это. Но повторно запускать не пришлось - добрый человек до 281 поперед меня добрался! hands

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеТак я и понял это. Но повторно запускать не пришлось - добрый человек до 281 поперед меня добрался! hands
Автор - RAN
Дата добавления - 23.06.2011 в 15:59
RAN Дата: Воскресенье, 26.06.2011, 22:10 | Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Все-же ЛЕНЬ - ДВИГАТАЛЬ ПРОГРЕССА! biggrin
Потестил Application.Dialogs(281). Все хорошо, но надо ставить крыж "создать копию".
Запустил снова макрос подбора номера. Снова вылетел Эксел. Запустил пошагово. Выяснил, что Application.Dialogs(283) открывает окно с крыжем "создать копию".

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВсе-же ЛЕНЬ - ДВИГАТАЛЬ ПРОГРЕССА! biggrin
Потестил Application.Dialogs(281). Все хорошо, но надо ставить крыж "создать копию".
Запустил снова макрос подбора номера. Снова вылетел Эксел. Запустил пошагово. Выяснил, что Application.Dialogs(283) открывает окно с крыжем "создать копию".
Автор - RAN
Дата добавления - 26.06.2011 в 22:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Диалоговое окно переместить/скопировать
  • Страница 1 из 1
  • 1
Поиск:

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