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

Страницы: 1 2 3 След.
Как подставить дробное число в формулу?, VBA
 
Цитата
БМВ написал:
Если у вас текст а не число , то будет ошибка.

Нет, это число, все нормально

МатросНаЗебре, да, сработало. а в чем прикол? r1c1 надо подставлять другой разделитель?
Как подставить дробное число в формулу?, VBA
 
День добрый,
Имеется следующий код:
Код
k = Cells(i, FactValue).Value
Cells(i, FactValue).Formula = "=(" & k & "/1.2)/курс"

Нашел проблему в невозможности приравнять k к дробному числу (1.2 или 3250.50), вылетает в ошибку.
Как это можно исправить?
Ошибка ВПР, Почему-то не ищет по результату формулы
 
Владимир Афанасьев, а по факту это текст. Например в B2:
Код
=ЗНАЧЕН(ЛЕВСИМВ(A2;НАЙТИ(" ";A2)-1))

и ищет нормально. Поиграйтесь с "ЗНАЧЕН" в искомом компоненте ВПР
Ошибка ВПР, Почему-то не ищет по результату формулы
 
В ячейке B2 неверное значение для поиска, а в С1 неверно вытаскивается значение для впр
VBA PDF шпаргалка
 
Jack Famous, да, не спорю, тож есть эта жуткая папка в которой одна вкладка - один ответ. Но например розданная "шпора" из первого сообщения сильно облегчает жизнь коллегам, которые вообще ничего не умеют, но задают довольно однотипные вопросы. Посему думал, что есть такое же универсальное нечто по VBA
Изменено: Валерий Кишин - 25.05.2022 11:25:09
VBA PDF шпаргалка
 
Добрый день, форумчане
А есть ли для VBA какая нибудь удобная шпаргалка на подобии этой шпаргалки по обычным шорткатам экселя? Я все время забываю основы в виде поиска строки и точек при использовании With. Было бы полезно. Можно на русском или английском, но видеть правильный синтаксис Cells и Range крайне по помешало бы. Не очень долгий поиск дал только ссылки на что-то подобное в формате "отдай мне почту, я тебе что-то дам, но что не скажу". Хочу распечатать и на стенку повесить.
Заранее спасибо
Нужно ли закрывать книгу при открытии через GetObject?, VBA
 
МатросНаЗебре, работает, спасибо.
Нужно ли закрывать книгу при открытии через GetObject?, VBA
 
Добрый день,
Открываю книгу и вытягиваю из нее данные следующим кодом:
Код
    With Worksheets("Справочник")
        Kniga = .Cells(2, 52).Text
        GetObject (Kniga)
    End With

Не могу понять нужно ли закрывать ее после всех совершенных операций? Если да, то как? Код:
Код
    With Worksheets("Справочник")
       FileToClose = .Cells(2, 52).Text
       Workbooks(FileToClose).Close
    End With

Выдает ошибку "runtime 9". Заранее спасибо
Изменено: Валерий Кишин - 26.04.2022 13:55:55
Поиск на неактивном листе, VBA
 
Да, не хватало точек перед cells. Спасибо, Jack Famous
Поиск на неактивном листе, VBA
 
del
Изменено: Валерий Кишин - 14.04.2022 15:39:23
Поиск на неактивном листе, VBA
 
Добрый день,

Использую следующий код для копирования информации
Код
    With Worksheets("Лист1")
        NachaloKopirovaniya = .Range("a2:DD2").Find("начало").Column 'начало копирования
        KonetcKopirovaniya = .Range("a2:DD2").Find("конец").Column' конец копирования
        lLastRow = .UsedRange.Row + .UsedRange.Rows.Count - 1'последняя ячейка
        Range(Cells(2, NachaloKopirovaniya), Cells(lLastRow, KonetcKopirovaniya)).Offset(0, 9) = Range(Cells(2, NachaloKopirovaniya), Cells(lLastRow, KonetcKopirovaniya)).Value 'приравниваем значения
    End With

Он работает только при активном листе. Приравнивание нужного рейнджа к найденому рейнджу . Как можно сделать это без активации листа?
Изменено: Валерий Кишин - 14.04.2022 15:40:18
Как добавить буквы в .formula, VBA
 
