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

Страницы: 1 2 3 След.
Расширить диапазон выборки с двух до шести столбцов
 
#
17.04.2020 19:05:47
Добрый день,
Помогите пожалуйста расширить диапазон выборки.
В файле macro.xlsm есть макрос, который обращается к файлу list.xls и вытягивает данные. Получается только два столбца, а нужно ещё 4. Итого 6 столбцов не считая первого.
В файле macro.xlsm желтым как получается сейчас и зеленым что нужно получить.
Т.е. в файле macro.xlsm нужно вбить к примеру HFF7705, затем выделить эту ячейку и запустить макрос.
Спасибо.
Изменено: cherepushka - 18.04.2020 16:44:35
 
Перейти    
Как выбрать принтер при печати
 
#
20.11.2019 12:10:41
Добрый день всем.
Можно ли выбрать принтер только для печати, потому что сейчас после печати - принтер который выбирается становится дефолтным. Это понятно, что в коде стоит SetDefaultPrinter(), но можно ли сделать, чтобы выбрал принтер - напечатал, а по умолчанию не устанавливал?
Спасибо.

Код
Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name  like 'LaserJetPro'")
  
    For Each objPrinter In colInstalledPrinters
    RES = objPrinter.SetDefaultPrinter()
    Next
Изменено: cherepushka - 20.11.2019 12:10:50
 
Перейти    
Как выбрать принтер при печати
 
#
13.11.2019 11:39:54
БМВ, Большое спасибо. Проблема решена благодаря Вам.
Хорошая это вещь
Изменено: cherepushka - 13.11.2019 11:47:37
 
Перейти    
Как выбрать принтер при печати
 
#
13.11.2019 11:27:28
БМВ,  Вы писали, что есть иное решение. Решил попробовать его.
Код
Set WshNetwork = CreateObject("Wscript.Network")
set objWMI = GetObject("winmgmts:\\.\root\cimv2")
set Printers = objWMI.ExecQuery("Select * From Win32_Printer Where Name like '%LaserJet%'")
For Each Printer In Printers
If Printer.Name = strPrinterName Then
WshNetwork.SetDefaultPrinter strPrinterName
End If
Next

Но он всё равно печатает на дефолтный принтер. И до меня не доходит как из этого кода программа поймет, что нужно это то, что снизу печатать на установленном принтере? По этой строчке WshNetwork.SetDefaultPrinter strPrinterName?
Код
WDс.PrintOut Copies:=1, ManualDuplexPrint:=False, Collate:=1
Изменено: cherepushka - 13.11.2019 11:28:52
 
Перейти    
Как выбрать принтер при печати
 
#
13.11.2019 10:38:57
БМВ, Спасибо за ответ.
А точно в Caption название принтера пихать?
Код
Set objPrinters = objWMIService.ExecQuery("Select * from Win32_Printer Where Caption=HP LaserJet Pro7", , 48)
Изменено: cherepushka - 13.11.2019 10:39:10
 
Перейти    
Как выбрать принтер при печати
 
#
13.11.2019 10:12:10
Спасибо за ссылку.
Сделал так, если дело в портах, но всё равно не устанавливается
Код
For i = 0 To 10
On Error Resume Next
Application.ActivePrinter = "HP LaserJet Pro7" & Format$(i, "00")
If Err.Number = 0 Then Exit For
Next i
    
If Not Application.ActivePrinter Like "HP LaserJet Pro*" Then
MsgBox "Невозможно установить принтер", vbCritical
Exit Sub
End If
Изменено: cherepushka - 13.11.2019 10:12:54
 
Перейти    
Как выбрать принтер при печати
 
#
13.11.2019 09:25:15
Добрый день,
Делаю файлы word из Excel. На принтер по умолчанию печатается без проблем.
Как можно выбрать определенный принтер?
Прошелся макрорекордером в Word и эту строчку ActivePrinter вставил в код, но ничего не получается. Как эту строчку правильно оформить?
Код
ActivePrinter = "HP LaserJet Pro7"
WDс.PrintOut Copies:=1, ManualDuplexPrint:=False, Collate:=1
WDс.SaveAs Filename
Изменено: cherepushka - 13.11.2019 09:25:50
 
Перейти    
Работа с коллекциями - открытие файла
 
#
19.09.2019 15:57:31
Андрей Лящук, Спасибо.
Но shell не работает, никаких ошибок. В Locals все данные только до shell.
 
Перейти    
Работа с коллекциями - открытие файла
 
#
18.09.2019 16:23:07
Добрый день,
Разбираюсь с коллекциям. Получить список уникальных значений по столбцу A вроде получается.
Но как сделать, чтобы напечатать всё (не открывая Word) что находится в столбце D, если файла нет в папке тогда выводить ошибку?
 
Перейти    
Печать файла Ворд из Экселя по ячейкам
 
#
12.09.2019 15:59:09
Название темы - Печать файла Ворд из Экселя по ячейкам.
Во вложении файл. Печатает все вордовские файлы в папке.
В папке у меня есть файлы с расширением doc, в экселе эти названия в ячейке (название файлов Ворд в ячейках). Можно ли распечатать только те вордовские файлы, которые указаны в ячейках?
Спасибо.
Изменено: cherepushka - 12.09.2019 20:10:05
 
Перейти    
Печать файла Ворд из Экселя по ячейкам
 
