powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копировать / Вставить значения
11 сообщений из 11, страница 1 из 1
Копировать / Вставить значения
    #35936821
Q8ake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Коллеги, подскажите!

Необходимо в Excel 2003 назанчить на кнопку команду.
При нажатии, происходило:
1. копирование Столцов B и D.
2. Вставка значений в эти же самые столбцы.

это необходимо, что бы удалить ссылки и формулы на другие листы в этой книги.

Заранее благодарю за помощь.
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35936951
adklsgjiueryghbh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Columns("B:B").Value = Columns("B:B").Value
Columns("D:D").Value = Columns("D:D").Value
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35937727
Q8ake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
adklsgjiueryghbh,

Спасибо большое!
Все получилось! )
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35938586
Q8ake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
входе подготовки файла выяснилось, что нужно дополнить кнопку еще командами:
1. Удалить столбцы E и F
2. а после удалить листы в этой книги: "Лист 2" и "Лист 3".
Кнопка находится на "Лист 1".

Как это прописать?

Заранее благодарю, за ответ!
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35939205
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторКак это прописать?

Код: plaintext
1.
2.
3.
4.
    Columns("E:F").Delete Shift:=xlToLeft
    Application.DisplayAlerts = False
    Sheets("Лист2").Delete
    Sheets("Лист3").Delete
    Application.DisplayAlerts = True
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35939310
Q8ake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Aster32,

СПАСИБО БОЛЬШОЕ!
ВСЕ РАБОТАЕТ!!!
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35939335
Q8ake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А как реализовать:
На кнопку надо повесить команды:
- Скрыть текущий лист
- Защитить текущю книгу, и что бы выскочило окно установки пароля на книгу!

Заранее благодрю.
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35939534
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Q8akeА как реализовать:
На кнопку надо повесить команды:
- Скрыть текущий лист
- Защитить текущю книгу, и что бы выскочило окно установки пароля на книгу!

Заранее благодрю.

Скрыть единственный лист вряд ли получится
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35940017
Q8ake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad,

в книге будет несколько листов,
необходимо выполнить действия для текущего листа, соответственно оставшийся станет активным.
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35941192
Q8ake
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Предыдущий вопрос остался,

А как повесить на кнопку:
1. скопировать с листа определенный диапазон (к примеру: B5:D26)
2. создать новую книгу
3. Вставить туда этот диапазон, причем в этом диапазоне:
а. надо что бы вставились форматы
b. в фрагменте: B5:D22 вставились только значения
с. в фрагменте: B23:D26 вставились формулы
...
Рейтинг: 0 / 0
Копировать / Вставить значения
    #35941379
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Q8ake , Вам стоит попробовать запустить макрорекордер и проделать все требуемые действия. После этого в редакторе VBA посмотреть получившийся код и немного переработать его под свои задачи, удалив весь "мусор". Макрорекордер запускается из меню Tools-Macro-Record new macro...
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Копировать / Вставить значения
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]