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

Вход

Регистрация

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

 

= Мир MS Excel/Скриптик копирования с листа на лист, поправьте по чутка - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скриптик копирования с листа на лист, поправьте по чутка (Макросы/Sub)
Скриптик копирования с листа на лист, поправьте по чутка
Serge_007 Дата: Воскресенье, 17.08.2014, 22:59 | Сообщение № 21
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
у меня файлик 104 кило, в 100 кб ну никак......
как пример, то прикрепить, на внешнее хранилище низя
Вы слышали про такую редкую и неизвестную никому вещь как архиваторы?
В это сложно поверить, но архиваторы могут значительно уменьшить размер итогового архива по сравнению с исходным файлом. Впрочем, чего это я страшные тайны раскрываю?..


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
у меня файлик 104 кило, в 100 кб ну никак......
как пример, то прикрепить, на внешнее хранилище низя
Вы слышали про такую редкую и неизвестную никому вещь как архиваторы?
В это сложно поверить, но архиваторы могут значительно уменьшить размер итогового архива по сравнению с исходным файлом. Впрочем, чего это я страшные тайны раскрываю?..

Автор - Serge_007
Дата добавления - 17.08.2014 в 22:59
sver4ook Дата: Воскресенье, 17.08.2014, 23:39 | Сообщение № 22
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Serge_007, вы уж меня совсем то за дурака не держите, он у меня после сжатия 104 кб,
попробую отрезать все что отрезается

отрезал, прикрепил.......
К сообщению приложен файл: _12.7z (64.2 Kb)


Сообщение отредактировал sver4ook - Воскресенье, 17.08.2014, 23:52
 
Ответить
СообщениеSerge_007, вы уж меня совсем то за дурака не держите, он у меня после сжатия 104 кб,
попробую отрезать все что отрезается

отрезал, прикрепил.......

Автор - sver4ook
Дата добавления - 17.08.2014 в 23:39
Serge_007 Дата: Воскресенье, 17.08.2014, 23:45 | Сообщение № 23
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
у меня файлик 104 кило
он у меня после сжатия 104 кб
Где в первом сообщении хоть одно упоминание о том что Вы пользовались архиватором?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
у меня файлик 104 кило
он у меня после сжатия 104 кб
Где в первом сообщении хоть одно упоминание о том что Вы пользовались архиватором?

Автор - Serge_007
Дата добавления - 17.08.2014 в 23:45
Wasilich Дата: Понедельник, 18.08.2014, 23:09 | Сообщение № 24
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Что я хотел бы, после изменения ячейки "К2" передать фокус на кнопку, а далее ентер и погнал.
Пробовал процедуру Worksheet_Change(ByVal Target As Range), на листе, так он собака некорректно работает...

Не работает этот код с листа, не знаю почему......пробовал уже, и так и так.......... ну не хочет он
Работает корректно только с модуля листа и запуск кнопкой.......

Было бы конкретное описание задачи, может конкретная и помощь была бы.
А так, как я понял, на Листе "История" уже есть процедура Worksheet_Change(ByVal Target As Range) для ввода даты, а это значит, что вторая такая же, работать не будет. Значит, код (который для кнопки) придется вписать в конец уже существующей процедуры или дать из неё ссылку на код в модуле (естно, переделав его).
Это, если я понял "чё ты хошь" :)
 
Ответить
Сообщение
Что я хотел бы, после изменения ячейки "К2" передать фокус на кнопку, а далее ентер и погнал.
Пробовал процедуру Worksheet_Change(ByVal Target As Range), на листе, так он собака некорректно работает...

Не работает этот код с листа, не знаю почему......пробовал уже, и так и так.......... ну не хочет он
Работает корректно только с модуля листа и запуск кнопкой.......

Было бы конкретное описание задачи, может конкретная и помощь была бы.
А так, как я понял, на Листе "История" уже есть процедура Worksheet_Change(ByVal Target As Range) для ввода даты, а это значит, что вторая такая же, работать не будет. Значит, код (который для кнопки) придется вписать в конец уже существующей процедуры или дать из неё ссылку на код в модуле (естно, переделав его).
Это, если я понял "чё ты хошь" :)

Автор - Wasilich
Дата добавления - 18.08.2014 в 23:09
sver4ook Дата: Вторник, 19.08.2014, 09:28 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Wasilic, Добрый день

процедура Worksheet_Change(ByVal Target As Range) на Листе "История" и на листе "опыт" не используется, дата ставится по нажатию кнопки.

В приложенном файле 2 листа интересен лист "опыт" на нем при изменении данных в ячейке "А2" при нажатии ентер активировалась(передавался фокус) бы кнопка "Контроль работы автоклавов" и дальнейшее нажатие на ентер нажимало бы кнопку, вот такой вопрос, извиняюсь за сумбур, как мог объяснил.

Сначала думал может отследить нажатие ентера, но на листе много чего меняется и отслеживание ентера не подходит...

Приколочу сюда файлик
К сообщению приложен файл: 6576612.7z (64.2 Kb)


Сообщение отредактировал sver4ook - Вторник, 19.08.2014, 13:31
 
Ответить
СообщениеWasilic, Добрый день

процедура Worksheet_Change(ByVal Target As Range) на Листе "История" и на листе "опыт" не используется, дата ставится по нажатию кнопки.

В приложенном файле 2 листа интересен лист "опыт" на нем при изменении данных в ячейке "А2" при нажатии ентер активировалась(передавался фокус) бы кнопка "Контроль работы автоклавов" и дальнейшее нажатие на ентер нажимало бы кнопку, вот такой вопрос, извиняюсь за сумбур, как мог объяснил.

Сначала думал может отследить нажатие ентера, но на листе много чего меняется и отслеживание ентера не подходит...

Приколочу сюда файлик

Автор - sver4ook
Дата добавления - 19.08.2014 в 09:28
Wasilich Дата: Четверг, 21.08.2014, 23:48 | Сообщение № 26
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
при изменении данных в ячейке "А2" при нажатии ентер активировалась(передавался фокус) бы кнопка "Контроль работы автоклавов"

И что, так не получается? Код для Листа "опыт".
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A2"), Target) Is Nothing Then
       Controll
    End If
End Sub
[/vba]
 
Ответить
Сообщение
при изменении данных в ячейке "А2" при нажатии ентер активировалась(передавался фокус) бы кнопка "Контроль работы автоклавов"

И что, так не получается? Код для Листа "опыт".
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A2"), Target) Is Nothing Then
       Controll
    End If
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 21.08.2014 в 23:48
sver4ook Дата: Понедельник, 25.08.2014, 11:37 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Работает, Спасибо. hands hands hands
Сначала думал кнопкой, но когда кол-во перевалило за 50 шт в час, постоянно метаться к мышке как то стало напрягать....

Огромное спасибо всем .....Вроде как допилил документик
 
Ответить
СообщениеРаботает, Спасибо. hands hands hands
Сначала думал кнопкой, но когда кол-во перевалило за 50 шт в час, постоянно метаться к мышке как то стало напрягать....

Огромное спасибо всем .....Вроде как допилил документик

Автор - sver4ook
Дата добавления - 25.08.2014 в 11:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скриптик копирования с листа на лист, поправьте по чутка (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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