#
12.09.2019 13:40:45
Добрый день всем!
Пытаюсь сделать всё как в хэлпе https://docs.microsoft.com/en-us/office/vba/api/word.application.printout, но ругается на строчку Application.PrintOut FileName:=adoc.
Направьте пожалуйста на путь.
В папке где сохранен эксель файл есть вордовские файлы.
Спасибо.
 
Перейти    
Удаление дубликатов по трем столбцам
 
#
20.03.2019 09:00:08
Прошу прощения, вопрос отпал.
Всем спасибо.
 
Перейти    
Удаление дубликатов по трем столбцам
 
#
20.03.2019 08:33:37
Доброе утро, всем!
Подскажите пожалуйста, никто не сталкивался с удалением дубликатов по нескольким столбцам?
Во вложении файл, сравнение по названиям в шапке Столбец1, Столбец2, Столбец3.
Спасибо.
 
Перейти    
Удалить дубликаты по незаполненному столбцу
 
#
11.02.2019 12:58:14
Спасибо всем.
Нашел код Hugo, с которым получилось сделать как необходимо. Но выводит и пустые ячейки столбца D
И игнорит Медь и сталь.
Изменено: cherepushka - 11.02.2019 13:00:24
 
Перейти    
Удалить дубликаты по незаполненному столбцу
 
#
11.02.2019 09:48:24
Добрый день, всем!
Есть большая таблица на 35 тысяч строк. В примере выложил для примера 25 строк. Можно ли удалить повторяющиеся строки в которых пустая ячейка D?  Пустая ячейка - столбец D - название "Подходит или нет". Или в моем случае только сортировкой мучаться?
В примере выделил красным - строки, которые должны удаляться.
Спасибо.
 
Перейти    
Отображение листов - сделать все видимыми
 
#
01.02.2019 16:27:17
БМВ, Не скрываю, спросили бы я отвечу. Но 1С-ки как всегда говорят - это не наша проблема. У них там вроде есть работа с COM объектами. Но не хотят разбираться, а нам мучаться.
Спасибо.
 
Перейти    
Отображение листов - сделать все видимыми
 
#
01.02.2019 15:35:56
Добрый день, очень часто приходится работать с файлами, которые экспортируются из других программ.
Когда открываешь файл - листов не видно Как это при открытии
Приходится двигать вправо чтобы отобразить листы После сдвига
Возможно ли это отображение листов сделать всегда видимым?
При открытии созданных Эксель файлов листы отображаются чётко.
Спасибо.
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
25.03.2018 20:30:38
БМВ, Спасибо.
Так вот он уникальный идентификатор, которой я пытался присвоить отдельным столбцом, но связать эту формулу с ним у меня выходило #REF
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
25.03.2018 19:53:29
БМВ, брависсимо!
Только я нифига не понял, что означает *10^-6? 10 в степени -6 если, так, то зачем?
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
25.03.2018 13:47:53
Раскидал данные по годам на отдельные листы, но столько времени ушло.
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
25.03.2018 12:41:37
БМВ,
Я понимаю вопрос странный, типа Эксель не поймет где первый, а где второй.
Но можно ли сделать, чтобы счетчик считал, если дубль есть в том же месяце и в том же году?
В файле зеленым отметил
Изменено: cherepushka - 25.03.2018 13:45:28
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
25.03.2018 11:45:17
БМВ, Спасибо большое - высший пилотаж!
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
25.03.2018 11:27:46
Да в пределах одного года, 2016 отдельно, 2017 отдельно и т.п.(другие года). Это трудновато будет?
Я вчера посмотрел на 2016 год и от счастья полетел. А сегодня начал смотреть и вот так.
Изменено: cherepushka - 25.03.2018 11:29:28
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
25.03.2018 11:15:56
БМВ, Спасибо.
Начал тестировать с большим объемом данных и обнаружил, что результат не тот.
В файле-примере на морковке в дополнительном столбце расписал результат.
Спасибо.
Изменено: cherepushka - 25.03.2018 11:23:51
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
24.03.2018 18:19:56
БМВ, Спасибо.
Это конечно очень сложно. В первом DATAVALUE в Date_text я добавлял после 1900 еще ячейку с годом - ("1 " &F8 & " 1900" & G8), но у меня выходила ошибка. А у Вас в Date_text ячейка с годом вместо 1900 (1 " & F8 & " "& G8).  
Ну буду разбираться.
Огромное спасибо.
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
24.03.2018 17:09:44
Добрый день,
Каким образом можно сделать, чтобы формула БМВ - учитывала еще и год?
Бился целый день с этим массивом, но результата никакого.
Спасибо
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
08.03.2018 11:33:11
gling, Спасибо.
Результат вывел ручками в столбце красного цвета
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
08.03.2018 11:32:09
БМВ,  Спасибо большое.
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
07.03.2018 13:02:47
Месяц записан текстом, можно числом от 1 до 12.
В одном месяце не может быть повторений.
 
Перейти    
Какой по счету раз встречалась данное слово в диапазоне по условию
 
#
07.03.2018 12:25:28
Добрый день всем!
Помогите с формулой.
Указать номер для определенной позиции по порядку в зависимости от месяца.
Есть диапазон данных к примеру в нем есть морковка. Мне нужно узнать в каком месяце она появилась первой, затем второй и т.д.
Спасибо.
Во вложенном файле расписал на примере морковь.
 
Перейти    
Страницы: 1 2 3 След.
Наверх