Ошибка 2042 на десятичных числах application.match vba

Я не могу сопоставить максимальное значение диапазона с тем же диапазоном. Это с целью узнать, в каком столбце я могу найти максимальное значение.

im пытается с этим кодом

Set rango = Range(Cells(45, W), Cells(46, W1)) rango.Select maximo = WorksheetFunction.Max(rango) matching = Application.Match(CLng(maximo), Sheets("Dinamicos").Range(Cells(45, W), Cells(46, W1)), 0) 

но я получаю ошибку 2042. В этом разделе я пытаюсь сопоставить проценты, если я использую код

  Set rango = Range(Cells(45, W), Cells(46, W1)) rango.Select maximo = WorksheetFunction.Max(rango) matching = WorksheetFunction.Match.Match(CLng(maximo), Sheets("Dinamicos").Range(Cells(45, W), Cells(46, W1)), 0) 

я получаю ошибку времени выполнения 1004 Невозможно получить свойство Match из WorksheetFunction

CLng преобразует в длинное целое число, существенно CLng любое десятичное число. Используйте CDbl для преобразования в double.

 dim maximo as double, matching as variant with worksheets("sheet1") maximo = WorksheetFunction.Max(.Range(.Cells(45, W), Cells(.46, W1))) end with with worksheets("Dinamicos") matching = Application.Match(CDbl(maximo), .Range(.Cells(45, W), .Cells(46, W)), 0) if not iserror(matching) then 'found a match in W; do something debug.print "found in W" else matching = Application.Match(CDbl(maximo), .Range(.Cells(45, W1), .Cells(46, W1)), 0) if not iserror(matching) then 'found a match in W1; do something debug.print "found in W1" end if end if end with 

Вы также оставили некоторые ссылки на ячейки в Sheets("Dinamicos").Range(Cells(45, W), Cells(46, W1)) которые я попытался затянуть вверх.

  • Форма Показать метод в случае workbook_open в ThisWorkbook ломает фокус
  • Excel 2003, промежуточная ошибка VBA
  • Именованные диапазоны с использованием функции index / Match для возврата значений
  • Скопируйте серию ячеек на несколько листов, названных через ячейку
  • Ошибка времени выполнения 424. VBA, если рабочий лист называется «Выполняется», затем выполните код Else Msg Box
  • Ошибка выполнения 13 в цикле for i, которая использовалась для работы
  • Excel: Break on Error не работает в пользовательской функции
  • Ошибка выполнения 1004 при вводе формулы в ячейку
  • VBA: копирование всех данных на другой лист книги
  • Как добавить имя файла при импорте нескольких файлов Excel в одну таблицу Access
  • Ошибка ошибки VBA Excel Error-Time '53'
  • Interesting Posts

    Извлечь диапазон столбцов из листов excel

    скопировать и вставить обратно в отфильтрованный список в excel

    Php скрипт для экспорта продукта Amazon

    Сортировка целевых строк по алфавиту первой ячейкой с использованием VBA

    Запустите код VBA для нескольких файлов Excel в R

    Excel Сортировка столбца на основе числа после последнего –

    WS.SaveAs должен замедляться, если программа запускается Button-Click

    Пользовательская форма поиска и обновления VBA

    INDEX и SMALL возвращают только один результат

    Пользовательское контекстное меню не отображается в Excel (VSTO C #)

    Нет перегрузки для метода «Открыть» принимает 1 или более аргументов

    Скомпилируйте ошибку, говоря «неправильное количество аргументов или недопустимое присвоение свойств»

    Прочитайте unformatted csv и конвертируйте в сформированный csv через скрипт php

    Python: JSON для CSV – обработка специальных массивов

    пользовательская функция не работает vba

    Давайте будем гением компьютера.