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

Страницы: 1
Поиск даты через 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:23:16
Подскажите пожалуйста, что я делаю не так  ?
Код
Книга1 = "Яйцо"
Книга2 = "Помидор"
Книга3 = "страус"
Книга4 = "Вата"

For i = 1 To 4

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

Next i
У меня нет кнопки F1
 
Перейти    
Суммирование массива через условия
 
#
18.07.2017 14:49:35
Добрый день!
Нужно из массива данных сделать сумму по двум условиям, формулой.
Первое условие это фамилия, второе это статистика. Но список с первым условием может меняться и содержать до 100 значений, поэтому через СУММЕСЛИМН+СУММЕСЛИМН+СУММЕСЛИМН+СУММЕСЛИМН+СУММЕСЛИМН и т.д. не подходит. Попытался решить задачу через формулу массива, но я в них не разбираюсь, он выводит сумму без первого условия, что я делаю не так? Или может есть другой способ?
Файл пример во вложении.  
Изменено: fourez - 18.07.2017 14:49:52
У меня нет кнопки 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 12:53:44
Ребят,
Нужно найти текущую дату во второй строке, и выдать номер столбца в переменную X , что я делаю не так?
Пример во вложении , не работает функция "Match"
VBA выдает ошибку :(
Код
Z = Format(Now, "d-mmm")
X = WorksheetFunction.Match(Z, Rows(2), 0)
У меня нет кнопки F1
 
Перейти    
Распределение информации по двум таблицам, на основе первого столбца
 
#
08.12.2016 11:58:58
Всем привет, нужно распределить информацию по двум таблицам, на основе первого столбца "Время"
В одной таблице должны быть те у кого указанно 23 , во второй таблице те у кого указанно 24
Пример во вложении, как это сделать формулами?
У меня нет кнопки 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: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
Наверх