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

Страницы: 1
Автоматическое последовательное вычитание
 
#
02.12.2019 15:21:46
Супер!
Работает. Большое спасибо.
Тема закрыта.
Изменено: I_Creator - 02.12.2019 15:22:23
 
Перейти    
Автоматическое последовательное вычитание
 
#
02.12.2019 14:51:09

Добрый день!

У меня задача сделать так, чтобы на листе “расчеты”, в столбе D автоматически мог проводиться расчет

У меня есть задача - построить денежные потоки. Один поток - это накопление на старость накопленным итогом (столбец С на странице расчеты), а второй это траты после выхода на пенсию т.е. поток уменьшается до тех пор, пока не станет отрицательным (столбец D на странице расчеты). Подскажите как мне сделать это последовательное уменьшение, чтобы оно автоматически считалось. В случае если даже возраст выхода на пенсию будет изменен. В примере посчитано, но не автоматически.

Спасибо.
 
Перейти    
Проверка ячейки на наличие подстроки (VBA)
 
#
23.10.2019 12:47:09
Отходил. Увидел, что тему уже сменили.

Всем спасибо. Теперь будет над чем подумать.:)
 
Перейти    
Проверка ячейки на наличие подстроки (VBA)
 
#
23.10.2019 11:50:51
Цитата
Jack Famous написал:
+ добавил в предыдущий коммент ссылку на матчасть
Спасибо большое.

Буду разбираться.
 
Перейти    
Проверка ячейки на наличие подстроки (VBA)
 
#
23.10.2019 11:40:49
Цитата
Hugo написал:
Можно пропускать ошибки, а можно сперва проверить наличие этого разделителя.
Согласен. Только не могу понять как это сделать. Если подскажите, буду благодарен.
 
Перейти    
Проверка ячейки на наличие подстроки (VBA)
 
#
23.10.2019 11:39:27
Код
Sub rer()

Dim Prob As String, Zakr As String
Dim LastRow As Long, LastCol As Long, i As Long

Prob = " "
Zakr = "закрытие реестра "

LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
LastCol = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

Cells(LastRow + 6, 1) = "Дата закрытия реестра"
Cells(LastRow + 6, 2) = "Дивиденд (руб.)"
Cells(LastRow + 6, 5) = "Год"
Cells(LastRow + 6, 6) = "Дивиденд (руб.)"

For i = 1 To LastRow

Cells(LastRow + 6 + i, 1) = Split(Cells(i + 1, 1), Zakr)(1)


Next i

Cells(24, 1) = Split(Cells(2, 1), "закрытие реестра ")(1)
Cells(24, 2) = Split(Cells(2, 2), " ")


End Sub
Изменено: I_Creator - 23.10.2019 11:39:43
 
Перейти    
Проверка ячейки на наличие подстроки (VBA)
 
#
23.10.2019 11:35:45

Добрый день.

Я использую функцию Split по первому столбцу, отсекая “закрытие реестра”. Но когда цикл доходит до ячейки, где нет фразы “закрытие реестра”, то есть ближайшая это cells (3,1), то закономерно всплывает Debug. Какое мне необходимо задать условие, чтобы он проскакивал ненужное без ошибки?

Файл прилагаю.

Спасибо.

 
Перейти    
Отделение определенного знака от всего текста в VBA
 
#
01.03.2018 16:24:16
Всем спасибо.
Тема закрыта.
 
Перейти    
Отделение определенного знака от всего текста в VBA
 
