Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Вставить строки с текстом между датами
 
Есть таблица, первая колонка в которой - дата. Как при помощи VBA вставить между разными датами по три строки без границ с определенным текстом? Заранее спасибо. Пример прикладываю...
VBA определить наличие в диапазоне пустой ячейки или ячейки с значением - 0
 
Подскажите как при помощи VBA определить наличие пустой ячейки (не заполненной = "" ;)  в диапазоне (например А1:С300) или ячейки с значением = 0 ?
Выполнить макрос "если"
 
Как сделать в макросе условие: если в книге есть лист "Лист1" макрос выполняется, если листа с таким именем в текущей книге нет - макрос не выполняется. Заранее спасибо!
Макрос "просуммировать по условию"
 
Подскажите пожалуйста, можно ли макросом просуммировать значение ячеек в столбце "С" при условии что в противоположной ячейке столбца "А" содержится значение "ORG"  и только те ячейки которые находятся между разделом IV и V. Количество строк постоянно меняется от 500 до 1000. Для наглядность прилагаю небольшой пример файла.
InitialFileName
 
Подскажите пожалуйста, в макросе для загрузки данных есть строка    
.InitialFileName = "BAL*.dbf"    
А как установить несколько масок имен?
Подсказки
 
Подскажите пожалуйста, можно в excel создавать подсказки в виде текста или цвета, но так чтобы это не отображалось при печати?
Макрос "объединение ячеек"
 
Ув.форумчане подскажите пожалуйста реально ли создать макрос который бы объединял ячейки с одинаковым значением. Наглядно в примере.
Разбить текст ячейки на части (правильный перенос)
 
Подскажите пожалуйста как разбить текст ячейки на две, таким образом чтобы чтобы впервой ячейки было не более 20 знаков, но переносился бы текст не с середины слова, а слова полностью(если умещается 3 слова, то 3,если два слова, то два - т.е. не разрывая слов), а во второй строке все остальные слова.
Макрос на выборку данных
 
Здравствуйте Ув.форумчане.  
Прошу вашего совета. На работе приходится обрабатывать огромный объем файлов. Из каждого файла надо распечатать таблицу, но не полностью а только те строки в которых находятся значения удовлетворяющие условия отбора.Файлы изменять нельзя, поэтому формулы отпадают. Я начал потихоньку мудрить с макросом, который выделеные строки копирует на временный лист, отправляет таблицу на печать, а после удаляет временный лист.Но до этого удерживая Сtrl приходится вручную выделять нужные строки (таблицы примерно имеют в среднем 2000-3000 строк)и таких файлов в день надо обрабатывать штук 50-70. Подскажите можно будет доработать макрос, чтобы можно было выделять строки по определенному условию? Тогда можно былоб макрос повешать на кнопку в меню и пол дела сделано... Заранее спасибо. Часть такой таблицы в примере, там же макрос.
Как убить лист?
 
Подскажите пожалуйста.Записал макрос, который выделенные данные с основного листа собирает в один временый "temp", передает на печать а потом его удаляет.  
Sub Макрос1()  
   Selection.Copy  
   Sheets.Add.Name = "temp"  
   Sheets("temp").Select  
   ActiveSheet.Paste  
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  
   Sheets("temp").Select  
   ActiveWindow.SelectedSheets.Delete  
End Sub  
 
Как избавиться от предупреждения "что на листе могут находиться данные" и лист удалялся сразу без лишних вопросов?
Сравнение текстовых значений
 
Ситуация такая есть таблица в которой колонка А это эталонные значения ФИО, а вторая, т.е. колонка В - это подгружаемые значения из реестров.Так вот теоретически данные расположенные напротив друг друга должны быть идентичны (например А1"Иванов И.И." = В1"Иванов И.И."), но бывает когда в подгружаемых данных содержатся ошибки (например А1"Иванов И.И." = В1"Ивонов И.И." не совпадает 1 буква) или (например А1"Иванов И.И." = В1"Ирванов И.И." одна лишняя буква) или совсем (например А1"Иванов И.И." = В1"Сидоров С.С." полность другое слово). Подскажите какими способами можно сравнить данные (на какое количество знаков расхождение) если взять колонку А за основу. Пробывал пользовательскую функцию которая сравнивала первую букву в ячейке А с первой буквой в ячейке В, потом вторую букву и т.д., но если в самом начале слова введен лишний символ то функция все последующие буквы в ячейке считала не верными и кол-во не совпавших символов равнялась количеству символов с слове хотя слова не совпадают на одну букву (например А1"Иванов И.И." = В1"Ирванов И.И." одна лишняя буква).
Разделитель разрядов
 