nbaengineer, да, вот так срабатывает нормально. Я что-то не так писал.
Как добавить буквы в .formula, VBA
 
День добрый.
В определенных ячейках на листе нужно писать при определенных условиях формулу. Формула простая "=b1" и так далее в зависимости от строки. Я хочу определить столбик B так как он может ездить. Я делаю это поиском для поиска номера столбца:
Код
Price= Range("A7:DD8").Find("Цена", SearchOrder:=xlRows).Column

И определяю буквы:
Код
currentPrice = Split(Cells(1, Price).Address(True, False), "$")(0)

Но я не понимаю как могу использовать эти буквы в формуле на листе:
Код
For i = 1 To 5
        On Error Resume Next
        If Cells(i, previousPrice).Value = "new" Then    'в каком столбике ищем обозначение новой строки
            Cells(i, previousCost).Formula = "=bf" & i    'вот как тут использовать найденные буквы?
        End If
    Next i


Прошу совета по верному синтаксису кода
Как добавить два значение в словарь VBA
 
Бахтиёр, Вот, спасибо, я так понимаю это мне подходит. Надо будет только в r1c1 перевести и нужные столбики загнать как в сбор так и выгрузку

doober, нет, к сожалению даже если Ваш совет правильный и лучший, то я не способен его осознать и перевести в код. Но когда я стану умнее, то я вернусь и применю его (надеюсь)
Изменено: Валерий Кишин - 16.02.2022 14:30:57
Как добавить два значение в словарь VBA
 
Цитата
МатросНаЗебре написал: элементом словаря какой-нибудь дополняемый объект
Серьезно? Так сложно? А нельзя просто item2, 3 и тд. до бесконечности и вытягивать? Реально получается правильный (не лучший, но рабочий) вариант делать 5 словарей для 5 значений?
Как добавить два значение в словарь VBA
 
День добрый,

Я хочу сделать словарь, добавить в него ключ и значение из одного файла и при совпадении выгрузить значения в другой. Как добавить к одному ключу несколько значений для последующей выгрузки при совпадении? Данный код нормально работает на одном ключе и одном значении. Решение в виде 10 словарей думаю в корне неверное.

Код
With Workbooks(WBName).Worksheets(WBList)   
        vVALs = .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)).Value2  
        For v = LBound(vVALs, 1) To UBound(vVALs, 1)   
            dict.Item((vVALs(v, 1))) = vVALs(v, 1)
        Next v
    End With
Изменено: Валерий Кишин - 16.02.2022 13:03:48
Закрепить несколько строк
 
День добрый.
Что-то изменилось за шесть лет, кто-то знает? Столкнулся с подобной необходимостью и похоже "воз и ныне там"
Поиск значения по месяцу и году
 
Я в большинстве случаев подобных вопросов находил/получал ответ, что я дурачок и есть "великолепная функция" которой все всегда пользуются, а я не знал. Или отличная связка, которая работает много лет во всех бухгалтериях страны. А тут получается хороший и рабочий вариант,  но не такой изящный как какой нибудь теоретический "=ПоискМесяцИГод(A1)", который уже реализован. Так же не думал, что задача такая особенная, что требует построения формулы, а не использования имеющегося функционала. Поэтому "костыльненько". Но еще раз повторюсь, что все отлично работает, спасибо.
Поиск значения по месяцу и году
 
Выглядит "костыльно", но работает исправно, спасибо большое.
Поиск значения по месяцу и году
 
Добрый день.
Подскажите пожалуйста как лучше реализовать поиск данных по месяцам в зависимости от года. В столбце А даты в зависимости от месяца и года которых необходимо доставить значения из столбца D. В столбце С пока указаны первые числа месяца, но думаю это не лучший вариант. Можно искать по месяцу и году текстом, но придется изменить запись в С на текст, не проблема, но может есть решение лучше? Данные за пару лет.
Изменено: Валерий Кишин - 12.01.2022 14:03:14
Извлечь с другого листа данные по трем условиям, ускорить вычисления
 