#
01.03.2018 16:23:57
V, именно это. Только вот так:)
1
2		tx="RI072500BC0"
tx1=MID(tx,10,1
 
Перейти    
Отделение определенного знака от всего текста в VBA
 
#
01.03.2018 15:57:27
Добрый день.
Подскажите как можно с помощью VBA выделить только 10 символ в буквенно-цифровом коде. Пример в файле. Необходимо это сделать т.к. по ней будет определяться месяц.
Пример в файле.
 
Перейти    
Добавление новой строки в тбалицу с сохранением данных
 
#
23.11.2017 17:38:15
Кнопка цитирования не для ответа [МОДЕРАТОР]

Я понял. Спасибо огромное за помощь.
Тема закрыта.
 
Перейти    
Добавление новой строки в тбалицу с сохранением данных
 
#
23.11.2017 17:30:26
Цитата
Karataev написал:
Чтобы активировать лист, нужно использовать Select или Activate. Если просто указывать имя листа, то активным листом остается текущий активный лист.
Я прошу прощения за назойливость. Что задает изначально активность моего листа в коде? Эта Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "tempsheet" или эта часть кода With ActiveSheet.QueryTables.Add(Connection:= _
       "URL;http://www.cbr.ru/", Destination:=Range("$A$1"))?

Спасибо?
 
Перейти    
Добавление новой строки в тбалицу с сохранением данных
 
#
23.11.2017 16:53:32
Спасибо. Да, как  только добавил строчку Worksheets("Ключевая ставка Base").Activate, сразу заработало. По какой причине он у меня не активируется если я на него ссылку делаю в виде Worksheets("Ключевая ставка Base") - указание рабочего листа?
Изменено: I_Creator - 23.11.2017 17:05:13
 
Перейти    
Добавление новой строки в тбалицу с сохранением данных
 
#
23.11.2017 16:46:36
Действительно, в этом файле добавляет. Я выделил этот макрос в отдельный файл, но в основном не работает. Может дело в других макросах? Файл основной прилагаю.
 
Перейти    
Добавление новой строки в тбалицу с сохранением данных
 
#
23.11.2017 16:28:17
Макрос не добавляет новую строку на заданной странице, а записывает данные поверх старых. Не могу понять причину, хотя действие вставки строки писал макрорекодером.
Подскажите в чем причина.
Спасибо.
Изменено: I_Creator - 23.11.2017 16:28:56
 
Перейти    
Найти адресс ячейки в VBA
 
#
20.07.2017 16:32:19
Всем спасибо. Разобрался.
 
Перейти    
База данных с которой взаимодействует Excel
 
#
20.07.2017 15:33:44
Посоветуйте, пожалуйста, какую базу данных выбрать, чтобы из нее потом брать данные и обрабатывать в Excel, плюс, чтобы с Excel можно было в нее вносить.

Спасибо.
 
Перейти    
Найти адресс ячейки в VBA
 
#
19.07.2017 14:09:08
Спасибо. Буду пробовать.
 
Перейти    
Найти адресс ячейки в VBA
 
#
19.07.2017 14:01:31
Код
Dim a As Integer
    a = Cells("OK&KO",Цена за шт, р").Value
    Cells(2, 15) = a
End Sub

Вот так необходимо, но не работает.
Суть в том, что я не буду знать номера строк и столбцов и они могут изменять.
 
Перейти    
Найти адресс ячейки в VBA
 
#
19.07.2017 13:51:43
Нет. Я хочу понять как мне организовать поиск ячейки с требуемым мне значением в любой таблице, чтобы я дальше мог с ним работать. В конкретном случае я хочу определить число в ячейки D8 и умножить его на 5.
 
Перейти    
Найти адресс ячейки в VBA
 
#
19.07.2017 13:40:52
Мне надо определить цену за штуку допустим вот этого товара OK&KO. это 1100 руб. Далее я хочу с этой цифрой совершать действия +; - ; * и т.д.
Как мне определить это значение через VBA чтобы я мог с ним дальше работать.
 
Перейти    
Найти адресс ячейки в VBA
 
#
19.07.2017 13:13:44
Подскажите, пожалуйста, как найти адрес ячейки? Например: у меня есть много столбцов и строк.  Мне необходимо на пересечении столбца 5 с заголовком "сумма" и строки 8 с заголовком "орех" найти число. Как реализован такой поиск в VBA?

Заранее спасибо.
 
Перейти    
Как подружить Exel с MT4 Через DDE сервер
 
#
18.07.2017 17:48:57
Добрый день!

Danya-asg, подскажите как запустить выгрузку онлайн из МТ4 в Excel2016. Никак не получается. Попробовал уже и так ='MT4'|BID!EURUSD и так ='MT4'|BID!EURUSD.f.
Можете подсказать путь до этих операций:
Вроде всё сделал правильно.
1. разрешил на терминале DDE сервер
2. Включил автообновление ссылок
3. поставил галочку "преобразование формул в формат EXEL при вводе.
Заранее спасибо.
 
Перейти    
Страницы: 1
Наверх