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

Страницы: 1
Активация ячейки по значениям из других ячеек, Вопрос активации ячейки
 
#
25.04.2022 14:15:26
Добрый день. Вопрос конечно глупый и возможно уже был на форуме, если был дайте ссылку. В общем в двух ячейках находится адрес ячейки которую необходимо активировать. Не получается по ним ее активировать. В ячейках Row и cols находятся цифры столбца и строки. Задача состоит в том чтобы именно из данных ячеек, содержащих номер строки и столбца, активировать нужную ячейку.
Код
Sub tert()
Row = Cells(1, 2).Value
cols = Cells(1, 3).Value
Лист2.Cells(Row, cols).Activate
End Sub
 
Перейти    
Запрос даты и времени из Интернета
 
#
01.12.2021 11:58:34

Всем добрый день. Подсмотрел в интернете макрос по получению даты и времени из интернета, при запуске процедуры "ВывестиТекущуюДатуИВремя" выводит вместо даты 00:00:00, может кто сможет подсказать что не так?

Код
Function GetRealTime(Optional ByVal GMT& = 4) As Date
    On Error Resume Next: Err.Clear: Dim http As Object, URL$, GMT_Time$, m$, mv$
    'GetRealTime = Now        ' значение по-умолчанию

    Set http = CreateObject("Microsoft.XMLHTTP")
    URL$ = "http://yandex.ru/"        ' можно указать практически любой сайт
    http.Open "GET", URL$, False
    http.Send
 
    GMT_Time = http.GetResponseHeader("Date")
    Set http = Nothing
 
    ' пример полученной строки:  Sun, 27 Apr 2014 06:14:44 GMT
    'If Not (GMT_Time Like "???, *# ??? #### ##:##:##*GMT*") Then Exit Function
    GMT_Time = Trim(Split(GMT_Time, ",")(1))
    GMT_Time = Trim(Split(GMT_Time, "GMT")(0))
    m$ = Trim(Split(GMT_Time)(1))
    mv$ = (InStr(1, "janfebmaraprmayjunjulaugsepoctnovdec", m$, vbTextCompare) + 2) / 3
    GMT_Time = Replace(GMT_Time, " " & m$ & " ", "." & Format(mv$, "00") & ".")
 
    GetRealTime = CDate(GMT_Time) + Val(GMT&) / 24
End Function

Sub ВывестиТекущуюДатуИВремя()
    t = GetRealTime
    MsgBox t, vbInformation, "Текущее время (в Москве)"
 End Sub
 
Перейти    
Вставка массива из буфера обмена
 
#
20.11.2020 11:01:41
Добрый день. Прошу Вас подсказать функцию которая может из буфера обмена вставить данные в двумерный массив. Ручным способом все просто: выделяю в 1с диапазон, нажимаю Ctrl+C, открываю Excel Ctrl+V и диапазон скажем А1:j10 заполнен. Мне необходимо чтобы я после копирования Ctrl+C нажал на свою кнопку в Excel (или нажал сочетание клавиш, которые присвоил макросу) и данные из буфера памяти вставились в указанный(в макросе) диапазон также как после нажатия в выбранной ячейке Ctrl+V.
 
Перейти    
Поиск значения по двум столбцам в ВБА, Помочь разобрать формулу в ВБА
 
#
15.09.2020 15:25:48
Добрый день. Нуждаюсь в помощи Гуру VBA.
Не получается разработать формулу для поиска значения по двум параметрам в вба.
Во вложении файл, в нем необходимо при запуске макроса в синей ячейке находилось значение по двум параметрам из желтых ячеек. (как по формуле excel в синей ячейке)
 
Перейти    
Разбор формулы Индекс Поискпоз, Поиск значения в таблице
 
#
14.09.2020 17:45:07
Добрый день. Прошу помочь разобраться с формулой. Задача состоит в следующем: В 1ом и 2ом столбце стоят данные, например 1й столбец содержит названия складов: склад1, склад2, склад3. Второй столбец содержит названия полок: полка 1, полка2 полка три. В третьем толбце стоят цены. Необходимо в vba найти цену напротив нужного склада в котором нужная полка. Например склад1 полка2 найденная цена - 100р.
Если например склады были бы в первом столбце со строки 3 до строки 5, а полки стояли бы на пример на второй строке с 2го по 4й столбец формула была бы следующей:
в Excel =Индекс(B3:D5;ПОИСКПОЗ("склад1";A3:A5;0);ПОИСКПОЗ("полка2";B2:D2;0))
в  VBA
c = Application.Match("склад1", Range(Cells(3, 1), Cells(5, 1)), 0)
d = Application.Match("полка2", Range(Cells(2, 2), Cells(2, 4)), 0)
Cells(7, 1).Value = Application.Index(Range(Cells(3, 2), Cells(5, 4)), c, d)
Эта формула работает
А как оформить формулу в вба если в ecxel следующее:
Excel  =Индекс(C3:C5;ПОИСКПОЗ("склад1"&"полка2";A3:A5&B3:B5;0))
а как в ВБА?
 
Перейти    
Суммировать все значения в столбце, соответствующие периоду дат
 
#
03.09.2020 15:28:01
День добрый.
Прошу помочь поправить формулу в VBA
Задача в следующем. В столбце FS содержатся суммы, в столбце HY даты в которые эти суммы были получены. Ячейка Т6 всегда содержит дату первого дня выбранного месяца, а ячейка A3 содержит выбранную дату данного месяца.
Пример: Ячейка T6 содержит 01.08.2020. Ячейка А3 содержит 21.08.2020. Необходимо найти диапазон дат в столбце HY и суммировать относительно этого диапозона данные из стобца FS. Другими словами, необходимо суммировать все значения в столбце FS соответствующие датам с 01.08.2020 до 21.08.2020.
Код
Cells(21, 21) = Application.SumIfs(Range("FS:FS"), Range("HY:HY"), ">=" & "T6", Range("HY:HY"), "<=" & "A3")
 
Перейти    
Страницы: 1
Loading...