Подскажите может кто знает, уже второй день бьюсь. Из огромного текстового файла отбираются данные в Access, а из него импортируются в Excel. Проблема в том, что в тестовом файле значения сумм имеют такой вид 1,000,000.00 и т.д. При импорте по запросу в Excel, макросом убираются все запятые а точка заменяется на запятую, и данные принимают вид 1000000,00 но большая часть из них остаются не числовым значением и не учитываются в формулах.Как можно програмно импортированные в книгу запросом значения такого вида преобразовывать в число?
Последовательность в макросе
 
Подскажите пожалуйста есть макрос который выполняет два действия 1.Обновление данных и 2.форматирование данных (удаление лишних знаков).Но второе действие выполняется раньше чем выполняется обновление, какможно сделать чтобы второе действие выполнялось после полного обновления данных?
Запуск макроса
 
Подскажите пожалуйста, записал макрос:  
Sub Макрос1()  
'  
   Cells.Select  
   Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Range("A1").Select  
End Sub  
Как сделать чтобы макрос можно было запускать на одном листе, а выполнялся он на другом т.е. конкретно указать имя листа.  
Пробывал    
Sub Макрос1()  
'  
   ThisWorkbook.Worksheets("1").Cells.Select  
   Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Range("A1").Select  
End Sub  
Не получается.
Прогресс-бар
 
Подскажите пожалуйста, знаю что прогресс бар можно прикрутить на процесс выполнения макроса, а можно прогрессбар установить на процесс расчета ячеек. Просто большая таблица и много формул, при импорте новых данных "расчет ячеек" длится минут 2-3, вот и стало интересно можно ли на этот процес поставить прогрессбар. Например такой.
Печать выделенного диапазона
 
При выделении диапазона и отправки его на печать, используется весь лист. А как сделать чтобы распчатывался только этот диапазон и печать останавливалась. (например как в фаре, с отключеной опцией прогона листа), много искал в интернете, но все не то, может у кого то есть идеи.Заранее спасибо. Всех с праздником!!!
Макрос "Печать выделенного диапазона"
 
В первую очередь поздравляю всех участников форума С НОВЫМ ГОДОМ!, а терь к делу. На работе довольно часто приходится печатать не весь файл, а лишь его фрагмент, но проблема в том что мы используем старые матричные принтеры (типа Epson fx-300+, и т.д) с печатью на рулонной бумаге и при печати каждого фрагмента принтер проганяет много бумаги попусту. Написать макрос для печати выделенного фрагмента не проблема, а вот может кто знает что прописать в макросе чтобы принтер печатал только выделеные фрагменты, без прогона бумаги (а то на каждый выделеный фрагмент пол метра чистой бумаги, неудобно приходится постоянно подкручивать бумагу)? подскажите? или может кто знает ресурсы где посмотреть?
Персональные настройки
 
Подскажите, можно ли настроить только одну книгу (как в аксес), т.е убрать панели инструментов, меню и т.д.Но так чтобы это распространялось только на этот файл?
MsgBox по дате
 
Как сделать чтобы при открытии книги выводились сообщения в зависимости от даты, т.е до 31,12,2009 одно, а после 31,12,2009 другое?Заранее спасибо.
СЧЕТЕСЛИ
 
Подскажите пожалуйста, раньше использовал формулу для подсчета кол-ва строк больше "0", а как подсчитать все заполненые ячейки (значения в них могут быть не числовыми)?
Автоматическое обновление данных
 
Подскажите пожалуйста. Есть книга в которой есть запрос на базу данных. В условии запроса стоит включенным параметр "Обновление при открытии файла". Задача: как сделать чтобы при открытии файла не выскакивало сообщение с вопросом обновить или не обновить, а обновление происходило сразу при открытии книги. Знаю что можно подредактировать реестр, но тогда так будут обновлятся все файлы, а надо что бы только имено этот. Заранее спасибо.
Выборка из массива ЕСЛИ...
 
