Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Андрей
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Изменения значка на кнопке панели после выполнения макроса, При нажатии своей кнопки на панели меняется значок
 
#
22.08.2019 14:16:34
Я тоже не знаю как исправить конкретную кнопку, я просто взял созданный макрос и в нем разобрался как создавать кнопки и назначать на них макрос и применил для своих нужд.
Вот так и Ваш вариант мне подходит.
Спасибо.
 
Перейти    
Изменения значка на кнопке панели после выполнения макроса, При нажатии своей кнопки на панели меняется значок
 
#
22.08.2019 10:51:08
Здравствуйте.
Нашел на просторах макрос создания примечания исходя из данных введенных в ячейку.
Теперь возникла необходимость включение/отключение этого макроса, реализовал это через функцию If.
Задумал сделать смену значка на кнопке, почти все получилось, но когда выполняю команду кнопкой с
панели, панель пересоздается и добавляется еще один значок со смещением, если
выполнить макрос из VBA или из окна выполнения макроса все нормально панель перерисовывается правильно.
Помогите пожалуйста побороть эту проблему, если это возможно, или может есть другой подход к реализации этой задачи.
 
Перейти    
Макрос автосохранения по расписанию.
 
#
24.04.2015 09:45:55
Все_просто,
Спасибо, за наводку.
У меня не много другой метод, я записываю макрос потом его изучаю, так же и другие макросы изучаю.
С английским туговато, поэтому приходиться выкручиваться.
И если Вам не жалко и не трудно могли бы поделиться тем что делали у себя на работе.
Спасибо.
 
Перейти    
Макрос автосохранения по расписанию.
 
#
01.04.2015 16:19:11
Казанский,
Спасибо, отлично все сработало.
Все_просто,
Надо дальше продолжать самообразование.
Подскажите, а как WorkBooks.count применять,
можно небольшой примерчик.
 
Перейти    
Макрос автосохранения по расписанию.
 
#
01.04.2015 15:48:53
Добрый день
Сделал макрос автосохранения, запускается планировщиком задач Windows
делает копию файла и закрывается.
Скрытый текст
Помогите пожалуйста решить такую проблему.
Если использовать команду
Application.Quit
то закрываются все открытые книги.
Если использовать
ActiveWindow.Close или ActiveWorkbook.Close
при открытых книгах все нормально, а если не одной книги не было открыто,
то потом остается открытый Excel.
Можно сделать типа проверки на открытые книги.
Если открыты книги
ActiveWindow.Close иначе Application.Quit.
Ну или как-то подругому это реализовать.
Спасибо
 
Перейти    
Данные из таблицы в диалоговое окно, Перенос данных в диалоговое окно
 
#
20.01.2015 22:03:06
Спасибо
Тоже отличный вариант, но там кода...  
 
Перейти    
Данные из таблицы в диалоговое окно, Перенос данных в диалоговое окно
 
#
20.01.2015 15:30:02
Спасибо, в полне отлично.
Жаль только скролинг не работает.
 
Перейти    
Данные из таблицы в диалоговое окно, Перенос данных в диалоговое окно
 
#
20.01.2015 14:52:22
Здравствуйте форумчане.
Помогите пожалуйста. Можно ли сделать чтобы данные из таблицы отражались в диалоговом окне,
или создать пользовательское окно с этими данными (данные могут менятся).
Типа что-то шпаргалки, но чтоб работала от кнопки.
 
Перейти    
Сумма с начала периода до заданной даты
 
#
01.12.2014 09:03:50
Спасибо,что откликнулись.
Отлично все формулы работают, кроме
=СУММ(ЕСЛИ(МЕСЯЦ(N1)>=СТОЛБЕЦ(A1:L1);A2:L2))
Она суммирует все столбцы, но мне и этих хватит.
 
Перейти    
Сумма с начала периода до заданной даты
 
#
28.11.2014 17:00:04
Доброго времени суток.
Помогите пожалуйста.
Что-то не получается просуммировать ячейки.
На форуме нашел пару тем, пробовал применять функции,
но не работает.
Спасибо.
 