Добрый день.
Имеется файл с очень большим количеством строк и столбцов. На один лист необходимо вытаскивать данные по трем условиям с другого листа. Условия прописаны в трех разных ячейках, ищутся по трем разным столбцам. В данный момент это происходит индексом и тремя поисками позиции, формула массивная. Работает отлично, проблем нет, но ОЧЕНЬ медленно. Настолько, что все другие файлы начинают тормозить при открытии этого монстра. Есть ли способ заменить массивную формулу на что-то более быстрое или как то "ускорить" ее? Только переезд на VBA? Может написать пользовательскую функцию? Столбец сцепка не подходит, ибо файл поиска меняется каждый день на свежий.
Быстро вытянуть данные из другого файла
 
Добрый день.
Веду на работе по необходимости табличку с региональными индексами (https://spimex.com/old/indexes/service_functions_oil.php?request=csv&index=eri&market=s) с питерской биржи. Они вытягиваются из их официального файла. обновляемого ежедневно. Но вытягиваются (index_input) оооочень долго. Сейчас макрос работает в районе 8 минут. Подскажите пожалуйста можно ли его ускорить? Если надо перенести в платное, то прошу перенести.
Изменено: Валерий Кишин - 15.12.2021 10:06:14
Определение используемости ячейки в книге
 
Норм, спасибо, изучу
Определение используемости ячейки в книге
 
Добрый день.
Имеется документ с множеством листов, строк, столбец, различных формул и всего такого. Так как файл "достался по наследству" начинаю замечать, что в документе есть целые столбцы которые считают сами себя. Например значение в столбце B определяется по дате из столбца A, вытягивая некоторые статичное значение с другого листа и на этом все. Нигде дальше в расчетах это учитывается, ни в сводные не идет ни как кф в какой-нибудь другой ячейке. Или еще хуже - просто столбец единичек каких-то забитых хардами.
Есть ли в Excel 2013 какой-то штатный метод определения используется ли ячейка где-либо еще? Или может макрос такой есть которым можно это проследить по всей книге? Можно конечно просто в поиск вбить адрес ячейки и поискать, но у меня такого добра целые столбцы и не ясно используется ли вдруг что-то из середины.

Upd. Да, есть зависимые и влияющие ячейки, но это так же придется кликать по каждой и проверять
Изменено: Валерий Кишин - 17.11.2021 10:41:21
Можно ли в ячейке получить значение, чтобы в другой ячейке получить нулевой результат
 
Решение задачи с помощью GoalSeek от Jack Famous и tutochkin является не формула, но за невозможностью ее использования это быстрый и удобный вариант. Спасибо большое, классная штука.
Можно ли в ячейке получить значение, чтобы в другой ячейке получить нулевой результат
 
Jack Famous, да, прекрасный план, надежный как швейцарские часы)
К сожалению итоговое значение должно считаться по имеющейся формуле.
Если как-то связывать  i14  и u13, то уходит в цикл, поэтому поиском решения нормально идет, но запрос был именно на формулу чтоб смотреть моментально при изменении входящих.
Изменено: Валерий Кишин - 08.11.2021 17:44:19
Можно ли в ячейке получить значение, чтобы в другой ячейке получить нулевой результат
 
Добрый день.
Возможно ли формулой в ячейке i14 получить значение, чтобы в ячейке u13 получалось нулевое значение? Я так понимаю, что единственный вариант это поиск решения при изменении входящих расчетных данных, но вдруг я не прав.
Остановка последовательности макросов при использовании Call, VBA
 
Полезно, информативно, спасибо. Буду думать как реализовать.
Остановка последовательности макросов при использовании Call, VBA
 
Добрый день,

Имеется пяток макросов в книге. В большинстве случаев они выполняются последовательно и постоянно, поэтому был собран "Мастер Саб" вида:
Код
Sub Master()
Call 1
Call 2
Call 3
Call 4
End Sub

Подскажите пожалуйста как можно остановить дальнейшее выполнение данной последовательности вызовов при наличии ошибки в любом из модулей? Проверка на ошибки осуществляется данным кодом и останавлиется "Exit Sub" при нахождении ошибки.
Проверка Range на наличие ошибок, VBA
 
Jack Famous, Да, работает как надо, спасибо.
Код оказался на удивление сложным по сравнению с моими ожиданиями.
Страницы: 1 2 3 След.
Наверх