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

Страницы: 1
Поиск даты через Find
 
#
12.10.2017 17:50:23
Спасибо за ответ, но почему до 10.10.2017  работает xlValues? Ориентировочно этот код был написан 8 месяцев назад и работал исправно каждый день...
У меня нет кнопки F1
 
Перейти    
Поиск даты через Find
 
#
12.10.2017 17:36:37
Всем здравствуйте!
Столкнулся с проблемой есть рабочий код в котором есть поиск даты
Код
Cells.Find(What:=Date - 1, LookIn:=xlValues).Activate
но начиная с 10.10.2017 макрос начал возвращать ошибку: Run-time error '91'
Я создал массив начиная с 01.10.2017 по 01.11.2017 при поиске дат в интервале с 10.10.2017 по 31.10.2017  выдается ошибка.
У меня нет кнопки F1
 
Перейти    
Цикл с переменной
 
#
18.09.2017 16:40:44
Цитата
Sanja написал:
ТАКИМИ названиями должны существовать и быть открытыми. У Вас так?
Спасибо, очень помогли :)
Конечно, только названия другие и их чуть больше ведь это всего лишь пример, мне нужно было понять структуру :)
У меня нет кнопки F1
 
Перейти    
Цикл с переменной
 
#
18.09.2017 16:26:16
Мне нужен цикл который будет зашивать в "Исходный" названия из переменных , а vba ругается... :(
Я думал может подскажет как это делать правильно, я эту задачу уже пол года не могу решить :D
на моменте сохранения переменной "Исходны" ран тайм эрор 9 :(
Изменено: fourez - 18.09.2017 19:44:54
У меня нет кнопки F1
 
Перейти    
Цикл с переменной
 
#
18.09.2017 16:23:16
Подскажите пожалуйста, что я делаю не так  ?
Код
Книга1 = "Яйцо"
Книга2 = "Помидор"
Книга3 = "страус"
Книга4 = "Вата"

For i = 1 To 4

Set Исходный = Workbooks("Жанр " & Книга & i & ".xls").Sheets(1)

Next i
У меня нет кнопки F1
 
Перейти    
Суммирование массива через условия
 
#
18.07.2017 16:13:49
Круто всё работает в файле Копия Книга1-1, но при переносе в основной файл выдает "Знач"
Перепробовал всё что можно , даже формат ячеек менял. Ввожу как формулу массива через ctrl+shift+enter, но он долго думает потом выдает "Знач" :(
У меня нет кнопки F1
 
Перейти    
Суммирование массива через условия
 
#
18.07.2017 14:49:35
Добрый день!
Нужно из массива данных сделать сумму по двум условиям, формулой.
Первое условие это фамилия, второе это статистика. Но список с первым условием может меняться и содержать до 100 значений, поэтому через СУММЕСЛИМН+СУММЕСЛИМН+СУММЕСЛИМН+СУММЕСЛИМН+СУММЕСЛИМН и т.д. не подходит. Попытался решить задачу через формулу массива, но я в них не разбираюсь, он выводит сумму без первого условия, что я делаю не так? Или может есть другой способ?
Файл пример во вложении.  
Изменено: fourez - 18.07.2017 14:49:52
У меня нет кнопки F1
 
Перейти    
Присвоение рейтингового значения в заданных пределах
 
#
13.07.2017 12:03:45
Ну как вариант, может быть так?
Как автоматизировать не думал, но сам рейтинг можно так посчитать.
У меня нет кнопки F1
 
Перейти    
Перенос из Excel в Word
 
#
28.12.2016 12:09:15
The_Prist, всё заработало, создал другую новую закладку, спасибо
Изменено: fourez - 28.12.2016 12:11:52
У меня нет кнопки F1
 
Перейти    
Перенос из Excel в Word
 
#
28.12.2016 11:57:32
The_Prist, Run time error 5941 "Запраишваемый номер семейства не существует"
У меня нет кнопки F1
 
Перейти    
Перенос из Excel в Word
 
#
28.12.2016 11:52:42
Всем привет, появилась задача в которой нужно перенести диаграмму из EXCEL в Word , средствами VBA
Объекты ворда, для меня тёмный лес, сделал в документе закладку, и на место закладки хочу поместить диаграмму картинкой, подскажите что я делаю не так?
Предыдущая тема была удалена, без комментариев , если будете эту удалять, напишите причину пожалуйста
Код
Sub Test()
    Dim objWrdApp As Object, objWrdDoc As Object
    Set objWrdApp = CreateObject("Word.Application")
    objWrdApp.Visible = True
    Set objWrdDoc = objWrdApp.Documents.Open("C:\1.doc")
    Sheets("Диаграммы").ChartObjects("Диаграмма 1").Chart.ChartArea.Copy
    objWrdDoc.Bookmarks("Диаграмма1").Range.Text = Sheets("Диаграммы").ChartObjects("Диаграмма 1").Chart.ChartArea
    objWrdDoc.Close True
    objWrdApp.Quit
    Set objWrdDoc = Nothing: Set objWrdApp = Nothing
End Sub
Изменено: fourez - 28.12.2016 11:55:42
У меня нет кнопки F1
 
Перейти    
Определение столбца по дате через VBA
 
#
13.12.2016 17:12:18
Ігор Гончаренко, Спасибо Игорь, всё работает
У меня нет кнопки F1
 
Перейти    
Копирование значений из ячейки с формулой на другой лист по выбранному условию
 
#
13.12.2016 12:58:03
Мне кажется, помощи нужно просить уже в платном разделе :)
У меня нет кнопки F1
 
Перейти    
Определение столбца по дате через VBA
 
#
13.12.2016 12:53:44
Ребят,
Нужно найти текущую дату во второй строке, и выдать номер столбца в переменную X , что я делаю не так?
Пример во вложении , не работает функция "Match"
VBA выдает ошибку :(
Код
Z = Format(Now, "d-mmm")
X = WorksheetFunction.Match(Z, Rows(2), 0)
У меня нет кнопки F1
 
Перейти    
Распределение информации по двум таблицам, на основе первого столбца
 
#
08.12.2016 18:34:27
Bema, отлично, спасибо большое :)
У меня нет кнопки F1
 
Перейти    
Распределение информации по двум таблицам, на основе первого столбца
 
#
08.12.2016 12:12:58
JayBhagavan, а формулами это не как не распределить ? Была мысль через множество "Если" но это выглядит ужасно.
У меня нет кнопки F1
 
Перейти    
Распределение информации по двум таблицам, на основе первого столбца
 
#
08.12.2016 11:58:58
Всем привет, нужно распределить информацию по двум таблицам, на основе первого столбца "Время"
В одной таблице должны быть те у кого указанно 23 , во второй таблице те у кого указанно 24
Пример во вложении, как это сделать формулами?
У меня нет кнопки F1
 
Перейти    
Запуск макроса с переменной из другой книги
 
#
06.12.2016 12:52:25
Попробуй так -
Код
Sub test()
Workbooks.Open Filename:=("C:\Книга2.xlsm")
Call БДданные
End Sub
У меня нет кнопки F1
 
Перейти    
Копируем столбцы на основе данных в шапке
 
#
29.11.2016 16:59:58
gling, всё дело в том , что я понятия не имею как мне осуществлять поиск нужного мне значения в первой строке.
Поэтому я воспользовался таким способом.
И подобных дублей ровно столько же сколько и столбцов, а в идеале это оптимизировать и сделать привязку к шапке, т.е. что бы не скопировался лишний "Новый" столбец.
Код
Worksheets("Тест").Select
Columns(32).Copy
Worksheets("Итог").Select
Columns(11).PasteSpecial
У меня нет кнопки F1
 
Перейти    
Копируем столбцы на основе данных в шапке
 
#
29.11.2016 15:42:48
Всем привет , задача следующая :
Необходимо с листа исход перенести столбцы на лист Итог ( З.Ы. в столбцах будут данные ) Перенос необходимо осуществлять на основе надписи в шапке.
К примеру :
Столбец CUCON должен быть в столбце A
Столбец CUST_name должен быть в столбце C
Столбец FIRST_NAME в столбце E
и т.д.

Как на VBA привязаться к названию столбца ? т.к. лишние столбцы могут появляться, в абсолютно любом месте листа.

Задачу необходимо решить через VBA.
У меня нет кнопки F1
 
Перейти    
Переключение между окнами в VBA, Как переключиться на другое окно
 
#
17.11.2015 13:36:03
Ребят , всем привет.
Подскажите пожалуйста , как реализовать задачу :
Необходимо при помощи VBA переключится на другой файл/окно , которые не являются excel документом , к примеру :

Что бы переключится на книгу я прописываю в коде :
Код
Windows(Книга.xlsx).Activate
Но если написать так :
Код
Windows(Документ.doc).Activate
Появляется ошибка, которая жалуется на то что в этой строке ошибка.
У меня нет кнопки F1
 
Перейти    
Макрос который меняет макрос, VBA
 
#
03.11.2015 16:51:07
Спасибо большое за помощь
У меня нет кнопки F1
 
Перейти    
Макрос который меняет макрос, VBA
 
#
03.11.2015 16:33:47
Ребята , help.
Сложилась такая ситуация , есть два файла "Мой помощник" и "43 Неделя"
Из "Мой помощник" мы переносим информацию в файл "43 Неделя"
Но название файла "43 Неделя" меняется, и приходится в ручную заходить в VBA и менять "43 Неделя" на "44 Неделя"
Делать это через авто замену , тоже не удобно.
Пример моего макроса
Код
Sheets("Моё окно").Select
    Range("C2:C43").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("43 Неделя.xlsm").Activate
    Sheets("Лист 1").Select
    Range("A130").Select
Нужен макрос который будет заменять информацию в этом макросе, либо предложите другое решение моей проблемы.

Другими словами , нужен макрос который будет изменять макрос.
У меня нет кнопки F1
 
Перейти    
Страницы: 1
Наверх