Перейти    
Перехват кнопки "отмена" в окне диалоге сохранения.
 
#
16.04.2013 15:33:26
Казанский,
Спасибо, а ларчик просто открывался.
 
Перейти    
Перехват кнопки "отмена" в окне диалоге сохранения.
 
#
16.04.2013 13:10:35
Доброго времени суток.
Помогите пожалуйста.
Наваял макрос, все устраивает, но после нажатия кнопки "отмена" в Диалоговом окне "Сохранить как..."
макрос продолжает выполняться далее по порядку.

Можно как-то остановить макрос или переход на другую строку кода(назначить другую команду)?

Код
Sub ClearTab()
  mb = MsgBox("Вы действительно хотите очистить форму? ", 308, "В Н И М А Н И Е !"    
  Select Case mb
  Case Is = 6

      Application.Dialogs(xlDialogSaveAs).Show    'диалог сохранения

  ' макрос очистки

       mb1 = MsgBox("Создать ярлык на Рабочем столе?", 36, "Microsoft Excel"    
      Select Case mb1
      Case Is = 6
    With CreateObject("WScript.Shell"    'Создание ярлыка на рабочем столе - для Активной     книги
      iFileName = ThisWorkbook.Name & ".lnk"
       With .CreateShortcut(.SpecialFolders("Desktop" & "\" + ThisWorkbook.Name + ".lnk"    
         .TargetPath = ThisWorkbook.Path & "\" & ThisWorkbook.Name
         .Save
        End With
        End With
       Case Is = 7
       End Select
       MsgBox "Введите новую ДАТУ!", 64, "Выполнено"
  Case Is = 7
  End Select
End Sub
Изменено: Андрей - 16.04.2013 13:12:36
 
Перейти    
Подсчет ячеек по условию
 
#
08.04.2013 00:29:46
Спасибо Владимир,
Все работает, но я пожалуй оставлю первый вариант, так как я уже с этой формулой разобрался (мне кажется она попроще будет).
 
Перейти    
Подсчет ячеек по условию
 
#
04.04.2013 16:35:14
Считаю ночные часы.Заполняя график работы ставлю кол-во отработанных часов в день. Т.е если подряд идет 12,4,8 или 16,8 или 4,8 то ночных 8. но может быть отработано подряд 16,12,8 тут получается 16 ночных. Во всех остальных случаях это дневные.
 
Перейти    
Подсчет ячеек по условию
 
#
04.04.2013 15:28:13
Владимир,
Спасибо, разобрался.
Может еще поможете.
Наваял тут формулу, можно её как-то сократить(упростить)?
=(СЧЁТЕСЛИ(B4:AF4;4)*2)+(СЧЁТЕСЛИ(B4:AF4;16)*2)+((СУММПРОИЗВ(((B4:AE4=16)+(B4:AE4=4))*(C4:AF4=8))+СУММПРОИЗВ(((AC3=16)+(AC3=4))*(B4=8)))*6)+(СУММПРОИЗВ((A4:AE4=16)*(B4:AF4=12)*(C4:AG4=8))*6)+(СУММПРОИЗВ((A4:AE4=16)*(B4:AF4=12))*8)
 
Перейти    
Подсчет ячеек по условию
 
#
04.04.2013 09:47:04
Доброго времени суток уважаемые.
Подскажите пожалуйста:
В строке идут числа 8, 4, 16, 12 (каждое число в отдельной ячейке) в любой последовательности,
можно ли с помощью формул(функций) подсчитать восмерки которые идут именно сразу после 16,12?
Спасибо.
 
Перейти    
Быстрый пернос кода листа на другие листы
 
#
08.01.2013 22:49:08
Дзякуй, в смысле спасибо.
Если данные мысли никому не нужны, можно тему закрывать.
 
Перейти    
Быстрый пернос кода листа на другие листы
 
#
08.01.2013 22:36:34
Цитата
Юрий М пишет:
Проверять имя листа: Если имя листа не равно "ЛистN", то...
Если не трудно можете набросать пару строчек, а то я как-то плохо понимать
 
Перейти    
Быстрый пернос кода листа на другие листы
 
#
08.01.2013 22:22:30
Спасибо, а ларчик просто открывался.
А если вдруг один лист надо исключить, ну чтоб на нем не выполнялся макрос?
 
Перейти    
Ctrl+A в макросе, Как реализовать функцию "выделить все" (Ctrl+A) в макросе экселя
 
#
08.01.2013 22:04:36
В строке макроса в место
Range("A1:C20").Select или Range("A1:C5000").Select
поставить
Cells.Select
(это Ctrl+A в макросе)
или как предлагает Юрий М
 
Перейти    
Быстрый пернос кода листа на другие листы
 
#
08.01.2013 21:57:29
Доброго времени суток.
Уважаемые фоумчане помогите пожалуйста размножить код.
Написали макрос (лист1/исходный текст), теперь этот код надо быстро скопировать в другие листы, а то ctrl+c и ctrl+v не катит когда много листов.
Может макрос или секрет какой-то есть?
 
Перейти    
Несколько условий в ЕСЛИ(). Ф-ция не дает значение ИСТИНА
 
#
29.08.2012 16:40:49
Принято, спасибо!  
 
Тема закрыта!
 
Перейти    
Несколько условий в ЕСЛИ(). Ф-ция не дает значение ИСТИНА
 
#
29.08.2012 16:15:58
Доброго времени суток уважаемые!  
 
Замутил формулу, а она пишет ЛОЖЬ, в чем ошибка?  
Нужно значение ИСТИНА, если день недели равен 6 или 7.  
Если писать "=ДЕНЬНЕД(A6;2)=6", то работает.  
Если "=ДЕНЬНЕД(A6;2)=ИЛИ(6;7)",то нет.  
Почему не работает ф-ция ИЛИ()?  
 
Спасибо!
 
Перейти    
Счет ячеек по условию
 
#
28.08.2012 22:08:22
Принято к обороне.  
Спасибо
 
Перейти    
Счет ячеек по условию
 
#
28.08.2012 21:05:37
Спсибо, все работает!  
 
Попутно возник еще один вопрос.  
Применил формулу на две строки, а она получилась такая длинная,  
=СУММПРОИЗВ(((A6:Y6=16)+(A6:Y6=4))*(B6:Z6=8))+СУММПРОИЗВ(((Z4=16)+(Z4=4))*(A6=8))  
ее можно как-то упростить?  
 
Спасибо!
 
Перейти    
Счет ячеек по условию
 
#
27.08.2012 21:57:44
Доброго времени суток.  
Уважаемые форумчане, подскажите пожалуйста как решить такую задачу.  
  В строке стоят значения из которых нужно подсчитать 8-ки, формула "=СЧЁТЕСЛИ(A4:Z4;8)" считает все 8-ки подряд.  
  Можно ли создать условие для формулы, чтоб считались только те 8-ки, перед которыми в предыдущей ячейке стоят значения 16 и 4?  
  Или может как-то по другому можно решить эту задачу? Если есть возможность без макросов.  
 
Спасибо!
 
Перейти    
Создание текстового файла в нужной кодировке
 
#
14.08.2012 15:14:25
Всем спасибо за помощь, вот найденное решение, может кому пригодится:  
[Код ниже в текстовом файле]
 
Перейти    
Создание текстового файла в нужной кодировке
 
#
20.07.2012 17:35:43
У нас администрация пресекает сторонний софт.  
Хотелось бы решить эту роблему внутренними средствами Excel.
 
Перейти    
Создание текстового файла в нужной кодировке
 
#
20.07.2012 10:16:36
Спасибо, но данный вариант не подходит, в силу невозможности устновки сторонних программ.
 
Перейти    
Создание текстового файла в нужной кодировке
 
#
19.07.2012 01:03:26
Есть таблица которая макросом создает текстовый файл, но не в той кодировке.  
Нужна кодировка MS-DOS.  
 
На форуме подходящего решения не нашел, или применить правильно не смог...
 
Перейти    
Страницы: 1
Наверх