Подскажите пожалуйста: есть столбец А с данными корсчетов, надо в отдельную таблицу отобрать только те у которых нет "******101*", т.е. в счете с 7-ой цифры не "101" а др.цифры. Пробывал формулу массива, но что то не работает. =ЕСЛИ(ЕОШ(НАИМЕНЬШИЙ(ЕСЛИ(ПСТР($A$2:$A$500;7;3)<>"101";$A$2:$A$500);СТРОКА()));"";НАИМЕНЬШИЙ(ЕСЛИ(ПСТР($A$2:$A$500;7;3)<>"101";$A$2:$A$500);СТРОКА()))
Красивые кнопки
 
Подскажите, помню что когда то была тема, про то как делать красивые кнопки, но что то не могу найти, поиск не помогает. Как еще можно поискать?
Формула масива - просумировать!
 
Подскажите: есть таблица первая колонка № счета, вторая сумма.Номера счетов часто повторяются, как сделать чтобы в отдельной таблице выводилась информация по счетам с итоговыми суммами?
Групировка данных
 
Подскажите, какой функцией можно все данные в столбце сгрупировать, т.е в столбце помимо ячеек с данными есть и пустые ячейки. Для наглядности прикладываю пример. Пробывал формулой массива, но что то не получилось. Заранее спасибо.
Сумирование по нескольким критериям
 
Подскажите пожалуйста.Есть таблица состоящая из 3-х столбцов. А-критерий №1,В - сумма, С - критерий №2.Надо итоговая сумма - если в столбце "А" первые 2 символа "10" и в столбце С значение равно 2000010. По одному критерию формулу массива получилось написать =СУММ(ЕСЛИ(ЛЕВСИМВ($A$3:$A$10000;2)="10";$B$3:$B$10000)), а как прикрутить к данной формуле 2 критерий?
Отбор данных, с не совсем стандартых таблиц
 
Есть таблицы, которые формируются определенным ПО. Задача перенести с листа с таблицей, на следующий лист только чистые данные ФИО и СЧЕТ.Структура шапки таблицы меняется (кол-во строк в большую или меньшую сторону). Количество клиентов тоже может менятся от 1 до 1000. Отобрать надо на след.лист вставив данные начиная с 12 строки. Пробывал использовать формулу массива =ЕСЛИ(ЕОШ(ИНДЕКС(temp!$B$1:$B$1010;НАИМЕНЬШИЙ(ЕСЛИ(0<temp!$A$1:$A$1010;СТРОКА(temp!$A$1:$A$1010)-0;"");СТРОКА()-7)));"";ИНДЕКС(temp!$B$1:$B$1010;НАИМЕНЬШИЙ(ЕСЛИ(0<temp!$A$1:$A$1010;СТРОКА(temp!$B$1:$B$1010)-0;"");СТРОКА()-7))) Задав как аргумент колонку А если в ней значение больше 0, но формула вібирает данніе не сначала, но больше 0 функция считает не только числа но и вбитый в них текст, поєтому данные переносятся со всем мусором. Посмотрите может у когото появятся какие нибудь идеи как перенести на др.лист только чистые данные ФИО и СЧЕТ. При том что количество данных может варьировать от 1 до 1000, а также может менятся шапка списка. Структуру таблицы менять нельзя. Заранее спасибо. Прикладываю пример такой таблицы
Реально ли такое сделать СУММЕСЛИ....
 
Подскажите можно ли сделать такую формулу которая бы сумировала как функция СУММЕСЛИ - только по нескольким критериям и не по общему значению ячеек а лиш по определенной части содержимого. Например надо просумировать значения в столбце D если в ячейке А содержится цифра 8, в B цифра 18, в С цифра 5. Имено содержится, а не является значением єтих ячеек.
Формула массива + ПСТР
 
Подскажите, как можно отобрать все значения в колонке А, у которых ******00***, седьмое и восьмое число "0". Наверное надо использовать функцию ПСТР, но как сделать чтобы эти значения отбирались и выстраивались друг за другом в отдельной колонке.
СУММЕСЛИ - критерий число*
 
Подскажите. Есть таблица, колонка А которой содержит значения типа 805264458, 805264379, 816234854 и т.д., и столбец Б суммы. Для выборки например: суму всех значений начинающихся на 805264 использую формулу =СУММЕСЛИ(А1:А100;"805264*";В1:В100), но это если бы формат ячеек был не числовой, а текстовый, в противном случае возвращает "0". Как можно например подсчитать сумму всех значений начинающихся на 805264? Заранее спасибо!
Страницы: 1 2 След.
Наверх